Új hozzászólás Aktív témák

• T_bee aktív tag

  #61

  #60 T_bee

  2004-06-12 18:59:29

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  T_bee

  aktív tag

  #60 T_bee

  hoppá... most olvasom és rájöttem hogy ez nem a kivonnó eljárás...
  
  Private Sub Command4_Click()
  
  
  If List1.Text <> '''' Then
  If mag >= 10 And szele >= 10 Then
  s1 = Left(List1.Text, InStr(List1.Text, ''x'') - 1)
  s2 = Right(List1.Text, InStr(List1.Text, ''x'') - 1)
  listitem = Val(s1) * Val(s2)
  List1.RemoveItem List1.ListIndex
  ossz = ossz - listitem
  mem.Text = ossz
  i = i - 1
  ElseIf mag >= 10 And szele <= 10 Then
  s1 = Left(List1.Text, InStr(List1.Text, ''x'') - 1)
  s2 = Right(List1.Text, InStr(List1.Text, ''x'') - 2)
  listitem = Val(s1) * Val(s2)
  List1.RemoveItem List1.ListIndex
  ossz = ossz - listitem
  mem.Text = ossz
  i = i - 1
  ElseIf mag <= 10 And szele >= 10 Then
  s1 = Left(List1.Text, InStr(List1.Text, ''x'') - 1)
  s2 = Right(List1.Text, InStr(List1.Text, ''x''))
  listitem = Val(s1) * Val(s2)
  List1.RemoveItem List1.ListIndex
  ossz = ossz - listitem
  mem.Text = ossz
  i = i - 1
  End If
  Else
  d = MsgBox(''Nincs kijelölt adat!'', vbInformation, ''Hiba'')
  End If
  
  End Sub
  
  na ez lenne az, ha valaki rájön hogy mi benne a hiba annak megköszönném.
  

Új hozzászólás Aktív témák