VBA 学习笔记文档格式.docx
- 文档编号:22163511
- 上传时间:2023-02-02
- 格式:DOCX
- 页数:14
- 大小:19.57KB
VBA 学习笔记文档格式.docx
《VBA 学习笔记文档格式.docx》由会员分享,可在线阅读,更多相关《VBA 学习笔记文档格式.docx(14页珍藏版)》请在冰豆网上搜索。
\Cangku.mdb
Change:
变更或变动时Click:
点击时
ListBox:
列表框
Count:
计数ListBox1.ColumnCount=2列数为2列
rst.RecordCount:
记录集.记录条数
rst.Fields("
物品名称"
):
记录列,可以用rst.Fields(N)第N列数据
rst.Close:
关闭记录集
cnn.Close:
关闭连接
rst.MoveNext:
移动至下一条
ListView:
清单查看Index:
索引,指数
Format:
格式
OnErrorResumeNext:
出现错误时继续运行ERROR:
错误
Resume:
重新开始
OnErrorGoto0:
当出现错误时,转到0再执行
Object:
对象Controls:
控制的
PrivateSubTextBox3_Exit(ByValCancelAsMSForms.ReturnBoolean)退出TEXTBOX3时响应的事件
TextBox3.Value=Format(TextBox3.Text,"
0000-00-00"
)
EndSub
退出时设置格式
PrivateSubCommandButton3_MouseMove(ByValButtonAsInteger,ByValShiftAsInteger,ByValXAsSingle,ByValYAsSingle)
CommandButton3.BackColor=&
HFF&
鼠标移至时,命令以高亮显示;
PrivateSubUserForm_MouseMove(ByValButtonAsInteger,ByValShiftAsInteger,ByValXAsSingle,ByValYAsSingle)
CommandButton1.BackColor=&
H8000000F
CommandButton2.BackColor=&
Back:
返回COLOR:
色彩Mouse:
鼠标Move:
移动
光标移至表单,各命令的色彩初始值设置。
PrivateSubUserForm_Initialize()
ListBox1.List()=Array("
河南省"
"
河北省"
湖北省"
湖南省"
广东省"
海南省"
上海市"
北京市"
利用数组向列表框添加项目
ARRAY:
数组;
第一步:
添加列头
可在form_load里边添加,如下:
'
初始化
ListView1.FullRowSelect=True'
(允许整行选择)
listview1.gridlines=true'
(显示网格)
listview1.checkboxs=true'
显示checkboxs框
listview1.view=3'
以报表形式显示
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add1,,"
姓名"
1000
ListView1.ColumnHeaders.Add2,,"
性别"
500
ListView1.ColumnHeaders.Add3,,"
职称"
1500
ListView1.ColumnHeaders.Add4,,"
电话"
第二步,添加数据
DimitmXAsListItem
SetitmX=ListView1.ListItems.Add
itmX.text="
李四"
itmX.SubItems
(1)="
雄性"
itmX.SubItems
(2)="
大将军"
itmX.SubItems(3)="
10086"
第三步,取得行数据
PrivateSubListView1_ItemClick(ByValItemAsMSComctlLib.ListItem)
Text1=Item.Text
Text2=Item.SubItems
(1)
Text3=Item.SubItems
(2)
Text4=Item.SubItems(3)
EndSub
PrivateSubListView1_DblClick()
DimXAsLong
X=[A65536].End(xlUp).Row+1
Cells(X,1)=ListView1.SelectedItem.Text
Cells(X,2)=ListView1.SelectedItem.SubItems
(1)
Cells(X,4)=ListView1.SelectedItem.SubItems
(2)
ListView1.FullRowSelect=True
DimITMAsListItem
ListView1.ColumnHeaders.Add1,,"
商品类别"
ListView1.Width/3
ListView1.ColumnHeaders.Add2,,"
商品名称"
ListView1.Width/3,lvwColumnCenter
ListView1.ColumnHeaders.Add3,,"
单价"
ListView1.View=lvwReport
ListView1.Gridlines=True
WithSheet1
Fori=2To.[A65536].End(xlUp).Row
SetITM=ListView1.ListItems.Add()
ITM.Text=.Cells(i,1)
ITM.SubItems
(1)=.Cells(i,2)
ITM.SubItems
(2)=.Cells(i,3)
Nexti
SetITM=Nothing
EndWith
QQ号"
昵称"
地区"
Fori=2To[A65536].End(xlUp).Row
ITM.Text=Cells(i,1)
ITM.SubItems
(1)=Cells(i,2)
ITM.SubItems
(2)=Cells(i,3)
常用属性:
View设置或返回控件的视图类型
值说明
1-LvwIcon图标类型
2-LvwSmallIcon小图标类型
3-LvwList列表类型
4-LvwReport报表类型
Arrange设置后返回控件的图标排列方式(在图标视图下有效)
1-LvwNone不排列
2-LvwAutoLeft自动靠右排列
3-LvwAutoTop自动靠左排列
Icons、SmallIcons、ColumnHeaderIcons属性
Icons指定图标视图时的图标与ImageList的绑定
SmallIcons、ColumnHeaderIcons指定列表视图时的图标与ImageList的绑定
PICTURE、PictureAlignment属性
分别指定ListView控件的背景图片和布局方式
ListItems(Index)属性
ListItems属性是ListView控件中列表项的集合。
Index用于指定列表项集合中的一个对象,
我们可以把这个对象看作对一行的引用
ListItems集合的属性
1.Text设置或返回显示文本
2.key关键字
3.index索引编号
4.icon,smallicon不同视图时显示单元格的图标
5.checked给checkboxes打√
6.selected使处于选定状态
7.ListSubitems(index)集合我们可以把这个集合看作对这行中单元格的引用
Text设置或返回单元格显示的内容
Reporticon设置单元格的图标
8.Subitems(index)设置或返回单元格文本==ListSubitems(index).text
ColumnHeaders(index)属性
ColumnHeaders属性是ListView控件中列标头的集合
1.text显示标题文本
2.key
3.index
4.icon指定标题图标
5.alignment指定index列的对齐方式(注意:
第一列也就是列表项不能指定)
6.position返回当前列的索引
7.subitemindex返回指定列的listsubitem索引
TextBackgroud属性
决定text的背景是透明还是ListView的背景色
值0lvwTransparent透明
1lvw不透明(用listview的背景色)
Ghosted属性logic
决定是否虚状
HideColumnHeaders属性
隐藏表头
LabelWrap属性
标签转行View.LargeIcon或View.SmallIcon时才使用该属性
FullRowSelect
整行显示
HotTracking
热点追踪鼠标指针自动调整为手型
HoverSelection属性
自动聚焦鼠标指针自动调整为手型
AllowColumnReorder属性
值设置.t.时,用户可以用鼠标选中1列拖至其他地方进行重新排列
Sorted属性
当值为.t.时,列表按字母排序
常用方法:
ListItems.add(index,key,text,icon,smallicon)
向listitems添加一列表项。
Index插入列表项的编号
Key插入列表项的关键字
Text插入列表项的文本
Icon当为图标视图时要求显示的图标
Smallicon当为小图标视图时要求显示的图标
Clear
清除listitems集合中所有的列表项
Remove清除选定行
L1=thisform.view1
L1.listitems.remove(L1.selectedItem.index)
常用事件:
AfterLabelEdit
编辑当前选择的列表对象之后发生
BeforeLabelEdit
编辑当前选择的列表对象之前发生
ItemClick
单击某一列表对象时发生
参数item对当前列表项的引用
事件
AfterLabelEdit:
编辑ListItem对象的标签时被触发。
BeforeLabelEdit:
编辑ListItem对象的标签后出发。
ColumnClick:
单击列标题时触发。
参数中可以获得被单击的列对象。
通常用于排序。
ItemClick:
单击某行或某ListItem时触发。
参数中可以获得被单击的ListItem对象。
方法
FindItem:
搜索ListItem对象。
参数:
string:
搜索字符串。
value:
在ListItem的哪部分中搜索(LvwText、LvwSubItem、LvwTag);
index:
开始搜索的位置。
match:
匹配方式。
HitTest:
检索位于特定坐标处的ListItem对象。
vb中的实例
PrivateSubForm_load()
'
确保ListView控件的view属性为报表视图。
ListView1.View=lvwReport
添加三列。
ListView1.ColumnHeaders.Add,"
Name"
"
Sex"
Age"
年龄"
向控件添加ListItem对象。
DimitmXAsListItem
添加column1的名称。
SetitmX=ListView1.ListItems.Add(1,"
ZL"
张力"
)
使用SubItemIndex将SubItem与正确的ColumnHeader关联。
使用关键字("
)指定正确的ColumnHeader。
itmX.SubItems(ListView1.ColumnHeaders("
).SubItemIndex)="
男"
使用ColumnHeader关键字将SubItems字符串与
正确的ColumnHeader关联。
19"
LF"
李芳"
22"
WW"
王伟"
itmX.SubItems(ListView1.ColumnHeaders("
24"
EndSub
PrivateSubListView1_ColumnClick(ByValColumnHeaderAs
ComctlLib.ColumnHeader)
SelectCaseColumnHeader.Key
Case"
:
ListView1.SortKey=1
ListView1.SortOrder=lvwAscending
ListView1.Sorted=True
ListView1.SortKey=2
EndSelect
例二
PrivateSubUserForm_Initialize()
ListView1.ColumnHeaders.Add,,"
添加QQ号列
呢称"
添加呢称列
来自何处"
添加来自何处列
ListView1.View=lvwReport'
设置显示方式为报表格式
代码说明:
1、在工作表中用Column表示列。
而在Listview控件中,用ColumnHeaders对象来操作列,而添加新的列可以用ColumnHeaders对象的ADD方法。
具体如下:
ListView1.ColumnHeaders.Add序号,唯一的字符串标识,列标显示文字,列宽,列的内容对齐方式,所使用的图标序号。
如本例中:
ListView1.ColumnHeaders.Add,,"
2、Listview控件的View属性决定着它的显示的方式,具体如下:
ListView1.View=lvwIcon'
图标显示
ListView1.View=lvwSmallIcon'
小图标显示ListView1.View=lvwList'
列表显示
报表显示添加效果:
示例文件:
代码:
PrivateSubUserForm_Initialize()'
声明变量类型
DimITMAsListItem'
添加QQ号列,列宽占总宽度的三分之一,左对齐
ListView1.Width/3,
lvwColumnLeft'
添加呢称列,列宽占总宽度的三分之一,居中对齐
lvwColumnCenter'
添加来自何处列,列宽占总宽度的三分之一,右对齐
lvwColumnRight'
显示表格线
ListView1.Gridlines=True'
设置循环,填充记录
Fori=1To[A65536].End(xlUp).Row'
添加记录
SetITM=ListView1.ListItems.Add()'
添加记录的行标题定义产生一个新记录,新行
ITM.Text=Cells(i,1)'
添加记录的记录文本说明
ITM.SubItems
(1)=Cells(i,2)'
添加记录的第一个字段的内容,在第二列上显示
1、ListView1的Gridlines属性为True时显示表格线,为False不显示表格线。
2、在ListView控件中,添加记录要通过ListItems集合对象来实现,如本例中SetITM=
ListView1.ListItems.Add()
3、设置第一列的内容是通过text属性来添加,而以后各列的添加则通过SubItems对象来实现。
第2列为SubItems
(1)第3列为SubItems
(2)..........
4、在Listview控件第1列只能左对齐,而不能采取其他对齐方式
5、单元格引用:
CELLS(行,列)
增加列
listView1.ColumnHeaders.Add
增加行
listView1.ListItems.Add
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VBA 学习笔记 学习 笔记