Hirdetés
- Luck Dragon: Asszociációs játék. :)
- Ketogén étrend
- sziku69: Fűzzük össze a szavakat :)
- mefistofeles: PC házat cseréltem, avagy tényleg olyan híg-e az olcsó hús leve?
- gban: Ingyen kellene, de tegnapra
- eldiablo: 30 év után szakítottunk, de azért még beszélünk...
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Samus: Oldschool játékos konfig a memóriaválság idején
- bitpork: Ha Isten létezik...
- koxx: Bloons TD5 - Tower Defense játék
Új hozzászólás Aktív témák
-
#90999040
törölt tag
válasz
dani850430
#1364
üzenetére
Ha csak 1-szerű sorbarendezést szeretnél:
Private Sub Command2_Click()
Dim rendezendoe As Boolean
Dim szamlalo As Integer
Dim temp As String
Do
rendezendoe = False
For szamlalo = 0 To List1.ListCount - 2
If (List1.List(szamlalo) > List1.List(szamlalo + 1)) Then
rendezendoe = True
temp = List1.List(szamlalo)
List1.List(szamlalo) = List1.List(szamlalo + 1)
List1.List(szamlalo + 1) = temp
End If
Next
Loop Until rendezendoe = False
End Sub -
martonx
veterán
válasz
dani850430
#1332
üzenetére
Az biztos, hogy működik a dolog visszafelé is, INSERT sql paranccsal tudsz az adatbázisodba adatokat írni.
Léptetést rs.next-el tudsz csinálni, ha jól sejtem, vagy valami ilyesmivel, sose használtam VB6-ot.
-
shev7
veterán
válasz
dani850430
#1238
üzenetére
tenyleg nem.
-
martonx
veterán
válasz
dani850430
#1232
üzenetére
Oké, nincs is vele baj. Én a mai napig is rendszeresen VBscriptben programozok.
.Net-et csak komolyabb alkalmazások esetén veszem elő.
Viszont rendszeresen elcsodálkozok a VB6 életén. Így 2010-ben. -
martonx
veterán
válasz
dani850430
#1230
üzenetére
Jól látom, hogy VB6-tal próbálkozol?
-
martonx
veterán
válasz
dani850430
#1228
üzenetére
Szia!
Ha jól értelek, a list1 indexét kell lekérned (mondjuk selection changed eseménynél), és list2 indexét egyenlővé tenned. Esetleg valami kódot mellékelnél, hogy ne csak a levegőbe beszéljek?
-
martonx
veterán
válasz
dani850430
#1210
üzenetére
Röviden: erre nincs lehetőség.
Hosszabban: Kerekíteni tudsz 4 tizedes pontosságra, és úgy kiíratni.
Új hozzászólás Aktív témák
Hirdetés
- Xiaomi 15T Pro 12/512 Fekete. Alza vásárlás 36 hó garancia.
- i9 10900, 48GB DDR4 Kingston Hyperx Fury (3x16GB), Gigabyte H470M DS3H, Be quiet, Zalman
- Apple Watch Series 11 46MM 100% Akkuval Fekete színben 2026.09.19-ig Apple Garanciával
- Asus Zenfone 10 16/512 garanciával - mint az új
- Thinkpad X13 Gen3 13.3" FHD+ IPS i7-1265U 16GB 512GB NVMe gar
- Jura Impressa S90 Automata kávégép 6 hónap Garancia Beszámítás Házhozszállítás
- HIBÁTLAN iPhone 14 Pro Max 256GB Purple -1 ÉV GARANCIA -Kártyafüggetlen, MS3932
- Telefon felvásárlás!! Xiaomi Redmi Note 13, Xiaomi Redmi Note 13 Pro, Xiaomi Redmi Note 13 Pro+
- iPhone 14 Plus 128GB Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS4308, 100% Akkumulátor
- Új MSI Modern 15 FHD IPS Ryzen5 7530U 4.5Ghz 16GB 512GB SSD Radeon RX Vega7 Graphics Win11 Garancia
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest

