VBA listview控件「建议收藏」

VBA listview控件「建议收藏」
1、在Listview控件中,用ColumnHeaders对象来操作列,而添加新的列可以用ColumnHeaders对象的ADD方法。具体如下: 
ListView1.ColumnHeaders.Add序号,唯一的字符串标识,列标显示文字,列宽,列的内容对齐方式,所使用的图标序号。
对齐方式有:lvwColumnLeft 、 lvwColumnCenter、lvwColumnRight                                            

大家好,又见面了,我是你们的朋友全栈君。

1、在Listview控件中,用ColumnHeaders对象来操作列,而添加新的列可以用ColumnHeaders对象的ADD方法。具体如下: 

ListView1.ColumnHeaders.Add 序号,唯一的字符串标识,列标显示文字,列宽,列的内容对齐方式,所使用的图标序号。

对齐方式有:lvwColumnLeft 、 lvwColumnCenter 、lvwColumnRight                                                           

其中第1列只能左对齐,而不能采取其他对齐方式

 

2、Listview控件的View 属性决定着它的显示的方式,具体如下:

ListView1.View = lvwIcon ‘图标显示

ListView1.View = lvwSmallIcon ‘小图标显示

ListView1.View = lvwList ‘列表显示

ListView1.View = lvwReport ‘报表显示

 

3、SelectedItem属性即是指当前选取的记录

 

4、清空listview控件中的内容:ListView1.ListItems.Clear

 

显示数据表内容:
Private Sub UserForm_Initialize()

With ListView1                           ‘初始化listview
    .ColumnHeaders.Add , , “学号”, 60, lvwColumnLeft
    .ColumnHeaders.Add , , “姓名”, 60, lvwColumnCenter
    .ColumnHeaders.Add , , “班级”, 70, lvwColumnCenter
    .View = lvwReport                                    ‘以报表的格式显示
    .LabelEdit = lvwManual                       ‘使内容不可编辑
End With

    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset

    Set cn = New ADODB.Connection        ‘连接数据库
    Set rs = New ADODB.Recordset
    cn.Open “provider=microsoft.jet.oledb.4.0;data source=D:/db1.mdb”
    rs.Open “student”, cn, adOpenKeyset, adLockBatchOptimistic      ‘数据表student
    Do While Not rs.EOF
        With ListView1.ListItems.Add()      ‘添加记录
            .Text = rs.Fields(“stu_num”)                      ‘添加第一列内容
            .SubItems(1) = rs.Fields(“stu_name”)               ‘添加第二列内容
            .SubItems(2) = rs.Fields(“stu_class”)               ‘添加第三列内容
        End With
    rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    cn.Close
End Sub

 

读取listview选择的内容:

将选中的内容分别显示在UserForm1的文本框中
With UserForm1
    .stu_num.Value = ListView1.SelectedItem.Text         ‘学号
    .stu_name.Text = ListView1.SelectedItem.SubItems(1)     ‘姓名
    .stu_class.Text = ListView1.SelectedItem.SubItems(2)     ‘班级
End With

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/160345.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)


相关推荐

  • 项目分层和解析

    DAO层,Service层,Controller层、View层http://hovertree.com/hvtart/bjae/sko15s3g.htm推荐:http://www.cnblogs.

    2021年12月25日
  • rider激活码【最新永久激活】

    (rider激活码)好多小伙伴总是说激活码老是失效,太麻烦,关注/收藏全栈君太难教程,2021永久激活的方法等着你。IntelliJ2021最新激活注册码,破解教程可免费永久激活,亲测有效,下面是详细链接哦~https://javaforall.cn/100143.html40Z9P7H9NN-eyJsaWNlbnNlSW…

  • 转置卷积详解

    转置卷积详解转置卷积详解  前面文章对卷积做了讲解,感觉既然重新整理,就将系列概念整体做个梳理,也算是将自己知道的所有东西拿来献丑把。  转置卷积(TransposedConvolution)是后来的叫法,一开始大家都是称逆卷积/反卷积(Deconvolution),这个概念是在图像分割任务中被提出来的,图像分割需要逐像素的操作,对每一个像素做一个分割,将其归类到不同的物体当中。  这个任务大家很自然…

  • 信捷plc梯形图实例详解_信捷plc单键启停梯形图

    信捷plc梯形图实例详解_信捷plc单键启停梯形图一直以来都是作为新手在学习PLC,对于PLC编程,每个人都应该觉得自己是新手,只有心态放低,才能把事情看得更清楚,才能将编程的原理了解深透。就拿PLC一键启停编程梯形图来说,PLC种类很多,每个种类对应的编程或多或少有些差异,那么掌握一种一键启停梯形图编程是不是可以应用到其他种类的PLC呢?分享台达PLC的常见一键启停编程梯形图根据最近网友向我我请教的一个PLC单键启停如何编写程序,PLC外部接线…

  • WPF是什么_wpf documentviewer

    WPF是什么_wpf documentviewer项目中要用到一个数据分页栏,虽然自己没有实现过,但凭经验感觉它和ListBox/ListView有关。于是去网上搜了下WPF数据分页栏,果然很多实现都用到了ListView。于是拣了一种比较简单的实现学习,其中包含下面代码:ListView.View的标签内出现了GridView。在我印象中Grid是网格式的,而List是列表式的,所以我很好奇两者为什么可以混到一起。当然从类的关系上来看,应该是两者都继承了一个共同的父类。那么为了能使用起来更“自如”,对GridView有个系统的了解,还是有必要学习一

  • 「Odoo 基础教程系列」第三篇——从 Todo 应用开始(2)

    「Odoo 基础教程系列」第三篇——从 Todo 应用开始(2)

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号