ListView控件数据操作
二、通过代码在窗体上添加控件
ListView控件数据操作函数代码在窗体公共区定义ListView控件变量在窗体加载时创建ListView控件在窗体改变尺寸时设置列表位置及大小窗体上操作按钮使用ListView控件窗体设计时的样子窗体运行时的样子ListView控件在不同电脑里的版本不是完全一致的,经常会因为版本不同,导致窗体上的控件不能使用,如果能够实现在窗口加载时自动添加控件,就要很好的解决这个问题。下面的代码就可以实现这个功能,可以很方便的在窗口设计时使用。
函数代码
在窗体公共区定义ListView控件变量
'在窗体公共区定义ListView控件变量Dim WithEvents 列表 As MSComctlLib.ListView
在窗体加载时创建ListView控件
Private Sub UserForm_Initialize()'在窗体加载时创建ListView控件On Error Resume NextSet 列表 = Me.Controls.Add("mscomctllib.listviewctrl.2")With 列表.Gridlines = True.View = 3.Font.Size = 12.FullRowSelect = True.BorderStyle = ccNoneEnd WithEnd Sub
在窗体改变尺寸时设置列表位置及大小
Private Sub UserForm_Resize()'设置列表位置及大小Frame1.height=48Frame1.top=6With 列表.Left = 6.Top = Frame1.Height + Frame1.Top + 6.Width = Me.Width - 18.Height = Me.Height - Frame1.Top - Frame1.Height - 40End WithEnd Sub
窗体上操作按钮使用ListView控件
Private Sub 添加_Click()'使用添加的ListView控件Dim tmpAddListViewHead 列表, ConstFields, ConstWidth '添加表头tmp = Sql查询(数据库文件, Replace(SqlStr, "[条件]", 条件))If IsArray(tmp) ThenAddListViewData 列表, tmp '添加数据Else列表.ListItems.Clear '清空列表End IfEnd Sub
窗体设计时的样子
窗体运行时的样子
ListView控件数据操作系列未完,待续!
——专注办公软件的二次开发及培训,你有问题,我有思路!
——微博、微信、CSDN同号:w_dexu。
——转载请注明出处!
扫码加微信