第2章 常用的标准控件
- 格式:ppt
- 大小:583.50 KB
- 文档页数:12
常见的控件介绍阅读⽬录常见的控件:1.⽂本输⼊框(TextBox)2.按钮控件(Button)3.下拉选框(DropList)4.⽇期/时间控件(Date/TimePicker)5.(图⽚、⽂件)上传控件(Upload)6.树形控件(TreeView)7.列表框(ListBox)8.多格式⽂本框(RichTextBox)9.Tab控件10.其他控件11.多浏览器兼容性问题以下是上述常⽤控件就样式、属性、功能、测试点等⽅⾯的总结1.⽂本框纯⽂本框(不带其他类型控件)主要分为密码框、⽂本框(TextBox)和多⾏⽂本框(TextArea)1.1密码框(1)样式:(2)属性:输⼊的⽂本会⾃动以⿊⾊圆点或星号加密显⽰。
(3)功能:⽤于输⼊密码(4)测试点(功能):1.字符长度2.是否区分字母⼤⼩写3.全⾓半⾓输⼊(数字、英⽂)4.是否允许空格字符5.输⼊的密码是否密⽂显⽰,是否可以“显⽰密码”6.安全性:是否可以复制、粘贴⽅式输⼊、复制粘贴后是否看到明⽂7.安全性:密码传输过程是否加密、数据库保存是否加密8.密码验证⽅式是否为⽐对模式。
9.登录后是否会⽤明⽂传递参数10.利⽤复制粘贴等操作强制输⼊不允许的输⼊数据11.同⽂本框测试点1.2⽂本框(1)样式:(2)属性:普通⽂本框,允许输⼊⽂本、数字等类型的字符(3)功能:⽤于普通⽂本的输⼊和显⽰,常搭配其他控件使⽤(4)测试点(功能):1.输⼊中⽂、英⽂⼤⼩写、数字、特殊字符,构建有效等价类和⽆效等价类2.全⾓半⾓输⼊(数字、英⽂)和显⽰3.输⼊框是否为必填项(空输⼊)4.是否可以输⼊空格以及对空格的处理(包括全⾓半⾓、中英⽂、⽂本⾸尾、⽂本间的空格)5.字符长度6.⽀不⽀持快捷键操作(Enter、Ctrl+“C/V/X/A/Z”复制粘贴剪切全选撤销等)7.数值型、⽇期型、时间型⽂本框的合法性校验8.利⽤复制粘贴等操作强制输⼊不允许的输⼊数据9.特殊字符(串):单引号、双引号、分号、Null、null、/、\、转义字符、</html>等10.JavaScript代码:<b>Hello</b>、alert("hello")11.html代码:<font>你好</font>、<script>alert(/xss/)</script>12.注⼊式Bug1.3多⾏⽂本框(1)样式:(2)属性:可以输⼊复数⾏的⽂本。
VB程序设计常用标准控件(二)5.5 滚动条与按钮控件5.5.1滚动条(ScrollBar)滚动条(ScrollBar)可分为水平滚动条(HscrollBar)和垂直滚动条(VscrollBar),其默认名称分别为HscrollX和VscrollX(X为1,2,3…),二者只是滚动方向不同。
1.常用的属性(1)Value属性Values是一个界于滚动条控件的Min属性和Max属性取值之间的整数,用来设置滚动块在滚动条中的位置。
(2)LargeChange属性(3)SmallChange属性(4)Max属性(5)Min属性2.常用的事件(1)Scroll事件用鼠标拖曳滚动条的滚动块时,此事件发生。
(2)Change事件移动滚动条的滚动块、单击滚动条或滚动箭头,使滚动块重定位时,或通过代码改变滚动条的Value属性值时,该事件产生。
Change事件与Scroll事件的区别在于:当滚动条控件滚动时Scroll事件一直发生,而Change事件只是在滚动结束后才发生一次。
【例5.5】滚动条ScrollBar示例。
设计一个程序进行坐标设置,界面如图5-10所示。
要求:①在文本框中输入0~100范围内的数值后,对应滚动条的滚动块会滚动到相应位置,同时在标签中显示当前坐标。
②当滚动条的滚动块的位置改变后,对应文本框中也会显示出相应的数值,标签中也会显示出当前坐标。
按下列步骤操作。
(1)窗体外观设计在窗体画1个标签、2个文本框、2个滚动条,设置控件的主要属性。
(2)事件代码设计“HScrollx”水平滚动条控件的“Change”事件过程代码如下:Private Sub HScrollx_Change()Labelxy.Caption = "当前坐标为(" + Str(HScrollx.Value) + "," + Str(VScrolly.Value) + ")"End Sub“VScrolly”垂直滚动条控件的“Change”事件过程代码如下:Private Sub VScrolly_Change()Labelxy.Caption = "当前坐标为(" + Str(HScrollx.Value) + "," + Str(VScrolly.Value) + ")"End Sub“Textx”文本框控件的“Change”事件过程代码如下:Private Sub Textx_Change()If IsNumeric(Textx.Text) And Val(Textx.Text) >= 0 And Val(Textx.Text)<= 100 ThenHScrollx.Value = Val(Textx.Text)ElseLabelxy.Caption = "无效坐标"End IfEnd Sub“Texty”文本框控件的“Change”事件过程代码如下:Private Sub Texty_Change()If IsNumeric(Texty.Text) And Val(Texty.Text) >= 0 And Val(Texty.Text) <= 100 ThenVScrolly.Value = Val(Texty.Text)ElseLabelxy.Caption = "无效坐标"End IfEnd Sub(3)运行程序5.5.2按钮(CommandButton)命令按钮可以控制一个过程的开始、中断和结束,当用户按下按钮时,引发一定的事件,从而执行相应的动作。