Hirdetés
- Milyen okostelefont vegyek?
- Ennyit szűkít az X300 Ultra a telepen Európában
- Nincs Nothing AI szemüveg? Fogd meg a söröm!
- Poco X8 Pro Max - nem kell ide sem bank, sem akkubank
- Stílussal és friss szenzorokkal futott be a Huawei Watch GT 5
- Xiaomi 15T Pro - a téma nincs lezárva
- Szívós, szép és kitartó az új OnePlus óra
- Drasztikus változást mutat a Sony mobilja az első képeken
- One mobilszolgáltatások
- Xiaomi 13 - felnőni nehéz
Ú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
- Autós topik
- Intel Core Ultra 3, Core Ultra 5, Ultra 7, Ultra 9 "Arrow Lake" LGA 1851
- Allegro vélemények - tapasztalatok
- Milyen okostelefont vegyek?
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Formula-1
- One otthoni szolgáltatások (TV, internet, telefon)
- Apple MacBook
- Luck Dragon: Óraátállítás
- 50 év után kilőtt négy űrhajós a Holdra
- További aktív témák...
- Xiaomi Redmi Note 8 Pro 64GB, Kártyafüggetlen, 1 Év Garanciával
- Apple iPhone 12 64GB, Kártyafüggetlen, 1 Év Garanciával
- Apple iPhone 13 Pro Max 128GB, Kártyafüggetlen, 1 Év Garanciával
- LG SN8Y 5.1.2 Dolby Atmos soundbar MERIDIAN technológiával hangprojektor
- Apple iPhone 13 128GB, Kártyafüggetlen, 1 Év Garanciával
- Apple iPhone 13 Pro Max /128GB / Kártyafüggetlen / 12Hó Garancia / Akku:83%
- Xiaomi Redmi Note 12 Pro 5G, Kártyafüggetlen, 1 Év Garanciával
- iPhone 11 Pro Max 64GB Midnight Green -1 ÉV GARANCIA - Kártyafüggetlen, MS4377
- szinteÚJ Lenovo ThinkPad L14 Gen5 i7 155U 32GB 1TB FHD+
- HP EliteBook 640 G11 Core Ultra 5 125U 32GB 1TB FHD 1 év gar
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

