2021年整理VBA实战系列ListView控件

切胃三、实现过程（一）添加listview控件.打开VBE编辑器，新建窗体flist.添加listview控件。在工具相中选择listview控件放入窗体。如工具箱中没有该控件，则应查找注册MSCOMCTL.OCX文件.我们可以按照以下方法进行注册：1）将文件解压到“C：\WINDOWS\system32”（WindowsXP）；2）单击【开始】|【运行】命令，键入“匹8$丫「32C:\WINDOWS\system32\MSCOMCTL.OCX"（WindowsXP）”进行注册。（二）添加代码冬雨Q:470-020-8739

(完整版)VBA实战系列(ListView控件)1。添加表头,”日期、64,0,“姓名”，54,2,"性别"，42,2“年龄”，54,2”联系方式”，54,2，“电话"，99,2,"诊断、54,2,”日期、64,0,“姓名”，54,2,"性别"，42,2“年龄”，54,2”联系方式”，54,2，“电话"，99,2,"诊断、54,2“手术名称”，86,2显示格式为报表格式ListViewl。FullRowSelect=True '允许整行选中ListViewl.Gridlines=True'显示网格线ListViewl。Sorted=True'排序EndSub以上代码中ListView1.ColumnHeaders.Add,,“日期“，64,0中的64代表该表头字段的宽度，0代表居左显示方式.【应用技巧】在实际应用中,如何确定列宽对初学者来说是一个难点,这里给大家提供一个确定列宽的实用方法。通常ListView控件加载的数据都存放在一张excel工作表中，我们先在工作表中调整好列宽,然后用ListView控件需要加载的excel表格的列宽作为相应ListView控件的列宽即可，求列宽可用以vba代码实现。个人具体做法见如下过程：Sub代码生成1_ListView标题头和列宽()DimshAsWorksheet,iSetsh=Sheet1DebugoPrint"PrivateSubUserForm_Initialize()”Fori=1ToshoCells(1,Columns.Count)。End(xlToLeft).ColumnIfi=1ThenDebug.Print"ListView1。ColumnHeadersoAdd,,"""&sh。Cells(1,i)&"""，"&Int(sh.Cells(1,i).Width)&",0”Ifi〉1ThenDebugoPrintListView1.ColumnHeaders.Add,,"""&sh.Cells(1,i)&"""，"&Int(shoCells(1,i)oWidth)&"，2"NextiDebug.Print"ListView1oView=lvwReport"&Chr(10)&"ListView1.FullRowSelect=True"&Chr(10)&"ListView1.Gridlines=True"&Chr(10)&"EndSub",ListView1oColumnHeaders.Add,,"日期”，64,0注释：对齐方式(0：左，1右，2居中)，首先必须靠左，这是控件自身特性决定的EndSub立即窗口显示debugoprint结果，可以复制此代码，是不是简单快捷很多。冬雨Q:470-020-8739

