【VBA入门点滴】listview查找并在第一行高亮显示

hhzjxss · 发表于 2008-7-25 08:09

有人要帮忙，写一段利用listview查询，并显示查找到的特定行！我做了一个，只实现了部分功能：1、打开窗体时，listview加载“资料库”工作表中的所有客户资料；2、双击listview某行，可以将内容添加到“数据库”工作表的最后一行；3、在文本框中输入姓名，通过“查询”按钮可以查询姓名，并将查找到的行，以一行高亮显示，或将查找到的行，在第一行高亮显示。 现在的问题是：1、查询时，能否将找到的显示在第一行？而且要求显示的行的颜色可以设置在其他颜色？2、或者，查询时，只显示查找到的行，其他的都不要显示？ 在戏子版主的帮助中，问题已经解决！（见11楼附件和动画）

oNpuOvJH.rar (21.69 KB, 下载次数: 311)

hhzjxss · 发表于 2008-7-25 08:09

提问的帖子在这里： <div style="FLOAT: left;"><a title="[求助]listview控件示例——请帮忙写代码！！" href="http://www.excelpx.com/forum.php?mod=viewthread&tid=64310&replyID=&skin=1" target="_blank">[求助]listview控件示例——请帮忙写代码！！</a> 作者：<a href="http://www.excelpx.com/dispuser.asp?id=183858" target="_blank">sunkevin</a>   浏览：30   回复：1  →   <a href="http://www.excelpx.com/forum.php?mod=forumdisplay&fid=5" target="_blank">『VBA程序开发』 </a>2008-7-24 16:00:00   <hr style="BORDER-TOP: #b3b3b3 1px dashed; WIDTH: 98%; BORDER-BOTTOM: 0px; HEIGHT: 0px;"/><hr/></div>

zhj1978 · 发表于 2008-7-25 11:32

hhzjxss · 发表于 2008-7-26 08:43

现在的问题是：1、查询时，能否将找到的显示在第一行？而且要求显示的行的颜色可以设置在其他颜色？2、或者，查询时，只显示查找到的行，其他的都不要显示？

hhzjxss · 发表于 2008-7-26 20:43

没人路过坐一会儿呀！[em06]

wxyqxxz2007 · 发表于 2008-7-26 23:39

自己研究下告诉我俚,将答案留下[em02][em02][em02]

[此贴子已经被作者于2008-7-26 23:39:57编辑过]

wxyqxxz2007 · 发表于 2008-7-27 11:02

大师有进展否????????

hhzjxss · 发表于 2008-7-27 11:40

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用wxyqxxz2007在2008-7-27 11:02:00的发言： 有进展否????????</div>[em06][em06][em06]

hhzjxss · 发表于 2008-8-2 11:54

戏子帮忙修改了一下，思路是先在工作表中查找数据，然后再重新加载到窗框中！<table cellspacing="0" cellpadding="0" width="869" border="0" xstr="" style="WIDTH: 652pt; BORDER-COLLAPSE: collapse;"><colgroup><col width="869" style="WIDTH: 652pt; mso-width-source: userset; mso-width-alt: 22246;"></col></colgroup><tbody><tr height="25" style="HEIGHT: 18.75pt;"><td class="xl24" width="869" height="25" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; WIDTH: 652pt; BORDER-BOTTOM: #ece9d8; HEIGHT: 18.75pt; BACKGROUND-COLOR: transparent;">

