请教,如何设置使得ListView能够一次选择整行记录

Question

在VC中对ListCtrl可以调用SetExtendedStyle函数制定LVS_EX_FULLROWSELECT 做到上面这点,但在VB中没有找到相关函数和属性,请教各位,先谢了

Answer 1

ListView1.FullRowSelect = True

Answer 2

右击Listview控件，
选择属性菜单。
整行选择 前打上勾就行了。

Answer 3

这个要看你用的是哪个版本的ListView了,如果是6.0版本的则如上面两位所说.如果是5.0版本的ListView,则需要写代码设置,具体如下:Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const LVM_FIRST As Long = &H1000
Private Const LVM_SETEXTENDEDLISTVIEWSTYLE As Long = LVM_FIRST + 54
Private Const LVM_GETEXTENDEDLISTVIEWSTYLE As Long = LVM_FIRST + 55Private Const LVS_EX_FULLROWSELECT As Long = &H20Public Function LVSetStyleEx(lv As ListView, ByVal NewStyle As LVStylesEx, ByVal NewVal As Boolean) As Boolean
   Dim nStyle As Long
   
   ' get the current ListView style
   nStyle = SendMessage(lv.hWnd, LVM_GETEXTENDEDLISTVIEWSTYLE, 0&, ByVal 0&)
   
   If NewVal Then
      ' set the extended style bit
      nStyle = nStyle Or NewStyle
   Else
      ' remove the extended style bit
      nStyle = nStyle Xor NewStyle
   End If
   
   ' set the new ListView style
   LVSetStyleEx = CBool(SendMessage(lv.hWnd, LVM_SETEXTENDEDLISTVIEWSTYLE, 0&, ByVal nStyle))
End Function

Answer 4

多谢xDAVIDx(DAVID) 
我用的是5.0版的,6.0版的那么简单也就不会上来问了,多谢几位