- AMD K6-III, és minden ami RETRO - Oldschool tuning
- A Windows 11 lett az úr az asztali PC-k piacán
- Mini-ITX
- AMD vs. INTEL vs. NVIDIA
- Bluetooth hangszórók
- Samsung LCD és LED TV-k
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Kompakt vízhűtés
- Kezdő fotósok digitális fényképei
- ThinkPad (NEM IdeaPad)
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 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
- Hamarosan rézhiánytól szenvedhet az egész chipgyártás
- BestBuy topik
- Töltőtoll kedvelők/használók topicja
- Kiszivárgott a Pixel 10 Pro
- Kazy Computers vélemények - tapasztalatok
- Linux kezdőknek
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- A Windows 11 lett az úr az asztali PC-k piacán
- Napelem
- MasterDeeJay: SATA to SAS adapter
- További aktív témák...
- Azonnali készpénzes AMD Radeon RX 5000 sorozat videokártya felvásárlás személyesen / csomagküldéssel
- Samsung Galaxy A12 64GB, Kártyafüggetlen, 1 Év Garanciával
- Csere-Beszámítás! Sapphire Pure RX 7700XT 12GB GDDR6 Videokártya! Bemutató Darab!
- DELL Universal Dock D6000 docking station (452-BCYH) (DisplayLink)
- BESZÁMÍTÁS! 2TB Kingston KC3000 NVMe SSD meghajtó garanciával hibátlan működéssel
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest