VBA的控件及用户窗体

更新时间:2023-07-20 20:47:26 阅读: 评论:0

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函数替换成空白。

本文发布于:2023-07-20 20:47:26,感谢您对本站的认可!

本文链接:https://www.wtabcd.cn/fanwen/fan/82/1107628.html

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系,我们将在24小时内删除。

标签:窗体   控件   文本框   使用   输入   添加   字符   代码
相关文章
留言与评论(共有 0 条评论)
   
验证码:
推荐文章
排行榜
Copyright ©2019-2022 Comsenz Inc.Powered by © 专利检索| 网站地图