- gban: Ingyen kellene, de tegnapra
- Geri Bátyó: Agglegénykonyha 5 – Edények és konyhai eszközök
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- sivi151: Framework csendesen felvette a magyar billentyűzetet
- aquark: A ló túloldalán (Intel-AMD szivatás)
- sellerbuyer: Milyen laptopot vegyek? Segítek: semmilyet!
- Luck Dragon: Asszociációs játék. :)
- Amazon Kindle JailBreak
- Imilenni: Egy kis depi (szösszenet inkább), remélem elfér itt :) 3#
Ú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
- Honor 200 Pro - mobilportré
- AMD Navi Radeon™ RX 9xxx sorozat
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Pécs és környéke adok-veszek-beszélgetek
- Olcsó, gasket mountos klaviatúra a Logitech égisze alatt
- gban: Ingyen kellene, de tegnapra
- Borderlands 4
- Futás, futópályák
- Merész dizájn és új teleobjektív az iPhone 17 Pro mobilokban
- DJI topic
- További aktív témák...
- Új elekrtomos rollerek és e-bike dobozban, 1 év garanciával:
- FÓLIÁS, szinteÚJ SKY BLUE MacBook Air 13.6" M4 10C/8G 16GB 512GB 1 év gar.
- Asus ProArt Gamer PC Intel Core i7 14700HX/RTX 4080 Super/64GB RAM/4TB SSD konfig eladó jó áron
- 5530 15.6" FHD IPS i5-1235U 16GB 256GB NVMe magyar vbill ujjlolv IR kam gar
- AMD RYZEN 3 - 5 / DDR4 / NVME SSD / HDMI / Normál magas vga is rakhato bele , nem SFF méret
- BESZÁMÍTÁS! MSI B450 R7 5700X 32GB DDR4 512GB SSD RTX 3070 Ti 8GB Zalman Z1 Plus Corsair 750W
- Huawei P30 Lite 128GB, Kártyafüggetlen, 1 Év Garanciával
- Vállalom Xiaomi Okoskamerák szoftveres javíttását
- GYÖNYÖRŰ iPhone 13 mini 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3318
- Telefon felvásárlás!! Xiaomi Redmi Note 12, Xiaomi Redmi Note 12 Pro, Xiaomi Redmi Note 12 Pro+
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest