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 kipersze 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
- Milyen videókártyát?
- A fociról könnyedén, egy baráti társaságban
- bitpork: MOD Júni 28- Augusztus 2- szombat jelen állás szerint.
- Kuponkunyeráló
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- AMD vs. INTEL vs. NVIDIA
- BMW topik
- CADA, Polymobil, és más építőkockák
- Egyéni arckép 2. lépés: ARCKÉPSZERKESZTŐ
- Motoros topic
- További aktív témák...
- NJOY Aster 3K 3000VA/2700W Rack Szünetmentes Táp
- Billentyűzet magyarosítás magyarítás lézerrel is! 10-15ezer közötti áron! Óriási betűkészeletünk van
- Eredeti Lenovo 300W töltők - ADL300SDC3A
- Telefon felvásárlás!! iPhone X/iPhone Xs/iPhone XR/iPhone Xs Max
- Bomba ár! Dell Latitude 5310 - i5-10GEN I 16GB I 256SSD I HDMI I 13,3" FHD I Cam I W11 I Garancia!
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest