- gban: Ingyen kellene, de tegnapra
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- eBay-es kütyük kis pénzért
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Rap, Hip-hop 90'
- bitpork: Phautós tali a Balcsinál 2025 Augusztus 2 napján (szombat)
- Meggyi001: Nyilvános wc-k.....még mindig hiánypótló...
Hirdetés
Talpon vagyunk, köszönjük a sok biztatást! Ha segíteni szeretnél, boldogan ajánljuk Előfizetéseinket!
Ú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
- Székesfehérvár és környéke adok-veszek-beszélgetek
- Hivatalosan is bemutatta a Google a Pixel 6a-t
- Nintendo Switch 2
- gban: Ingyen kellene, de tegnapra
- Kerékpársportok
- Lakáshitel, lakásvásárlás
- Ózongenerátor a háztartásban
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- BestBuy topik
- Kompakt vízhűtés
- További aktív témák...
- SPIRIT OF GAMER Race Wheel PRO 2 kormány minden tartozékával mekgímélt állapotban eladó!
- Playstation 5 Drive Edition 825GB (CFI-1116A), 6 hónap garanciával, Bp-i üzletből eladó!
- Apple Watch Series 7 41mm NIKE GPS
- Acer Nitro XV340CKP WQHD 144HZ IPS KALIBRÁLT
- Playstation 5 Slim Disc Edition 1TB , 6 hó teljeskörű garanciával, Bp-i üzletből eladó!
Állásajánlatok
Cég: FOTC
Város: Budapest