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

• #56 T_bee aktív tag

  Új Válasz 2004-06-10 08:37:28 #56

  Ú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

  Hi
  
  szerintetek mi a hibaa ebben a kódban?
  
  
  
  Private Sub vesz_Click()
  If List1.Text <> '''' Then
  s1 = Left(List1.Text, InStr(List1.Text, ''*'') - 1)
  s2 = Right(List1.Text, InStr(List1.Text, ''*'') - 1)
  listitem = Val(s1) * Val(s2)
  List1.RemoveItem List1.ListIndex
  index = index - listitem
  ered.Text = index
  i = i - 1
  Else
  d = MsgBox(''Nincs adat!'', vbInformation, ''Hiba'')
  End If
  End Sub
  
  
  mer csak a list1.list utolsó elemét vonja ki rendesen
  
  köszi

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