程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB6 >> ListView標題平面顯示

ListView標題平面顯示

編輯:VB6

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 Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
  (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
  (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const GWL_STYLE = (-16)
Public Const LVM_FIRST = &H1000
Public Const LVM_GETHEADER = (LVM_FIRST + 31
Public Const HDS_BUTTONS = &H2
 
'執行下列代碼放在你的創建ListView代碼中
  Dim r As Long
  Dim style As Long
  Dim hHeader As Long
 'get the handle to the listview header
  hHeader = SendMessageLong(ListView1.hwnd, LVM_GETHEADER, 0, ByVal 0&)
 'get the current style attributes for the header
  style = GetWindowLong(hHeader, GWL_STYLE)
 'modify the style by toggling the HDS_BUTTONS style
  style = style Xor HDS_BUTTONS   'set the new style and redraw the listview
  If style Then
   r = SetWindowLong(hHeader, GWL_STYLE, style)
  End If

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved