- gban: Ingyen kellene, de tegnapra
- Luck Dragon: Asszociációs játék. :)
- MasterDeeJay: H110-es lapban 10.gen Comet Lake működhet?
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Gurulunk, WAZE?!
- Lalikiraly: SÜNI energiaital.
- sziku69: Fűzzük össze a szavakat :)
- Viber: ingyen telefonálás a mobilodon
- MasterDeeJay: Legújabb beszerzésem: Sata to Sas adapter
- sziku69: Szólánc.
Ú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
- Makulátlan PlayStation 5 lemezes kiadás + 2 játékkal, garanciával!
- AMD Ryzen 7 7700 - Új, 1 év garancia - Eladó!
- AMD Ryzen 7 5700X - Új, 3 év garancia - Eladó!
- Dell G3 3500 Gamer laptop szép állapotban dobozával. (i7 10750h, Gtx 1660ti, 16GB ram, 1TB ssd)
- Asus F15 FX516PR 15.6" FHD IPS i7-11370H RTX 3070 16GB 1TB NVMe magyar vbill gar
- ÁRGARANCIA!Épített KomPhone i5 14600KF 32/64GB DDR5 RAM RTX 5070Ti 16GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! Gigabyte B550M R7 5700X 32GB DDR4 512GB SSD RX 7700 XT 12GB DeepCool CC560 Seasonic 650W
- Azonnali készpénzes Sony Playstation 4 Slim / PS4 Pro felvásárlás személyesen/csomagküldéssel
- BESZÁMÍTÁS! Asus B760M i7 12700KF 32GB DDR4 512GB SSD RX 6800 16GB Rampage SHIVA FSP 700W
- Samsung Galaxy A13 64GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest