- D1Rect: Nagy "hülyétkapokazapróktól" topik
- btz: Internet fejlesztés országosan!
- Luck Dragon: Asszociációs játék. :)
- hdanesz: Hyundai Ioniq 28kWh - Első benyomások - második felvonás
- sziku69: Fűzzük össze a szavakat :)
- gban: Ingyen kellene, de tegnapra
- koxx: Bloons TD5 - Tower Defense játék
- sziku69: Szólánc.
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- sto1911: Pinball FX3 PH! verseny
Új hozzászólás Aktív témák
-
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. -
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
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
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
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
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]
Új hozzászólás Aktív témák
Hirdetés
- AMD Navi Radeon™ RX 9xxx sorozat
- Counter-Strike: Global Offensive (CS:GO) / Counter-Strike 2 (CS2)
- Ilyen lesz a Fairphone 6
- Milyen videókártyát?
- Székesfehérvár és környéke adok-veszek-beszélgetek
- Építő/felújító topik
- Fujifilm X
- Milyen billentyűzetet vegyek?
- Autós topik
- Fejhallgató erősítő és DAC topik
- További aktív témák...
- Eladó konfig! Ryzen 7 7800X3D 2TB SSD 64GB DDR5 RX9070XT 16GB!
- Új, makulátlan állapotú Samsung Galaxy Buds FE, fehér, fél év garancia
- Új, makulátlan állapotú Samsung Galaxy Watch7 44mm ezüst, 2 év garancia
- Új, makulátlan állapotú Samsung Z Fold 6 256GB Tengerészkék, független, 2 év garancia
- Használt TP-Link Deco M4 - AC1200 Router (Mesh-ként is használható)
- Bomba ár! Lenovo ThinkPad T450s - i5-5GEN I 8GB I 128GB SSD I 14" HD+ I Cam I W10 I Garancia!
- BESZÁMÍTÁS! ASUS ROG STRIX X570-E Gaming alaplap garanciával hibátlan működéssel
- ÁRGARANCIA!Épített KomPhone i5 13400F 32/64GB RAM RTX 4060 Ti 8GB GAMER PC termékbeszámítással
- Csere-Beszámítás! Prémium vizhűtéses számítógép! I9 11900K / RTX 3090 / 64GB DDR4 / 1TB SSD
- ÁRGARANCIA! Épített KomPhone Intel i9 14900KF 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged