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)
全栈程序员-站长的头像全栈程序员-站长


相关推荐

  • ostaskdel函数_cursor函数

    ostaskdel函数_cursor函数OSTaskCreate()

    2025年9月19日
    4
  • 高中688个高频单词_高频英语单词800

    高中688个高频单词_高频英语单词800给一非空的单词列表,返回前 k 个出现次数最多的单词。返回的答案应该按单词出现频率由高到低排序。如果不同的单词有相同出现频率,按字母顺序排序。示例 1:输入: [“i”, “love”, “leetcode”, “i”, “love”, “coding”], k = 2输出: [“i”, “love”]解析: “i” 和 “love” 为出现次数最多的两个单词,均为2次。 注意,按字母顺序 “i” 在 “love” 之前。 示例 2:输入: [“the”, “day”, “is

    2022年8月9日
    6
  • xml转Excel的软件_excel合并工具哪个好

    xml转Excel的软件_excel合并工具哪个好在线Excel转XML工具在线Excel转XML工具ExcelToXMLConverter可帮助你在线将excel文件转换为XML。ExcelToXMLConverter可帮助你在线将excel文件转换为XML。ExcelToXMLConverter可帮助你在线将excel文件转换为XML。https://toolgg.com/excel-to-xml.html…

    2022年8月22日
    5
  • python进阶(4)文件操作[通俗易懂]

    python进阶(4)文件操作[通俗易懂]文件操作文件操作主要包括对文件内容的读写操作,这些操作是通过文件对象实现的,通过文件对象可以读写文本文件和二进制文件open(file,mode='r',buffering=-

    2022年7月28日
    8
  • 什么是多模态学习?

    什么是多模态学习?首先,什么叫做模态(Modality)呢?每一种信息的来源或者形式,都可以称为一种模态。例如,人有触觉,听觉,视觉,嗅觉;信息的媒介,有语音、视频、文字等;多种多样的传感器,如雷达、红外、加速度计等。以上的每一种都可以称为一种模态。同时,模态也可以有非常广泛的定义,比如我们可以把两种不同的语言当做是两种模态,甚至在两种不同情况下采集到的数据集,亦可认为是两种模态。因此,多模态机器学习,…

    2022年6月16日
    37
  • macos 删除_mac实用工具重新安装macos

    macos 删除_mac实用工具重新安装macoscat/etc/paths/usr/local/bin/usr/bin/bin/usr/sbin/sbin进目录挨个看,找到以后删除

    2025年6月14日
    2

发表回复

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

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