rivate Sub 查询_Click() ''戏子</td></tr><tr height="25" style="HEIGHT: 18.75pt;"><td class="xl24" height="25" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 18.75pt; BACKGROUND-COLOR: transparent;">    On Error Resume Next</td></tr><tr height="25" style="HEIGHT: 18.75pt;"><td class="xl24" height="25" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 18.75pt; BACKGROUND-COLOR: transparent;"></td></tr><tr height="25" style="HEIGHT: 18.75pt;"><td class="xl24" height="25" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 18.75pt; BACKGROUND-COLOR: transparent;">    With ListView1</td></tr><tr height="25" style="HEIGHT: 18.75pt;"><td class="xl24" height="25" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 18.75pt; BACKGROUND-COLOR: transparent;">        .HideSelection = False    '选定文本总是突出显示。</td></tr><tr height="25" style="HEIGHT: 18.75pt;"><td class="xl24" height="25" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 18.75pt; BACKGROUND-COLOR: transparent;">        .MultiSelect = False    '' 不允许多行选择</td></tr><tr height="25" style="HEIGHT: 18.75pt;"><td class="xl24" height="25" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 18.75pt; BACKGROUND-COLOR: transparent;">        .ListItems.Clear</td></tr><tr height="25" style="HEIGHT: 18.75pt;"><td class="xl24" height="25" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 18.75pt; BACKGROUND-COLOR: transparent;">        For i = 1 To Sheets("资料库").Range("A65536").End(xlUp).Row</td></tr><tr height="25" style="HEIGHT: 18.75pt;"><td class="xl24" height="25" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 18.75pt; BACKGROUND-COLOR: transparent;">            If TextBox1.Text = Sheets("资料库").Cells(i, 1) Then</td></tr><tr height="25" style="HEIGHT: 18.75pt;"><td class="xl24" height="25" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 18.75pt; BACKGROUND-COLOR: transparent;">                Set ITM = .ListItems.Add()</td></tr><tr height="25" style="HEIGHT: 18.75pt;"><td class="xl24" height="25" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 18.75pt; BACKGROUND-COLOR: transparent;">                ITM.Text = Sheets("资料库").Cells(i, 1)</td></tr><tr height="25" style="HEIGHT: 18.75pt;"><td class="xl24" height="25" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 18.75pt; BACKGROUND-COLOR: transparent;">                ITM.SubItems(1) = Sheets("资料库").Cells(i, 2)</td></tr><tr height="25" style="HEIGHT: 18.75pt;"><td class="xl24" height="25" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 18.75pt; BACKGROUND-COLOR: transparent;">                ITM.SubItems(2) = Sheets("资料库").Cells(i, 3)</td></tr><tr height="25" style="HEIGHT: 18.75pt;"><td class="xl24" height="25" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 18.75pt; BACKGROUND-COLOR: transparent;">                ITM.SubItems(3) = Sheets("资料库").Cells(i, 4)</td></tr><tr height="25" style="HEIGHT: 18.75pt;"><td class="xl24" height="25" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 18.75pt; BACKGROUND-COLOR: transparent;">                ITM.SubItems(4) = Sheets("资料库").Cells(i, 5)</td></tr><tr height="25" style="HEIGHT: 18.75pt;"><td class="xl24" height="25" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 18.75pt; BACKGROUND-COLOR: transparent;">                ITM.SubItems(5) = Sheets("资料库").Cells(i, 6)</td></tr><tr height="25" style="HEIGHT: 18.75pt;"><td class="xl24" height="25" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 18.75pt; BACKGROUND-COLOR: transparent;">            End If</td></tr><tr height="25" style="HEIGHT: 18.75pt;"><td class="xl24" height="25" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 18.75pt; BACKGROUND-COLOR: transparent;">            .SelectedItem.Selected = False    ''查询不到，则退出当前已经选中的行</td></tr><tr height="25" style="HEIGHT: 18.75pt;"><td class="xl24" height="25" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 18.75pt; BACKGROUND-COLOR: transparent;">        Next i</td></tr><tr height="25" style="HEIGHT: 18.75pt;"><td class="xl24" height="25" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 18.75pt; BACKGROUND-COLOR: transparent;">    End With</td></tr><tr height="25" style="HEIGHT: 18.75pt;"><td class="xl24" height="25" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 18.75pt; BACKGROUND-COLOR: transparent;">End Sub</td></tr></tbody></table>

[此贴子已经被作者于2008-8-2 11:56:37编辑过]

hhzjxss · 发表于 2008-8-2 13:13

终于明白了。为什么成“灰色”的原因，是因为“查询”按钮用了“MouseMove”事件的缘故，按了以后，焦点又马上因为“MouseMove”事件而回到了“查询”按钮上。

		自动登录	找回密码
密码			注册

[习题] 【VBA入门点滴】listview查找并在第一行高亮显示