- Napvihar miatt akadoznak a SpaceX Starlink műholdak
- Mikrotik routerek
- ASUS routerek
- Proxmox VE
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Jó dolog az AI, de emberek nélkül nincs játékfejlesztés
- Linux kezdőknek
- Crypto Trade
- Sweet.tv - internetes TV
- A pénzügyi hatóságok helyett ír hamis üzenetet az AI
Új hozzászólás Aktív témák
-
blemidon
tag
Hi!
Az elemre kattintás vizsgálata egyszerű: a listbox Click() metódusában le tudod kérdezni az éppen aktuális elem indexét:
Private Sub List1_Click()
MsgBox List1.ListIndex
End Sub
Ennyi.
[Szerkesztve] -
blemidon
tag
Amit meg kifelejtettem:
A ''különböző értékeket megadni''nál arra gondolsz hogy hogyan lehet feltölteni?
Mert az se bonyesz:
List1.AddItem ''text'' -
blemidon
tag
A listboxban 5*6 stb formátumban vannak az elemek.
A következő függvény egy ilyen stringet alakít vissza az eredménnyé:
Private Function ListItemFromText(s As String) As Integer
Dim x As Integer
Dim s1 As String, s2 As String
s1 = Left(s, InStr(s, ''*'') - 1)
s2 = Right(s, InStr(s, ''*'') - 1)
ListItemFromText = Val(s1) * Val(s2)
End Function
Meghyvod az épp törölni kívánt listelemmel, és visszaadja hogy mennyi annak a számértéke, ezt már ki tdod vonni a q-ból. -
blemidon
tag
Ez nem csak arra jó. Ha jobban megnézed, ez 1 eljárás, ami a listboxod bármelyik elemének értékét adja vissza számként. Ha törölsz 1 elemet, akkor tudod hogy melyik volt az (az éppen kijelölt elemet a List1.Text függvénnyel kérdezheted le. Amit már írtam régebben hogy a kijelölt elem indexe, ugyanott lekérdezhető az értéke is ezzel) Mivel az éppen kijelöltet fogod törölni, ezt az értéket átadod ennek a függvénynek, és visszakapod a számértékét integerben.
Private Sub List1_Click()
MsgBox List1.ListIndex
MsgBox ListItemFromText(List1.Text)
End Sub
Itt simán q-ból kivonod a ListItemFromText(List1.Text)-et, és kész. Az épp az az elem ami ki van jelölve, tehát az aktuális törlendő. -
blemidon
tag
ListBox, ComboBox és MS FlexGrid első indexe 0, tehát az első elemet 0-s indexszel tedd be, ne egyessel. Nem tudsz kapásból pl 5. helyre tenni, ha nincs előtte annyi elem.
Linuxon ezek nem fognak menni, miven windowsos programok. Nem tudom, de sztem biztos van már linuxra vmilyen VB compiler, de azt sztem nem a Microsoft írta -
blemidon
tag
ActiveX controlok vannak emailezésre, MAPISession és MAPIMessages néven, azokat kéne megnézned.
Baloldalt ToolBaron jobbgomb, Components, és a Controls fülön beixeled a Microsoft MAPI Controls 6.0-t, akkor meg fognak jelenni ezek is.
Új hozzászólás Aktív témák
- Opel topik
- Samsung Galaxy A54 - türelemjáték
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Kerékpárosok, bringások ide!
- TCL LCD és LED TV-k
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Filmvilág
- Milyen autót vegyek?
- Napvihar miatt akadoznak a SpaceX Starlink műholdak
- További aktív témák...
- Laptop Lenovo ThinkPad X280 Magyar billentyűzettel win 10 pro INGYEN SZÁLLÍTÁS MONITORCENTER.hu
- Lenovo Thinkpad T480 Magyar billentyűzettel INGYEN SZÁLLÍTÁS MONITORCENTER.hu
- Lenovo Thinkpad L470 Magyar billentyűzettel INGYEN SZÁLLÍTÁS !! MONITORCENTER.hu
- HP ELITEBOOK 840 G4 14,1" I5-7200U, 8GB RAM, 120GB SSD
- HP Elitebook 840 G4 G5 G7 450 G8 850 G7 G8 650 G9 MAGYAR BIL.!!! i5 i7 7-12. gen. 3 hó gar
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs