Ú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
- Fejhallgató erősítő és DAC topik
- Arc Raiders
- Tőzsde és gazdaság
- Highguard
- Milyen alaplapot vegyek?
- Huawei Pura 80 Pro – a másik zsebbe
- Beleremegett Hollywood Brad Pitt és Tom Cruise AI harcába
- Rezsicsökkentés, spórolás (fűtés, szigetelés, stb.)
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Építő/felújító topik
- További aktív témák...
- szinteÚJ 2030 Gar! Dell Pro Max 14 Ryzen AI 9 HX PRO 370 32GB LPDDR5X 512GB NVMe SSD
- Dell Pro Plus 14 Core Ultra 5 238V 32GB 1000GB FHD+ TouchScreen ProSupport Plus gar: 2028.10.07
- Apple iPhone 13 128 GB 88%
- Garmin Forerunner 965 - 1 hónap garanciával
- GIGABYTE GeForce VISION RTX 3070 8GB OC GDDR6 Videokártya
- Dell Pro Plus 14 Core Ultra 5 238V 32GB 1000GB FHD+ TouchScreen ProSupport Plus gar: 2028.10.07
- Eladó Apple iPhone 14 128GB kék / 12 hó jótállás
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7500F 32/64GB RAM RTX 5060 Ti 8GB GAMER PC termékbeszámítással
- Gamer PC-Számítógép! Csere-Beszámítás! R5 8400F / RTX 5060 / 16GB DDR5 / 1TB Nvme SSD!
- Dell Precision 7550 i7-10850H 32GB 512GB Nvidia RTX3000 6GB 1 év garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest


