vba的控件及用户窗体

《vba的控件及用户窗体》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VBA常用技巧代码解析目录VBA常用技巧1第8章控件与用户窗体4技巧1限制文本框的输入4技巧2文本框添加右键快捷菜单6技巧3文本框回车自动输入10技巧4自动选择文本框内容11技巧5设置文本框数据格式12技巧6限制文本框的输入长度14技巧7将光标返回文本框中15技巧8文本框的自动换行17技巧9多个文本框数据相加19技巧10控件跟随活动单元格20技巧11高亮显示按钮21技巧12组合框和列表框添加列表项的方法2312-1使用RowSource属性添加列表项2312-2使用List属性添加列表项2412-3使用AddItem方法添加列表项25技巧13去除列表框数据源的重复值和空格27技巧1

2、4移动列表框条目29技巧15允许多项选择的列表框32技巧16多列组合框和列表框的设置3516-1多列组合框和列表框添加列表项3516-2多列列表框写入工作表37技巧17输入时逐步提示信息39技巧18二级组合框46技巧19使用DTP控件输入日期48技巧20使用RefEdit控件选择区域51技巧21如何注册控件52技巧22遍历控件的方法5522-1使用名称中的变量遍历控件5522-2使用对象类型遍历控件5722-3使用程序标识符遍历控件5822-4使用名称中的变量遍历图形5922-5使用FormControlType属性遍历图形60技巧23使微调框最小变动量小于161技巧24不打印工作

3、表中的控件6324-1设置控件格式6324-2设置控件的printobjcet属性65技巧25在框架中使用滚动条65技巧26使用多页控件67技巧27标签文字垂直居中对齐69156VBA常用技巧代码解析技巧28使用TabStrip控件71技巧29显示GIF动画图片73技巧30播放Flash文件76技巧31在工作表中添加窗体控件7831-1使用AddFormControl方法7931-2使用Add方法81技巧32在工作表中添加ActiveX控件8332-1使用Add方法8432-2使用AddOLEObject方法86技巧33使用spreadsheet控件87技巧34使用Listview

4、控件9034-1使用Listview控件显示数据列表9034-2在Listview控件中使用复选框9334-3调整Listview控件的行距9534-4在Listview控件中排序9834-5Listview控件的图标设置99技巧35调用非模式窗体102技巧36进度条的制作10436-1使用进度条控件10436-2使用标签控件106技巧37使用TreeView控件显示层次109技巧38用户窗体添加图标113技巧39用户窗体添加最大最小化按纽115技巧40禁用窗体标题栏的关闭按钮116技巧41屏蔽窗体标题栏的关闭按钮117技巧42无标题栏和边框的窗体119技巧43制作年月选择窗体12

5、0技巧44自定义窗体中的鼠标指针类型123技巧45调整窗体的显示位置124技巧46由鼠标确定窗体显示位置126技巧47用户窗体的打印127技巧48使用自定义颜色设置窗体颜色129技巧49在窗体中显示图表13049-1使用Export方法13049-2使用API函数132技巧50窗体运行时调整控件大小133技巧51在用户窗体上添加菜单136技巧52在用户窗体上添加工具栏140技巧53使用代码添加窗体及控件145技巧54用户窗体的全屏显示15154-1设置用户窗体为应用程序的大小15154-2根据屏幕分辨率进行设置152技巧55在用户窗体上添加状态栏153156VBA常用技巧代码解析1

6、56VBA常用技巧代码解析第8章控件与用户窗体技巧1限制文本框的输入用户在使用文本框输入数据时，往往希望能限制输入数据的类型，比如只能输入数字。但是没有内置的属性能限制在文本框中只能输入数字，只能在文本框的事件过程中使用代码来测试输入的是哪类字符，然后只允许输入数字字符和一个“-”号、一个“.”号，如下面的代码所示。#001PrivateSubTextBox1_KeyPress(ByValKeyANSIAsMSForms.ReturnInteger)#002SelectCaseKeyANSI#003CaseAsc("0")ToAsc("9")#004CaseAsc("-")#005

7、IfInStr(1,Me.TextBox1.Text,"-")>0Or_#006Me.TextBox1.SelStart>0Then#007KeyANSI=0#008EndIf#009CaseAsc(".")#010IfInStr(1,Me.TextBox1.Text,".")>0Then#011KeyANSI=0#012EndIf#013CaseElse#014KeyANSI=0#015EndSelect#016EndSub代码解析：文本框的KeyPress事件过程