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 组合框和列表框添加列表项的方法 23
12-1 使用RowSource属性添加列表项 23
12-2 使用List属性添加列表项 24
12-3 使用AddItem方法添加列表项 25
技巧13 去除列表框数据源的重复值和空格 27
技巧14 移动列表框条目 29
技巧15 允许多项选择的列表框 32
技巧16 多列组合框和列表框的设置 35
16-1 多列组合框和列表框添加列表项 35
16-2 多列列表框写入工作表 37
技巧17 输入时逐步提示信息 39
技巧18 二级组合框 46
技巧19 使用DTP控件输入日期 48
技巧20 使用RefEdit控件选择区域 51
技巧21 如何注册控件 52
技巧22 遍历控件的方法 55
22-1 使用名称中的变量遍历控件 55
22-2 使用对象类型遍历控件 57
22-3 使用程序标识符遍历控件 58
22-4 使用名称中的变量遍历图形 59
22-5 使用FormControlType属性遍历图形 60
技巧23 使微调框最小变动量小于1 61
技巧24 不打印工作表中的控件 63
24-1 设置控件格式 63
24-2 设置控件的printobjcet属性 65
技巧25 在框架中使用滚动条 65
技巧26 使用多页控件 67
技巧27 标签文字垂直居中对齐 69
技巧28 使用TabStrip控件 71
技巧29 显示GIF动画图片 73
技巧30 播放Flash文件 76
蔑怎么读技巧31 在工作表中添加窗体控件 78
31-1 使用AddFormControl方法 79
31-2 使用Add方法 81
技巧32 在工作表中添加ActiveX控件 83
32-1 使用Add方法 84
32-2 使用AddOLEObject方法 86
技巧33 使用spreadsheet控件 87
技巧34 使用Listview控件 90
34-1 使用Listview控件显示数据列表 90
34-2 在Listview控件中使用复选框 93
34-3 调整Listview控件的行距 95
34-4 在Listview控件中排序 98
34-5 Listview控件的图标设置 99
技巧35 调用非模式窗体 102
节俭的名言技巧36 进度条的制作 104
36-1 使用进度条控件 104
36-2 使用标签控件 106
技巧37 使用TreeView控件显示层次 109
技巧38 用户窗体添加图标 113
技巧39 用户窗体添加最大最小化按纽 115
技巧40 禁用窗体标题栏的关闭按钮 116
技巧41 屏蔽窗体标题栏的关闭按钮 117
技巧42 无标题栏和边框的窗体 119
技巧43 制作年月选择窗体 120
技巧44 自定义窗体中的鼠标指针类型 123
技巧45 调整窗体的显示位置 124
技巧46 由鼠标确定窗体显示位置 126
技巧47 用户窗体的打印 127
技巧48 使用自定义颜色设置窗体颜色 129
技巧49 在窗体中显示图表 130
49-1 使用Export方法 130
49-2 使用API函数 132
技巧50 窗体运行时调整控件大小 133
技巧51 在用户窗体上添加菜单 136
技巧52 在用户窗体上添加工具栏 140
技巧53 使用代码添加窗体及控件 145
技巧54 用户窗体的全屏显示 151
54-1 设置用户窗体为应用程序的大小 151
54-2 根据屏幕分辨率进行设置 152
技巧55 在用户窗体上添加状态栏 153
第8章 控件与用户窗体
技巧1 限制文本框的输入
用户在使用文本框输入数据时，往往希望能限制输入数据的类型，比如只能输入数字。但是没有内置的属性能限制在文本框中只能输入数字，只能在文本框的事件过程中使用代码
来测试输入的是哪类字符，然后只允许输入数字字符和一个“-”号、一个“.”号，如下面的代码所示。
#001 Private Sub TextBox1_KeyPress(ByVal KeyANSI As
作文好段摘抄大全
#002 Select Ca KeyANSI
#003 Ca Asc("0") To Asc("9")
#004 Ca Asc("-")
#007 KeyANSI = 0
#008 End If
#009 Ca Asc(".")
#011 KeyANSI = 0
蜈蚣怎么养
#012 End If
#013 Ca El
#014 KeyANSI = 0
#015 End Select
#016 End Sub
代码解析：
办丧事三天具体流程文本框的KeyPress事件过程，测试键盘输入的是哪类字符，只允许输入数字字符和一个“-”号、一个“.”号。
KeyPress事件的语法如下：
Private Sub object_KeyPress( ByVal KeyANSI As
参数Object是必需的，一个有效的对象。
参数KeyANSI是可选的，整数值，代表标准的数字ANSI 键代码。
第2行代码使用Ca El语句测试文本框KeyPress事件的KeyANSI参数值。
第3行代码，如果键盘输入的是0到9之间的数字字符，则允许输入。如果想在文本框中允许其它类型的字符输入，在此句代码中列出允许输入的字符即可。
第4行到第8行代码，如果键盘输入的是“-”号，先使用InStr函数测试文本框中是否已有“-”号，如果InStr函数电影配乐返回值大于0，说明文本框中已有“-”号。接下来使用文本框的SelStart 属性来测试插入点，如果文本框的SelStart 属性值大于0，说明“-”号的插入点不是第一个。如果以上两个条件中有任何一个成立，将KeyAscii参数值设置为0，使文本框只能在第一位输入一个“-”号。
第9行到第12行代码，如果键盘输入的是“.”号的话，使用InStr函数测试文本框中是否已有“.”号，如果已有“.”号，将KeyAscii参数值设置为0，使文本框只能输入一个“.”号。
第13、14行代码，如果键盘输入的是其他字符则将KeyAscii参数值设置为0，使文本框不能输入其他字符。
经过以上设置文本框只允许输入数字字符和一个“-”号、一个“.”号，但是能输入中文字符。
如果希望限制中文字符的输入，可以在文本框的Change事件中进行设置，如下面的代码所示。
#001 Private Sub TextBox1_Change()
#002 Dim i As Integer
#003 Dim s As String
#004 With TextBox1
#005 For i = 1 To Len(.Text)
#006 s = Mid(.Text, i, 1)
#007 Select Ca s
#008 Ca ".", "-", "0" To "9"
#009 Ca El
#010 .Text = Replace(.Text, s, "")
#011 End Select
#012 Next
#013 End With
#014 End Sub
代码解析：
文本框的Change事件，判断输入的字符是否为数字字符和“-”号、“.”号，如果不是则使用Replace函数将文本框中输入的其他字符替换成空白。
第5、6行代码在文本框输入的所有字符中循环。
第8行代码列出允许输入的字符。如果想在文本框中允许其它字符输入，在此句代码中列出即可。
第9、10行代码，如果不是阳台风水三宜六忌允许输入的字符，使用Replace函数替换成空白。
