[eVB]Selectiebalk in Listview

Pagina: 1
Acties:

  • Uiligheid
  • Registratie: December 2000
  • Laatst online: 20-08 15:21

Uiligheid

alle gekheid op een stokje

Topicstarter
Ok,

Lijkt een beetje triviaal probleem, is het eigenlijk ook, maar ik krijg in mijn app in eVB alleen een selectiebalk op de eerste kolom. Ik heb geen flauw idee hoe ik dit verander. Ik wil het hebben zoals hier onder:

Afbeeldingslocatie: http://msdn.microsoft.com/library/en-us/dnppc2k/html/T_corpxtnd8.gif

Maar zoals gezegd, ik krijg alleen de selectiebalk op de eerste kolom. Iemand suggesties?

Ceterum censeo Carthaginem esse delendam


  • whoami
  • Registratie: December 2000
  • Laatst online: 08:00
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.

https://fgheysels.github.io/


  • Uiligheid
  • Registratie: December 2000
  • Laatst online: 20-08 15:21

Uiligheid

alle gekheid op een stokje

Topicstarter
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.
Helaas, die property heb ik niet in eVB.. |:(

Ceterum censeo Carthaginem esse delendam


  • nIghtorius
  • Registratie: Juli 2002
  • Laatst online: 21-08 16:50

nIghtorius

Poef!

.FullRowSelect dan?

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:
Afbeeldingslocatie: http://www.codeppc.com/evb/api/images/listview2.gif

[ 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)


  • Uiligheid
  • Registratie: December 2000
  • Laatst online: 20-08 15:21

Uiligheid

alle gekheid op een stokje

Topicstarter
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]
Relaxed ! Ik zal het proberen, ik laat van me horen !

Ceterum censeo Carthaginem esse delendam