WWW信息服务和信息搜索.pptVIP

第五章　常用控件 计算机文化基础 德清学院方圆雨田工作室 2002年 学习目标 基本内容 5＿1、标签的常用属性 5－1－2　常用事件 实例：动态显示文字 实例：动态按钮 5＿2、文本框（TextBox)的常用属性 5＿2、文本框（TextBox)的常用属性 实例：密码框 实例：选择属性 实例：身份证输入 5－2－2　文本框常用事件 补充:使用UpDown控件 基本属性 举例:UpDown输入 补充:使用UpDown控件 5-3命令按钮(Command Button) 实例:制作图形按钮,并显示手形 Visubal Basic程序设计 * 方圆雨田工作室qls@ VB程序设计　2001计大 1、掌握：标签、文本框、命令按钮 　图片框、单选框和复选框的基本用法 2、理解：组合框、滚动条、 　记时器的用法 3、了解：Image控件和综合示例 计时器 综合示例 标签　Label 文本框 Text box 命令按钮Command Box 复选框 Option Box 单选框 Check Box 列表框 List Box 组合框 Combo Box 滚动条 Scroll 框架 Frame 对话框 Common Dialog 图片框 Picture Box 图像框 Image Box 1、Alignment属性：对齐方式，值为：0、1、2 2、Caption属性：标签显示的内容　　 3、Font 属性：Forcolor\　Backcolor\　Backstyle(背景模式：0：透明，1：覆盖） 　Borderstyle 加框形式：0：无框　1、有框 　Enabled\ Visible\Top\left\width\Height Change事件： Click事件： Dbclick事件： Private Sub command1_Click() Dim newleft,I as integer newLeft=7500 ’初始化标签left记录变量 Do Newleft=newleft-50’修改left的值，得到新位置 label1.move newleft,400 For I=1 to 10000　’循环 Doevents Next I Loop Until newleft=400　’停止 End sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label13.Visible = False Label14.Visible = False End Sub Private Sub Label15_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label13.Visible = True Label14.Visible = True End Sub 1、Text属性：例：TEXT1.TEXT=“AAA” 例：TXT＝TEXT1.TEXT, TEXT1.TEXT=“” 2、MultiLine属性：是否允许多行　　 3、MaxLength属性：最大字符数 4、ScrollBars属性：滚动条属性 　0－None 1-Horizontal 2-vertical 3-Both P103　表5－2　TextBox的常用属性 5、PasswordChar属性：密码代替显示字符 6、Locked属性：是否允许修改　true或false　　 7、MaxLength属性：最大字符数 8、Selstar, Sellength,SelText属性： 　　Selstar:返回或设置所选择文本的起点 　　Sellength:返回或设置所选文本的字符数 　Seltext:返回或设置被选正文的内容 设置了Selstar属性和Sellength属性后，被选正文也就相应确定了，此时，系统会自动将所选的文本送入seltext属性保存，为了使所选中的文本能反相显示，可用HideSelection属性值为false来确定。 Private Sub command1_Click() Static i As Integer If Text1.Text =Then MsgBox OK Picture1.Visible = True Else i = i + 1 If i = 3 Then MsgBox 你不能再使用!, vbO