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

• #45 blemidon tag T_bee #44

  Új Válasz 2004-06-03 13:32:53 #45

  Ú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

  

  blemidon

  tag

  válasz T_bee #44 üzenetére

  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