（完整版）VBA实战系列（ListView控件）立即谢口Pr1v：±t&Suh1JserF»：irm_IrLi11alizeI...J4625394555022222422I.I.I.I—1-I.I.J匚」4625394555022222422I.I.I.I—1-I.I.J匚」I.I.I.I.I—1■I.I.4424^94^4^^4E545式叼5称"目要况5杳H5LietViE'*1.ColuniriHe e.儿33ListViey・1.ColijninKe=aders.AddLietVi曰*1.ColuniriKead&rs.Add、『LietVie'A'l.ColuninKe：id&re.kddListVi日7i・1■匚olijniriKe=idei_q.kddglListViE?i・1.CnluniriKead&rs.kiA,..ListViwvr1.ColuniriHe：ider.kddList1/ie'A'l.CuluninKe：aders.kdd,,..LietVie'A'l.ColuniriHe：id&re.Add,ListView1.ColuniriKe：ad&re.Add,ListView1.ColuniriKe e.XddLietViE'*1.ColuniriKe：adere.kddListViey・1.ColijninKe=aders.Add、『LietVi曰*1.ColuniriKead&rs.AddListVieyt1.ColijniriKe=idei_q.kddLi5tViE?i・1.CuluninKead&rs.kidListVi1.Vlew=1v^'RejiortLi三t1/ie'A-l.Fi£LllLuwSelect=TrueList1/iew1.Gi-idlines=Tmt：EmiSub2.加载数据SubListDisp（）DimcnAsObject，rsAsObject,sqlAsString,ItmSetcn=CreateObject（”ADODB.Connection”） ’连接数据库CreateObject（"adodboconnection”）Setrs=CreateObject（"ADODB。Recordset"）cn.Open“provider二microsoft.jet.oledb。4。0；extendedproperties='excel8.0；HDR=yes；IMEX=2';datasource="&ThisWorkbookoFullNamesql=”Select大from[病例数据$A1：Q]"rs。Opensql,cn,1,3ListViewl.Listltems。Clear '清除ListView记录DoWhileNotrs.EOF'数据加载代码开始SetItm=ListViewl.Listltems。Add（）IfNotIsNull（rs.Fields（”日期"））ThenItm.Text=「$下16E$（"日期"）IfNotIsNull（rs。Fields（"姓名"））ThenItm。SubItems（1）=rs。Fields（"姓名"）IfNotIsNull（rSoFields（"性另『'））ThenItm.SubItems（2）=rs。Fields（"性别”）IfNotIsNull（rsoFields（"年龄"））ThenItm.SubItems（3）=rs。Fields（“年龄”）IfNotIsNull（rs.Fields（"联系方式"））ThenItm。SubItems（4）=rs。Fields（"联系方式”）IfNotIsNull（rSoFields（"电话"））ThenItm。SubItems（5）=rs。Fields（"电话”）IfNotIsNull（rSoFields（"诊断”））ThenItm。SubItems（6）=rs。Fields（"诊断”）IfNotIsNull（rSoFields（"手术名称"））ThenItm。SubItems（7）=rs.Fields（"手术名称”）IfNotIsNull（rs.Fields（"病理号"））ThenItm。SubItems（8）=rs。Fields（"病理号"）IfNotIsNull（rSoFields（“手术时间”））ThenItm。SubItems（9）=rs.Fields（"手术时间"）IfNotIsNull（rs.Fields（"病理诊断"））ThenItm。SubItems（10）=rs。Fields（”病理诊断"）IfNotIsNull（rsoFields（"病情摘要”））ThenItm。SubItems（11）=rs。Fields（”冬雨Q:470-020-8739

