module5.bas

来自「对个人信息进行详细的登记」· BAS 代码 · 共 62 行

Attribute VB_Name = "Module5"
Option Explicit

Public Const LVM_FIRST = &H1000
Public Const LVM_SETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + 54
Public Const LVM_GETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + 55
Public Const LVS_EX_FULLROWSELECT = &H20
Public Const LVS_EX_GRIDLINES = &H1

Public Const LVS_EX_ONECLICKACTIVATE = &H40
Public Const LVS_EX_TWOCLICKACTIVATE = &H80

Public Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" _
   (ByVal hwnd As Long, _
    ByVal Msg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Long) As Long
Public Sub ListViewStyle_Click()
   Dim rStyle As Long
   Dim r As Long
 '使ListView控件可以整行选择
   rStyle = SendMessageLong(frmData.ListView1.hwnd, LVM_GETEXTENDEDLISTVIEWSTYLE, 0&, 0&)
      'rStyle = rStyle Xor LVS_EX_FULLROWSELECT'不可以整行选择
      
      rStyle = rStyle Or LVS_EX_FULLROWSELECT '可以整行选择
          'set the new ListView style
   r = SendMessageLong(frmData.ListView1.hwnd, LVM_SETEXTENDEDLISTVIEWSTYLE, 0&, rStyle)
End Sub
Public Sub ListViewStyleBiaoG_Click()
   Dim rStyle As Long
   Dim r As Long
   '使ListView控件有表格风格
   rStyle = SendMessageLong(frmData.ListView1.hwnd, LVM_GETEXTENDEDLISTVIEWSTYLE, 0&, 0&)
   
      'rStyle = rStyle Xor LVS_EX_GRIDLINES '没有表格风格
      rStyle = rStyle Or LVS_EX_GRIDLINES '有表格风格
      
      'set the new ListView style
   r = SendMessageLong(frmData.ListView1.hwnd, LVM_SETEXTENDEDLISTVIEWSTYLE, 0&, rStyle)
End Sub
Public Sub ListViewStyleOne_Click() '允许单击选择
   Dim rStyle As Long
   Dim r As Long
   'get the current ListView style
    rStyle = SendMessageLong(frmData.ListView1.hwnd, LVM_GETEXTENDEDLISTVIEWSTYLE, 0&, 0&)
     'set the extended style bit
    rStyle = rStyle Or LVS_EX_ONECLICKACTIVATE
   'set the new ListView style
    r = SendMessageLong(frmData.ListView1.hwnd, LVM_SETEXTENDEDLISTVIEWSTYLE, 0&, rStyle)
End Sub

Public Sub ListViewStyleTwo_Click() '允许双击选择
    Dim rStyle As Long
    Dim r As Long
   'get the current ListView style
    rStyle = SendMessageLong(frmData.ListView1.hwnd, LVM_GETEXTENDEDLISTVIEWSTYLE, 0&, 0&)
     'set the extended style bit
    rStyle = rStyle Or LVS_EX_TWOCLICKACTIVATE
   'set the new ListView style
    r = SendMessageLong(frmData.ListView1.hwnd, LVM_SETEXTENDEDLISTVIEWSTYLE, 0&, rStyle)
End Sub