Ceterum censeo Carthaginem esse delendam
Kijk eens naar de properties van de ListView, en zet de property RowSelect oid op True, ipv op false.
Dan wordt, als je op een item klikt, de volledige row geselecteerd ipv de eerste kolom.
Dan wordt, als je op een item klikt, de volledige row geselecteerd ipv de eerste kolom.
https://fgheysels.github.io/
Helaas, die property heb ik niet in eVB..whoami schreef op 18 januari 2003 @ 13:19:
Kijk eens naar de properties van de ListView, en zet de property RowSelect oid op True, ipv op false.
Dan wordt, als je op een item klikt, de volledige row geselecteerd ipv de eerste kolom.
Ceterum censeo Carthaginem esse delendam
.FullRowSelect dan?
interessant iets gevonden op google (is wel frans maar ja).
http://www.codeppc.com/evb/api/api016.htm
met name dit:
** ff weer goed doorgelezen.. ben een paar dingetjes vergeten neer te zetten
** dus heb ik het weer geedit **!!!
blijkt dat de listviewcontrol het niet standaard ondersteunt maar met behulp van
de API kun je dit wel instellen.. dit is precies wat de bovenstaande code doet..
ik hoop dat dit veel geholpen heeft..
dit is het resultaat:
interessant iets gevonden op google (is wel frans maar ja).
http://www.codeppc.com/evb/api/api016.htm
met name dit:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
| Declare Function SendMessage Lib "Coredll" Alias "SendMessageW" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public Declare Function GetFocus Lib "Coredll" () As Long Const LVM_GETEXTENDEDLISTVIEWSTYLE = &H1037 Const LVM_SETEXTENDEDLISTVIEWSTYLE = &H1036 Const LVS_EX_FULLROWSELECT = &H20 Sub LVFullRowSelect(ByVal wLV As ListViewCtrl) Dim h As Long Dim s As Long Rem On récupère le hWnd du ListView en lui donnant le focus et en Rem Utilisant l'API GetFocus() Call wLV.SetFocus h = GetFocus() Rem On récupère les paramètres de style courant du ListView dans s s = SendMessage(h, LVM_GETEXTENDEDLISTVIEWSTYLE, 0, 0) Rem On ajoute (si celà n'est pas déjà le cas) le FullRowSelect s = s Or LVS_EX_FULLROWSELECT Rem On enregistre les nouveaux paramètres Call SendMessage(h, LVM_SETEXTENDEDLISTVIEWSTYLE, 0, s) End Sub |
** ff weer goed doorgelezen.. ben een paar dingetjes vergeten neer te zetten
** dus heb ik het weer geedit **!!!
blijkt dat de listviewcontrol het niet standaard ondersteunt maar met behulp van
de API kun je dit wel instellen.. dit is precies wat de bovenstaande code doet..
ik hoop dat dit veel geholpen heeft..
dit is het resultaat:
[ Voor 142% gewijzigd door nIghtorius op 18-01-2003 13:49 . Reden: xtra code ]
Ryzen 9 5900X @ 5.1Ghz | MPG B550 GAMING CARBON | 96GB DDR4-3200 | RTX 4070TI | 2TB + 1TB m.2 SSD | 3x 1TB HDD | 1x 2TB SATA SSD | 32" G3223Q (4K/144Hz)
Relaxed ! Ik zal het proberen, ik laat van me horen !nIghtorius schreef op 18 januari 2003 @ 13:38:
.FullRowSelect dan?
interessant iets gevonden op google (is wel frans maar ja).
http://www.codeppc.com/evb/api/api016.htm
dit is het resultaat:
[afbeelding]
Ceterum censeo Carthaginem esse delendam
