vbalistview控件(vba listview控件)
如何实现VBA的Listview控件的可编辑状态
这个要用到API函数,比较复杂。你可以用其它的控件。比如DataGrid
如何在vba编程中实现当鼠标经过Listview控件中的item时,输出当前item的值?
可以用mousemove事件,listview控件没用过,如果是listbox控件的话,我可以帮你把代码写出来。
vba listview 怎么添加 可用控件里没有
到Visual basic 编辑器里右键控件面板--附加控件-选择-micsoft... listview...即可
vba的附加控件中没有listview
listview控件在php的使??法,VBA窗体之ListView控件的基本
应?VBA实例教程
今天我们来看?下VBA窗体中的ListView控件的基本?法。ListView控件的最基本?法是在窗体中以表格形式显?数据,是应??常?泛的?个窗体控件。控件?具箱在初始状态下是没有ListView控件的,需要我们在?具-附加控件中勾选"Microsoft ListView
Control,Version 6.0",这样ListView控件就会显?在控件?具箱中了。ListView分为表头和数据两部分,?数据部分的第?列和其他列?是分开的,需要?不同的?式来访问。假设我们在Sheet1中有?个5?4列的表格,现在我们看下怎样将这个表格中的数据导?到ListView控件中。
下?我们先来看怎样给ListView控件添加表头。有两种?法,先来看第?种
Private Sub UserForm_Initialize()
ListView1.ColumnHeaders.Add 1, "A", "姓名", ListView1.Width / 4, lvwColumnLeft '列数,key,text,宽度,对齐?式,图?
ListView1.ColumnHeaders.Add 2, "B", "性别", ListView1.Width / 4, lvwColumnCenter
ListView1.ColumnHeaders.Add 3, "C", "年龄", ListView1.Width / 4, lvwColumnCenter
ListView1.ColumnHeaders.Add 4, "D", "住址", ListView1.Width / 4, lvwColumnCenter
ListView1.View = lvwReport '显??式
ListView1.FullRowSelect = False '是否整?选取
ListView1.Gridlines = True '是否显?表格线
End Sub
添加表头的第?种?法是?ColumnHeaders.Add的?法,该?法包括6个参数,?如上?第??代码中1代表第?列,"A"是该列的?个简称(不写也可以),“姓名”是要显?的?字,下?个参数是宽度,这?我们?共4列,所以第?列宽度设为控件宽度(ListView1.Width)的
1/4,第5个参数是对齐?式,其中第?列必须是左对齐的,其他列可以设置左右或居中对齐,第6个参数是图标索引,我们后?再讲,这?其中所有的参数都是可省略的,?般写上显?的?字和宽度即可。ListView1.View是设置ListView控件的显??式,?共四种,这?lvwReport是报表形式显?,其他的我们后?再讲。FullRowSelect是指可否整?选取,Gridlines是否显??格线,这些属性??试下就知道了。
当然我们也可以?循环的?式来简化代码
Private Sub UserForm_Initialize()
Dim i
For i = 1 To 4
ListView1.ColumnHeaders.Add i, , Cells(1, i), ListView1.Width / 4
Next
ListView1.FullRowSelect = True
ListView1.View = lvwReport
ListView1.Gridlines = True
End Sub
对列加了个For循环?已,其实是完全相同的。
下?我们来看怎样向ListView控件中添加数据。两种?法,下?来看第?种
Private Sub CommandButton1_Click()
Dim itm As ListItem, i, List, li
ListView1.ListItems.Clear '清除数据
For i = 2 To 5
Set itm = ListView1.ListItems.Add '添加?个空?
itm.Text = Cells(i, 1) '添加第?列
itm.SubItems(1) = Cells(i, 2) '添加第?列
itm.SubItems(2) = Cells(i, 3)
itm.SubItems(3) = Cells(i, 4)
Next
End Sub
当然添加新数据之前要把原有数据先删除,?的是ListItems的Clear?法ListItem对象就是控件的?。先?ListItems的Add?法添加?个空?,?变量itm来表?,下?就要向这个空?中添加数据,我们上?说过第?列和其他列的表??法是不同的,第?列赋值要?Text,之后各列?SubItems数组来赋值,第2列序号是1,第3列序号是2,依次类推。
下?来看添加数据的另?种?法,ListSubItems对象
' For i = 2 To 5
' Set List = ListView1.ListItems.Add(Text:=Cells(i, 1))
' Set li = List.ListSubItems.Add(Text:=Cells(i, 2)) 'subitems是个数组,Listsubitems是个对象集合
' Set li = List.ListSubItems.Add(Text:=Cells(i, 3))
' Set li = List.ListSubItems.Add(Text:=Cells(i, 4))
' Next
前?都?样,我只把For循环这段贴出来了,同样是?ListItems.Add新建?个空?,不同的是直接给其赋了?个值,这个值就是赋在第?列的,之后??List(刚添加的空?)的ListSubItems的Add?法,相当于在该?添加?个列,再赋值,有?列就添加?个ListSubItems。ListSubItems和SubItems的区别在于前者是?个对象集合,既然是对象就有可以设置格式(可以和?作表的Range对象类?),?后者仅仅是?个数组,因此也就不存在格式之类的属性了,所以如果需要给ListView控件改变格式就要?ListSubItems对象。
¥
5.9
百度文库VIP限时优惠现在开通,立享6亿+VIP内容
立即获取
listview控件在php的使用方法,VBA窗体之ListView控件的基本应用VBA实例教程
listview控件在php的使??法,VBA窗体之ListView控件的基本
应?VBA实例教程
今天我们来看?下VBA窗体中的ListView控件的基本?法。ListView控件的最基本?法是在窗体中以表格形式显?数据,是应??常?泛的?个窗体控件。控件?具箱在初始状态下是没有ListView控件的,需要我们在?具-附加控件中勾选"Microsoft ListView
第 1 页
Control,Version 6.0",这样ListView控件就会显?在控件?具箱中了。ListView分为表头和数据两部分,?数据部分的第?列和其他列?是分开的,需要?不同的?式来访问。假设我们在Sheet1中有?个5?4列的表格,现在我们看下怎样将这个表格中的数据导?到ListView控件中。
下?我们先来看怎样给ListView控件添加表头。有两种?法,先来看第?种
第 2 页
Private Sub UserForm_Initialize()
ListView1.ColumnHeaders.Add 1, "A", "姓名", ListView1.Width / 4, lvwColumnLeft '列数,key,text,宽度,对齐?式,图?
ListView1.ColumnHeaders.Add 2, "B", "性别", ListView1.Width / 4, lvwColumnCenter
ListView1.ColumnHeaders.Add 3, "C", "年龄", ListView1.Width / 4, lvwColumnCenter
第 3 页
ListView1.ColumnHeaders.Add 4, "D", "住址", ListView1.Width / 4, lvwColumnCenter
ListView1.View = lvwReport '显??式
ListView1.FullRowSelect = False '是否整?选取
ListView1.Gridlines = True '是否显?表格线
第 4 页
End Sub
添加表头的第?种?法是?ColumnHeaders.Add的?法,该?法包括6个参数,?如上?第??代码中1代表第?列,"A"是该列的?个简称(不写也可以),“姓名”是要显?的?字,下?个参数是宽度,这?我们?共4列,所以第?列宽度设为控件宽度(ListView1.Width)的
第 5 页
1/4,第5个参数是对齐?式,其中第?列必须是左对齐的,其他列可以设置左右或居中对齐,第6个参数是图标索引,我们后?再讲,这?其中所有的参数都是可省略的,?般写上显?的?字和宽度即可。ListView1.View是设置ListView控件的显??式,?共四种,这?lvwReport是报表形式显?,其他的我们后?再讲。FullRowSelect是指可否整?选取,Gridlines是否显??格线,这些属性??试下就知道了。
第 6 页
当然我们也可以?循环的?式来简化代码
Private Sub UserForm_Initialize()
Dim i
For i = 1 To 4
ListView1.ColumnHeaders.Add i, , Cells(1, i), ListView1.Width / 4
Next
第 7 页
ListView1.FullRowSelect = True
ListView1.View = lvwReport
ListView1.Gridlines = True
End Sub
对列加了个For循环?已,其实是完全相同的。
下?我们来看怎样向ListView控件中添加数据。两种?法,下?来看第?种
第 8 页
Private Sub CommandButton1_Click()
Dim itm As ListItem, i, List, li
ListView1.ListItems.Clear '清除数据
For i = 2 To 5
Set itm = ListView1.ListItems.Add '添加?个空?
itm.Text = Cells(i, 1) '添加第?列
第 9 页
itm.SubItems(1) = Cells(i, 2) '添加第?列
itm.SubItems(2) = Cells(i, 3)
itm.SubItems(3) = Cells(i, 4)
Next
End Sub
当然添加新数据之前要把原有数据先删除,?的是ListItems的Clear?法ListItem对象就是控件的?。先?ListItems的Add?法添加?个空?,?变量itm来表?,下?就要向这个空?中添加数据,我们上?说过第?列和其他列的表??法是不同的,第?列赋值要?Text,之后各列?SubItems数组来赋值,第2列序号是1,第3列序号是2,依次类推。
第 10 页
下?来看添加数据的另?种?法,ListSubItems对象
' For i = 2 To 5
' Set List = ListView1.ListItems.Add(Text:=Cells(i, 1))
' Set li = List.ListSubItems.Add(Text:=Cells(i, 2)) 'subitems是个数组,Listsubitems是个对象集合
第 11 页
' Set li = List.ListSubItems.Add(Text:=Cells(i, 3))
' Set li = List.ListSubItems.Add(Text:=Cells(i, 4))
' Next
前?都?样,我只把For循环这段贴出来了,同样是?ListItems.Add新建?个空?,不同的是直接给其赋了?个值,这个值就是赋在第?列的,之后??List(刚添加的空?)的ListSubItems的Add?法,相当于在该?添加?个列,再赋值,有?列就添加?个ListSubItems。ListSubItems和SubItems的区别在于前者是?个对象集合,既然是对象就有可以设置格式(可以和?作表的Range对象类?),?后者仅仅是?个数组,因此也就不存在格式之类的属性了,所以如果需要给ListView控件改变格式就要?ListSubItems对象。