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
- Formula-1
- Okos otthon - Home Assistant, openHAB és más nyílt rendszerek
- Azonnali fotós kérdések órája
- Autós topik
- Macska topik
- A fociról könnyedén, egy baráti társaságban
- Samsung LCD és LED TV-k
- Megújult mobilos felület, fórumos ráncfelvarrás a PROHARDVER! lapcsaládon
- Wuthering Waves
- Parfüm topik
- További aktív témák...
Új fizetett hirdetések
- DIY 2x15"-os passzív zárt mélyláda eladó
- Eladó egy pixel 8 128/8
- Saeco Intelia Evo Black I Gőzölőkar I Szervizelve I Garancia I Számla I Beszámítás
- Eladó megkímélt, szép állapotú Nikon D750 full-frame (FX) DSLR váz
- Kingston Fury / G.Skill Ripjaws V 64GB 32GB 2x32GB 2x16GB 4x16GB DDR4 3200MHz CL16 RAM memória BAZÁR
Üzleti előfizetők hirdetései
- iPhone 13 mini 128GB Green -1 ÉV GARANCIA -Kártyafüggetlen, MS3896, 95% Akkumulátor
- BESZÁMÍTÁS! Gigabyte B450M R5 5500 32GB DDR4 512GB SSD RTX 3060 12GB Rampage SHIVA Chieftec 700W
- Azonnali készpénzes AMD Ryzen 1xxx 2xxx 3xxx 5xxx processzor felvásárlás személyesen / csomagküldés
- Akciós kisWorkstation! Dell Precision 3570 i7-1255U 4.7GHz / 16GB / 512GB / Quadro T550 4GB FHD 15"
- Eladó jogtiszta, Windows 11/10, Office 2019/2021/2024, Fizikai és Digitális licencek, Számlával.
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest