Hirdetés
- Samsung Galaxy A54 - türelemjáték
- A piac legerősebb kameráját ígéri a Xiaomi 17 Ultra
- Yettel topik
- Xiaomi 14 - párátlanul jó lehetne
- Android szakmai topik
- Szép órával jubilál a Huawei Watch
- VoLTE/VoWiFi
- Az 5 legnagyobb bénázás a mobilpiacon idén
- „Új mérce az Android világában” – Kezünkben a Vivo X300 és X300 Pro
- Bemutatkozott a Poco X7 és X7 Pro
Aktív témák
-
kovacsfeco
csendes tag
Sziasztok!
Visual basicben szeretném menteni egy list ablak tartalmát,de sehogy sem jön össze.TEXT ablak tartalmát már tudom menteni,be is tudom olvastatni,és módosítani is tudom.De ugyanezzel az eljárással a list ablak tartalmát nem sikerül mentenem.A text,és a list ablak tartalmát két külön fájlba menteném.!!!Valaki tudna segíteni abban,hogy a list ablak nevét hova,és hogyan hejettesítsem be hogy működjön?
Írtam egy modult,ami így néz ki
persze ez csak a text ablak tartalmát menti el)
Type adatok
árunév As String * 50
End Type
Public adat As adatok, adat1 As adatok__________________________________________________________________________
És ezt így folytattam:adat.árunév=text1.text
fsz13 = FreeFile
Open App.Path + "\anyag.dat" For Random As #fsz13 Len = Len(adat)
rec = LOF(fsz13) \ Len(adat)
Put #fsz13, rec + 1, adat
Close fsz13
fsz13 = FreeFile
Combo1.Clear
Open App.Path + "\anyag.dat" For Random As #fsz13 Len = Len(adat)
rec = LOF(fsz13) \ Len(adat)
For a = 1 To rec
Get #fsz13, a, adat
Combo1.AddItem adat.árunév
Combo1.ItemData(Combo1.NewIndex) = a
Next a
Close fsz13
ELŐRE IS KÖSZI!
Aktív témák
- Lenovo Thinkpad P1 Gen 6 - i9-13980HX, 32GB, 2TB SSD, 16" WQUXGA (3840 2400), RTX 4090
- 15.gen! Intel Core Ultra 9 285K +16-32GB DDR5 RAM +hűtött VRM-es Z890 lap! GAR/SZÁMLA (a Te nevedre)
- OP AudioCodes C450HD Ip Phones - Szines kijelzős - Teams/ Zoom telefon - Új dobozos
- ATEN Cat 5 KVM over IP Switch Altusen KH1508AI - Új ára 284.000Ft
- AirPort Extreme 802.11n (3rd Generation) Model A1301 -
- ÚJ AKKU! Ár/ÉRTÉK BAJNOK! Dell Latitude 5330 i3-1215U 6mag! 16GB 512GB 13.3" FHD 1 év gar
- HP ProDesk 600 G5 i5-9500 16GB 512GB 1 év garancia
- Apple iPhone 13 Pro / 128GB / Kártyafüggetlen / 12Hó garancia / Akku : 100%
- BESZÁMÍTÁS! MSI B450M R5 5600X 32GB DDR4 512GB SSD RTX 3070 Ti 8GB Zalman S2 TG GIGABYTE 750W
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7800X3D 32/64GB RAM RTX 5070Ti 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: Laptopszaki Kft.
Város: Budapest
persze ez csak a text ablak tartalmát menti el)

