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)


相关推荐

  • 获取股票历史数据(网易163行情接口)[通俗易懂]

    获取股票历史数据(网易163行情接口)获取股票历史数据,通过网易163接口来获取数据,可以获取指数数据,也可以获取股票数据importpandasaspd#沪市前面加0,深市前面加1,比如0000001,是上证指数,1000001是中国平安defget_daily(code,start=’19900101′,end=”):url_mod=”http://quotes.money.163.com/service/chddata.html?code=%s&start=%s

  • uwsgi模式_Uwsgi配置文档[通俗易懂]

    uwsgi模式_Uwsgi配置文档[通俗易懂]Uwsgi配置文档(2017-11-2011:16:38)uwsgi的安装也是可以直接采用yum安装,配置也是比较简单,不过要想成功启动Python程序,需要用yum安装一个插件uwsgi-plugin-python如果想安装所有插件,可以直接安装uwsgi-plugin-all软件包说明:虚拟环境的python路径可以直接设置为本地python环境路径,其他路径根据自己需要修改UWSGI配置…

  • 车牌检测STN:Spatial Transformer Networks

    车牌检测STN:Spatial Transformer Networks参考文献:MaxJaderberg,KarenSimonyan,AndrewZisserman,KorayKavukcuoglu.SpatialTransformerNetworks,2016.linkSpatialTransformerNetworks空间变换网络MaxJaderberg,KarenSimonyan,AndrewZisserman,Kor…

    2022年10月19日
  • goland软件官方软件激活破解方法

    goland软件官方软件激活破解方法,https://javaforall.cn/100143.html。详细ieda激活码不妨到全栈程序员必看教程网一起来了解一下吧!

  • Android AsyncHttpClient

    Android AsyncHttpClient

  • struts拦截器如何使用_信号拦截器

    struts拦截器如何使用_信号拦截器拦截器概述Struts2拦截器是在访问某个Action或Action的某个方法,字段之前或之后实施拦截,并且Struts2拦截器是可插拔的,拦截器是AOP(AspectOrientedProgramming,面向切面编程)的一种实现拦截器栈(InterceptorStack)。Struts2拦截器栈就是将拦截器按一定的顺序联结成一条链。在访问被拦截的方法或字段时,Struts2拦截器链

发表回复

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

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