- Mobil flották
- Azonnali mobilos kérdések órája
- Samsung Galaxy Watch6 Classic - tekerd!
- 3D nyomtatással csökkentené a kijelző gyűrődését az Apple iPhone Foldnál
- Okosóra és okoskiegészítő topik
- Poco X8 Pro Max - nem kell ide sem bank, sem akkubank
- Motorola Edge 50 Fusion - jó fogás
- Ennyit dobott egy telefon gyártási költségén a memóriakrízis a Xiaomi szerint
- Motorola Edge 70 - többért kevesebbet
- iPhone topik
Ú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
- Mobil flották
- Azonnali mobilos kérdések órája
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Heroes of Might & Magic: Olden Era
- Parfüm topik
- Autós topik
- Kormányok / autós szimulátorok topikja
- Hogy is néznek ki a gépeink?
- Vezeték nélküli fülhallgatók
- Budapest és környéke adok-veszek-beszélgetek
- További aktív témák...
- Dell Optiplex 7040 SFF, i5-6500,8GB DDR4,256GB SSD, WIN11
- Keresünk iPhone 13/13 Mini/13 Pro/13 Pro Max
- új NAGYakku!!! 6-10óra üzemidő, 5G! Dell Latitude 5330 i3-1215U - 16GB 512GB 13.3" FHD 1 év gar
- Dell Wyse 5470,14",FHD, N4100 CPU,8GB DDR4,128GB SSD,WIN11
- 246 - Lenovo LOQ (15IRX10) - Intel Core i7-13650HX, RTX 5060 (ELKELT)
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

