PROHARDVER! témák
Mobilarena témák
IT café témák
Új hozzászólás Aktív témák
-
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
Aktív témák
- Ausztria - élmények, tapasztalatok
- OpenWRT topic
- Megújult mobilos felület, fórumos ráncfelvarrás a PROHARDVER! lapcsaládon
- Gyúrósok ide!
- Elektromos autók - motorok
- exHWSW - Értünk mindenhez IS
- Kerékpárosok, bringások ide!
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- A fociról könnyedén, egy baráti társaságban
- Linux haladóknak
- További aktív témák...
Új fizetett hirdetések
Üzleti előfizetők hirdetései
- iPhone 15 Pro Max 256GB 84% (1év Garancia)
- Bomba ár! Lenovo IdeaPad V110 - i5-6GEN I 8GB I 128SSD I 15,6" HD I HDMI I Cam I W10 I Gari!
- Azonnali készpénzes Intel i3 i5 i7 i9 12/13/14 gen processzor felvásárlás személyesen / csomagküldés
- Azonnali készpénzes INTEL CPU NVIDIA VGA számítógép felvásárlás személyesen / postával korrekt áron
- Honor 200 Pro / 12/512GB / Kártyafüggetlen / 12Hó Garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest