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

• #61 T_bee aktív tag T_bee #60

  Új Válasz 2004-06-12 18:59:29 #61

  Ú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

  Privát üzenet küldése

  

  T_bee

  aktív tag

  válasz T_bee #60 üzenetére

  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