第3课 使用文本框控件.ppt

* 师范大学2016信息技术春季班 阿迪力·阿卜力孜 新疆师范大学计算机科学技术学院 * 第3课 使用文本框控件 四、使用标签控件* 三、消息框函数 MsgBox * 二、使用框架控件* 一、文本框控件及其用法 新疆师范大学计算机科学技术学院 * 一、文本框控件及其用法 Text 、Enabled 、ToolTipText 、MaxLength 最大长度、Locked 锁定 、ScrollBars 水平滚动条 、MultiLine 多行文本、PasswordChar 密码设置等。 最常用的是Change事件和GotFocus事件。 1．文本框的属性 2．文本框的事件 新疆师范大学计算机科学技术学院 * 一、文本框控件及其用法 3. 完成教材第3课中的项目 新疆师范大学计算机科学技术学院 * 二、使用框架控件 　主要属性： ●Caption 对象标题栏的 文本 ●Enabled 设置 一个值，对象是否响应 ●Visible 决定对象是否可见 ●BorderStyle 设置对象的边框样式 　　框架是一个用于分组的容器控件，其内的控件 会受框架控件的Visible属性及Enabled属性的控制。 当框架移动时，其内的控件也会同步移动。 新疆师范大学计算机科学技术学院 * MsgBox　内容prompt　[，类型buttons]　[，标题title] MsgBox 要退出吗？, vbYesNo + vbQuestion, 注意 三、消息框函数 MsgBox 说明： buttons详见60页三张表。 　　可以用MsgBox函数或MsgBox语句来设置消息 对话框中的有关信息。 1．MsgBox语句 新疆师范大学计算机科学技术学院 * MsgBox（内容prompt[，类型buttons][，标题title]） 　 ●若要保留返回值，则必须要用函数形式调用，如： X= MsgBox（ “要退出吗?, vbYesNo + vbQuestion） 　 If X =vbYes Then …… 　●函数返回值用常量记忆最方便。 Page 61 三、消息框函数 MsgBox ●若无需保留返回值，则用语句形式调用。 2．MsgBox函数 3．说明 按下的按钮 内部常量 返回值 OK(确定) vbOk 1 Cancel(取消) vbCancel 2 Abort(终止) vbAbort 3 Retry(重试) vbRetry 4 Ignore(忽略) vbIgnore 5 Yes(是) vbYes 6 No(否) vbNo 7 新疆师范大学计算机科学技术学院 * 四、使用标签控件 演示 BorderStyle、Transparent、AutoSize、WordWrap等。 标签能响应绝大多数的事件，但在实际编程中不常使用。标签常用的方法是Move方法，以便用代码实现标签的移动和缩放。其语法格式为： [〈对象名〉.] Move left[, top[, width[, height]]] 1．标签的属性 2．标签的事件与方法 ＿＿《多媒体世界》2000年第4期 案例程序：用VB制作特技字幕 3．标签的使用 * * MsgBox 要终止吗？ Chr(13) 请慎重选择！ * Private Sub Form_Resize() Dim i As Byte Form1.Move 0, 0, Screen.Width, Screen.Height Form1.BackColor = vbBlack Word(0).Caption = 床前明月光 Word(1).Caption = 疑是地上霜 Word(2).Caption = 举头望明月 Word(3).Caption = 低头思故乡 For i = 0 To 3 Word(i).Left = 0 Word(i).Top = Form1.Height + i * 2000 Word(i).Width = Form1.Width Word(i).Alignment = 2 Word(i).ForeColor = QBColor(14 - i) Word(i).FontSize = 50 Word(i).AutoSize = True Word(i).BackStyle = 0 Next i End Sub Private Sub Timer1_Timer() Dim i As Byte For i = 0 To 3 Word(i).Top = Word(i).Top - 150 Ne