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

• blemidon tag

  #45

  #44 T_bee

  2004-06-03 13:32:53

  Ú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

  

  blemidon

  tag

  #44 T_bee

  #44 T_bee

  na. már rájöttem erre is
  DE.
  van egy progi, ami bekér két számot text1 és text2 vezérlőben, a és b változóba.
  
  Private Sub Command1_Click()
  If i = False And j = False Then
  c = a
  c = c + ''*''
  c = c + b
  o = a * b
  index = a * b
  List1.AddItem = c
  q = q + o
  Text3.Text = q
  End If
  End Sub
  
  és ha a lista egyik elemét törlöm akkor hogy lehet annak az értékét( tehát az elem c változójának értékét) törölni egy másik Q változóból?

  A listboxban 5*6 stb formátumban vannak az elemek.
  A következő függvény egy ilyen stringet alakít vissza az eredménnyé:
  
  Private Function ListItemFromText(s As String) As Integer
  
  Dim x As Integer
  Dim s1 As String, s2 As String
  
  s1 = Left(s, InStr(s, ''*'') - 1)
  s2 = Right(s, InStr(s, ''*'') - 1)
  ListItemFromText = Val(s1) * Val(s2)
  
  End Function
  
  Meghyvod az épp törölni kívánt listelemmel, és visszaadja hogy mennyi annak a számértéke, ezt már ki tdod vonni a q-ból.
  

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