PROHARDVER! témák
Mobilarena témák
IT café témák
Új hozzászólás Aktív témák
-
blemidon
tag
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
Aktív témák
- Világ Ninjái és Kódfejtői, egyesüljetek!
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Az USA nem akarja visszafogni Kína növekedését
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- Kerékpárosok, bringások ide!
- Politika
- iPhone topik
- OLED TV topic
- Kertészet, mezőgazdaság topik
- Futás, futópályák
- További aktív témák...
Új prémium hirdetések