- sellerbuyer: Nem veszélytelen a RAM duplázás de vajon megéri?
- MasterDeeJay: Gigabyte GA-B350M-D2 - AM4 lap 2016-ból amikor még nem volt Ryzen!
- eBay-es kütyük kis pénzért
- sziku69: Fűzzük össze a szavakat :)
- sellerbuyer: Milyen laptopot vegyek? Segítek: semmilyet!
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- urandom0: Új kedvenc asztali környezetem, az LXQt
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Mr Dini: Mindent a StreamSharkról!
Új hozzászólás Aktív témák
-
Polyák
tag
Megvan a megldás a kérdésemre ily késői órán!
Szal csak annyi hogy előre betöltöm a sorokat aztán hivatkozok rájuk!
Private Sub Combo1_Click()
If Combo1.Text = ''Magyar'' Then
Open ''c:\1.txt'' For Input As #1
Line Input #1, cimke1$
Line Input #1, lab1$
Line Input #1, lab2$
Line Input #1, lab3$
Line Input #1, txt1$
Line Input #1, txt2$
Close #1
End If
If Combo1.Text = ''Angol'' Then
Open ''c:\2.txt'' For Input As #2
Line Input #2, cimke1$
Line Input #2, lab1$
Line Input #2, lab2$
Line Input #2, lab3$
Line Input #2, txt1$
Line Input #2, txt2$
Close #2
End If
Me.Caption = cimke1$
Label1.Caption = lab1$
Label2.Caption = lab2$
Label3.Caption = lab3$
Text1.Text = txt1$
Text2.Text = txt2$
End Sub
Private Sub Form_Load()
Combo1.AddItem ''Magyar''
Combo1.AddItem ''Angol''
End Sub
Ha kiválsztom a nyelvet egyből beírja azon a nyelven! De ügyes vagyok!
Erre rájöhettem volna előbb is nem?
Új hozzászólás Aktív témák
Hirdetés
- A Temu diktál Magyarországon, a hazai e-kereskedők fulladoznak
- Apple MacBook
- Disney+
- iPad topik
- AMD Radeon RX 7700-as VGA-val gyarapította kínálatát az ASRock
- OLED TV topic
- A fociról könnyedén, egy baráti társaságban
- Futás, futópályák
- Kerékpárosok, bringások ide!
- Apple iPhone 16 - ígéretek földje
- További aktív témák...
- iPhone 14 Pro 128GB
- Asztali PC , R5 7600X , RX 6700 XT 12GB , 16GB DDR5 , 512GB NVME , 1TB HDD
- iPad Pro smart case tokok gyári!! iPad Pro és mini modellekhez
- Intel Core i9-9900K 8-Core 3.6GHz (16M Cache, up to 5.00 GHz) Processzor!
- Asztali PC , R5 8400F , RX 5700 XT , 16GB DDR5 , 512GB NVME , 500GB HDD
- Samsung Galaxy S22 128GB, Kártyafüggetlen, 1 Év Garanciával
- Samsung Galaxy S21 Ultra / 12GB RAM 256GB / Gyárifüggetlen / 12Hó Garancia
- Samsung Galaxy S20 FE 128GB, Kártyafüggetlen, 1 Év Garanciával
- BESZÁMÍTÁS! ASUS Z170 i7 6700K 16GB DDR4 512TB SSD RX 480 8GB DEEPCOOL D-SHIELD ADATA 600W
- BESZÁMÍTÁS! MSI B550M WIFI R9 5900X 32GB DDR4 1TB SSD RX 6800 XT 16GB Rampage SHIVA Chieftronic 750W
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest