- Motorola Edge 50 Neo - az egyensúly gyengesége
- iPhone topik
- Xiaomi 14T Pro - teljes a család?
- Yettel topik
- Google Pixel topik
- Google Pixel 10 Pro XL – tíz kicsi Pixel
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Meglepetés az iPhone Air hajlítópróbáján
- Apple Watch Sport - ez is csak egy okosóra
- Samsung Galaxy S25 - végre van kicsi!
Ú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
- Motoros topic
- Elektromos autók - motorok
- Subaru topik
- BMW topik
- Béta iOS-t használók topikja
- Apple asztali gépek
- gban: Ingyen kellene, de tegnapra
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Eredeti játékok OFF topik
- További aktív témák...
- 5530 15.6" FHD IPS i5-1235U 16GB 256GB NVMe magyar vbill ujjlolv IR kam gar
- AMD RYZEN 3 - 5 / DDR4 / NVME SSD / HDMI / Normál magas vga is rakhato bele , nem SFF méret
- X1 Yoga 6th 14" 4K+ IPS érintői7-1185G7 16GB 256GB NVMe ujjlolv IR kam aktív toll gar
- Gamer PC-Számítógép! Csere-Beszámítás! I7 12700E / RTX 3070Ti / 32GB DDR5 / 1 TB SSD
- SAMSUNG Odyssey 49" OLED G9 LS49DG950SUXDU monitor - 240hz
- iKing.Hu - Samsung Galaxy Tab S8 Graphite Használt, karcmentes állapotban
- HIBÁTLAN iPhone 13 mini 256GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3408
- Acer Nitro 5 - AN515 - 15,6"FHD IPS 144Hz - Ryzen 7 5800H - 24GB - 1,5TB SSD - RTX 3060 6GB - Win11
- Samsung Galaxy S24 FE / 8/128GB / Kártyafüggetlen / 12Hó Garancia
- ÁRGARANCIA!Épített KomPhone Ryzen 7 9700X 32/64GB RAM RX 9070 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest