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

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

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

(0)
全栈程序员-站长的头像全栈程序员-站长


相关推荐

  • linux清理缓存cache_udp缓冲区满了,数据是否会丢失

    linux清理缓存cache_udp缓冲区满了,数据是否会丢失linux 自定义模块来缓存skb的意义

    2022年4月20日
    318
  • java struts2 漏洞_struts2漏洞列表

    java struts2 漏洞_struts2漏洞列表【官方ID】S2-001【危害等级】高【受影响版本】WebWork2.1(开启altSyntax)WebWork2.2.0–WebWork2.2.5Struts2.0.0–Struts2.0.8【漏洞描述】altSyntax特性默认不开启,开启后,允许在文本串中注入OGNL表达式,且注入的表达式被逐层递归执行。攻击者可以在HTML中text域输入OGNL表达式,当form在服务器…

    2022年7月19日
    20
  • Python输入输出(IO)[通俗易懂]

    Python输入输出(IO)[通俗易懂]程序会有输入和输出,输入可以从标准输入或是从一个文件读入数据,程序的输出可以以一种友好可读的方式(human-readable)打印出来,或是写进一个文件,而标准输入和标准输出(键盘和显示器)在程序的

    2022年7月6日
    27
  • 汇编指令速查「建议收藏」

    汇编指令速查「建议收藏」指令功能AAA调整加AAD调整除AAM调整乘AAS调整减ADC进位加ADD加AND与ARPL调整优先级BOUND检查数组BSF位右扫描BSR位左扫描BSWAP交换字节BT位测试BTC位测试求反BTR位

    2022年7月2日
    46
  • 滑动平均值滤波_m点滑动平均滤波器

    滑动平均值滤波_m点滑动平均滤波器   关于数据采集的滑动平均值滤波的算法      —王超杰    以ADC为例,采集口的模拟量可能夹杂着不同频段,不同峰值的干扰信号,这些干扰信号和要采集的模拟量互相干扰,那么ADC采集的数据量就会偏移原有的真实结果。那么通过硬件与数字滤波两种手段可大大减少采集误差,提高精度。    一般滤波均通过程序算法滤除,其包括去极值滤波、算术平均值滤波、滑动平均值滤波、加…

    2025年7月6日
    3
  • 数组转对象2种方法有哪些_js 数组转对象

    数组转对象2种方法有哪些_js 数组转对象constarr=[{label:’男’,value:0},{label:’女’,value:1}]functionf(arr){//写代码//reducereturnarr.reduce((obj,item)=>{obj[item.value]=item.labelreturnobj},{})}constobj=f(arr)console.log(ob…

    2022年9月10日
    2

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注

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