Hirdetés
- eBay-es kütyük kis pénzért
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- gerner1
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- MasterDeeJay: Egy nem átlagos Asus videókártya (GTX950M 2GB GDDR3)
- gban: Ingyen kellene, de tegnapra
- petipetya: Nagy chili topic. :)
- hcl: Google Drive csatolása szerveren / Nextcloud integráció
Ú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
- DJI Mini 3 (GL) Eladó 2028 01.06 Garanciális
- Apple iPhone 17e 256GB Bontatlan Független Összes Szín / 27% áfa
- MSI H81M-P33 PC, i5-4570 Proci, 8 GB DDR3 RAM, 120 GB ÚJ SSD
- Apple iPhone Air 256GB Bontatlan Független Összes Szín / 27% áfa
- Dell Precision 7560 AI -ra és Gamer/Munkára LAPTOP I7-11850H/ 32GB RAM / 1TB SSD / NVIDIA RTX A3000
- PlayStation Okosító Blu-ray lemezek - PS4 GoldHEN Loader / BD-JB Lapse és PS5 Auto Jailbreak AIO
- LG 27GS95QE - 27" OLED / QHD 2K / 240Hz & 0.03ms / 1000 Nits / NVIDIA G-Sync / AMD FreeSync
- Konzol felvásárlás!! Xbox Series S, Xbox Series X
- Samsung Galaxy S22 / 8/128GB / Kártyafüggetlen / 12Hó Garancia
- iPhone 11 Pro Max 64GB Midnight Green -1 ÉV GARANCIA - Kártyafüggetlen, MS4377
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