(完整版)VBA实战系列(ListView控件)病情摘要")IfNotIsNull(rs.Fields("手术情况"))ThenItm。SubItems(12)=rs.Fields("手术情况")IfNotIsNull(rs。Fields("备注"))ThenItm。SubItems(13)=rs.Fields("备注")IfNotIsNull(rs.Fields(“辅助检查”))ThenItm.SubItems(14)=rs。Fields("辅助检查")IfNotIsNull(rs。Fields("手术图片"))ThenItm。SubItems(15)=rs。Fields("手术图片")IfNotIsNull(rs.Fields(“随访"))ThenItm。SubItems(16)=rs。Fields("随访")’数据加载代码结束rs。MoveNextLooprs.CloseSetrs=Nothingcn。CloseEndSub【应用技巧】：以上面代码相似，代码中存在大量类似重复的代码.一句句打字无疑影响效率.可以用以下代码生成部分代码：Sub代码生成2__Listview_item()DimshAsWorksheet，i%,sSetsh=Sheet1DebugoPrint"SetItm二ListView1。ListItems。Add()"Fori=1Tosh.Cells(1,Columns。Count)oEnd(xlToLeft)。Columns=Cells(1,i)oValueIfi=1ThenDebugoPrint"ifNotIsNull(rs°Fields("""&s&”""))thenItm.Text=rsoFields(”””&s&…)" 'Ifi>1ThenDebugoPrint”ifNotIsNull(rs.Fields("""&s&"""))thenItm.SubItems("&i-1&")=rs.Fields("""&s&""")” ‘NextiEndSubDebug立即窗口显示，复.'I' tanfiiisbiAsYorhEh44t^i区e号H5bi=DobgghiTitItn=LiztVjwv]LitlLJlddCT!'：'£i-1TaskAll土LC>:>Lunas.CDiuitj.IndixHoLfift).ColuiriJi.e-C«lls(],dlIfj=1DiLot.Print":i.EtfotIEtfull(rsFS式长厂.*工0皿口)Itm.Tawt=rsFnL1厂口，血工心Ifi>1TheaDabuc.PrintniEtfolIeEFtlELIts.FitLdxC^^dsAthen.Itn.3uMt«=C&i-L邕*)=rs. 4s勘行"PtKtiEndSubiEHEIstfull(T3FiddsrifHot工工出ill(teFiJdt(niEHEIstfull(T3FiddsrifHot工工出ill(teFiJdt(nifHot13tfTiLl(r：LFielA:;「iEIstfull(riFieldsCifHot[峭山l(r£FiifNotIstfiilUrs.rieldsCiEPntIstfTill6-3ritldsCifHotIstfullFi(JdL(nifHotIstfiill(rs.rieldsCiEWotIstfiill(n7itldsfifHot工工出ill(teFiJdt(nifHot13tfTiLl(r：LFielA:;「iEIstfull(riFieldsCifHot工峭山1次£FiifNotIstfiilUrs.rieldsCiEPntIstfTill6-3ritldsCifHotIstfull(r^Fi(JdL(n■1]thenUn.Teil-:

itiAfilitT3.FicLdj广曰期•、〕;(0=rs-Fiflldsit£)=〜匹立亚严隹铲)X)Ihen.IS =T3.F:elds式以j皿口—ubltaiM=rs―底心联系方式4Jthearii.Su.KEtens45)=『5.Fields电话”"力thenIt?S'ltlIrmfcJ=r3.FieldsC'fsWfi铲th稣Un. :rsFisl包了"1，thenItn.STihlteros(：3'l间"JjthedUm.5,obItmisS)=raFieldmVTin. 二e,Fi&l加更"JitheaItn. =rs.Fields况"：JjUudlTin.5,abItmsQE]=rsFiddsC^)thARIti.SaMtfinstlJ)二rsFid-dtrg-.^F黄，1thtaItn.5nl>It4fi5C14)=rz-Fiiddsrs可口)UuaItn.SubltnsQ^]=rs.Fid.dsC^thanlit -rs「宙击''Ii况r通过以上两段代码，listview控件可以顺利加载并列表显示数据。冬雨Q:470-020-8739(完整版)VBA实战系列(ListView控件)四、知识归纳以上做法仅限于冬雨开发过程中的一点用法。为方便丫8人爱好者学习，将listview控件相关知识归纳如下:(一)语法ListView1.ColumnHeaders。Add(index，key,text，width,alignment,icon)Add方法的语法包含下面部分：部分描述object 必需的。对象表达式，其值是ColumnHeaders集合。index 可选的。唯一标识对象集合成员的整数。key 可选的。唯一的字符串表达式，可以用来访问集合的成员。text可选的。出现在ColumnHeader对象中的字符串。width 可选的.数值表达式，它使用控件容器的度量单位指定对象的宽度。alignment可选的.决定ColumnHeader对象中文本对齐方式的整数。关于设置信息,请参阅“请参阅列表中Alignment属性的信息。icon 可选的。Smallicons图象列表中图象的关键字或索引。说明Add方法返回新插入的ColumnHeader对象的引用。使用index参数在ColumnHeaders集合的特定位置插入列标头。当ColumnHeaders集合成员可能动态变更时，应使用Key属性引用它们，因为任何ColumnHeader对象的Index属性都可以改变。(二)属性1、对齐属性ListView控件在初始化之前，为美观之需要，我们可以对每列数据排列格式进行设置,每列数据可或左对齐、或右对齐、或中间对齐，该项工作和加载表头同步进行，下面以加载“姓名”表头为例，其代码如下：左对齐：ListView1。ColumnHeaders.Add,,“姓名"，40，lvwColumnLeft右对齐：ListView1。ColumnHeaders。Add,，"姓名"，40,lvwColumnRight中间对齐：ListView1。ColumnHeaders.Add，，"姓名"，40,lvwColumnCenter这里需特别提醒ListView控件首列只能左对齐，否则代码会出现编译错误。2、排序属性ListView控件在初始化之前,可以根据用户需求对