📄 3100.html
字号:
<html>
<head>
<title>Re: List View 可否让选到的该列整列反白 ?</title>
</head>
<BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">
<center>
<h1>Re: List View 可否让选到的该列整列反白 ?</h1>
</center>
<HR><p>
Posted by <a href="mailto:tester@ms17.hinet.net">tester</a> on June 04, 1998 at 00:55:15:<p>
In Reply to: <a href="2991.html"><b>List View 可否让选到的该列整列反白 ?</b></a> posted by Eric on May 27, 1998 at 07:00:49:<p>
<br>: 当 List View 有多栏位时(SubItem) 只有第一栏可点选且只有第一栏会反白<br>: 但我想要该列 任何栏位皆可点且整列反白,可能吗 ?<br>: vb6.0(sp3)<br>: Win95 (95a)<br>使用API<br>'Full_Row Selection In ListView Control<br>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<br>Private Const LVS_EX_FULLROWSELECT = &H20<br>Private Const LVM_FIRST = &H1000<br>Private Const LVM_GETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + 53<br>Private Const LVM_SETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + 54<p>Private Sub FullRowSelect(lvControl As ListView, ByVal status As Boolean)<br>Dim lvStyle As Long<br>Dim x As Long<br>x = SendMessage(lvControl.hwnd, LVM_GETEXTENDEDLISTVIEWSTYLE, 0&, ByVal lvStyle)<br>If status Then<br> lvStyle = lvStyle Or LVS_EX_FULLROWSELECT<br>Else<br> lvStyle = lvStyle - (lvStyle And LVS_EX_FULLROWSELECT)<br>End If<br>x = SendMessage(lvControl.hwnd, LVM_SETEXTENDEDLISTVIEWSTYLE, 0&, ByVal lvStyle)<br>End Sub<br>
<br>
<p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 3100-->
</ul><!--end: 3100-->
<br><HR><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -