- Bemutatkozott a Poco X7 és X7 Pro
- Vivo X200 Pro - a kétszázát!
- Yettel topik
- Honor Magic V3 - mágikus realizmus
- Csonkítás áldozata lett a nemzetközi Redmi Note 15 Pro+
- Ez lehet az Apple hajlítható telefonjának formája, mérete
- OnePlus 8T – fazonigazítás
- Megtartotta Európában a 7500 mAh-t az Oppo
- Xiaomi 15 - kicsi telefon nagy energiával
- Poco F7 – bajnokesélyes
Aktív témák
-
ArchElf
addikt
válasz
kovacsfeco
#1
üzenetére
Ide: [link]
Topic zárható.AE
-
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
- RTX 4070 ti I Ryzen 5 7600X I 2x16gb ddr5 6000mHz
- LAST MINUTE KARÁCSONY! 2 egyforma i7 GAMER GÉP! Ingyenes SOS kiszállítás (Bp.) !!!
- Asus ROG Zephyrus G16 Intel Core Ultra 9 185H/RTX 4060/16GB DDR5/1TB SSD eladó NÁLAM A LEGOLCSÓBBAN!
- MacBook Pro M1 13 inch 8/512GB magyar bill nálam a legolcsóbban
- Fujitsu 27" B27-8 TE Full HD 1920x1080 hófehér monitor állítható magasság, PIVOT, HDMI számla + gar
- BESZÁMÍTÁS! Huawei Watch 4 Pro eSIM okosóra garanciával hibátlan működéssel
- HIBÁTLAN iPhone 12 mini 64GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3818
- PC konfig /Ryzen 7 9800X3D, 32GB RAM, 1TB SSD/ akciós áron eladó! BeszámítOK!
- REFURBISHED és ÚJ - DELL Thunderbolt Dock WD22TB4 (210-BDTD)
- billentyűzetek - kiárusítás - Logitech, Corsair, ASUS
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi
persze ez csak a text ablak tartalmát menti el)

