敬业的IT人 互联网 佚名 2008-1-8 16:40:06

·开机就显示：DISK BOOT FAILURE INSER
·在DOS下正确显示中文信息
·系统显示“网络受限制或无连接”是否
·U盘找不到空间,u盘容量显示为0,u盘可
·Excel单元格中正确显示身份证号的技巧
·实用技巧：Excel中多张表格同时显示的
·XP小技巧：不用软件就可显示星期
·该网页上的问题可能使其无法正常显示
·在Excel中突出显示重复数据
·验证码无法显示，网页无法显示验证码

ListView标题平面显示（VB） 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
进入讨论组讨论。

最新文章

在listview 控件标题上添加图标的模块 （VB）[01-08]

自动调整listview标题头宽度的二种方法[01-08]

ListView控件搜索函数(VB)[01-08]

vi或者vim文件加密和乱码的处理[01-08]

如何使用sys用户remove其他用户的job[01-08]

完美的数据库PostgreSQL7.4的安装[01-08]

相关文章