14. maj 2005 - 21:51Der er
13 kommentarer og 1 løsning
Listbox vss ListView
jeg er igang med at lave et program, hvor jeg skal have markeret en hel linie i enten en listbox eller listview.
Lige pt. har jeg bygget det hele op i et listview, men den markere kun den første Kolonne (som ikke er et subitem) og hvordan får jeg den så til dette ??
og der udover er det sådan at jeg har bygget det op i et ListView Array altså sådanne ListView1(index) hvor index er mellem 0 og 9
Private Const LVS_SHAREIMAGELISTS As Long = &H40& Private Const GWL_STYLE As Long = (-16)
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Sub SetFullRowSelect(lv As ListView) With lv Call SetWindowLong(.hwnd, GWL_STYLE, GetWindowLong(.hwnd, GWL_STYLE) Or LVS_SHAREIMAGELISTS) Call SendMessage(.hwnd, &H1000 + 54, ByVal &H20, ByVal &H20) End With End Sub
Private Sub Form_Load() Call SetFullRowSelect(ListView1) End Sub
Så nu har jeg installeret den rigtige OCX fil og ændret mine ListViews til den OCX fil og nu virker det uden alle de API kald :D
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.