第二 窗体和标准控件一.pptVIP

2. 事件： Scroll：拖动滑块时会触发Scroll事件。 Change：Value属性改变时触发Change事件。 例 用一个文本框(txtSpeed)显示滚动条(hsbSpeed)滑块当前位置所代表的值。 例 调色板程序。 Sub hscroll1_Change() Text1.Text= HScroll1.Value End Sub 问题 请说出VALUE在命令按钮和滚动条控件中的作用 文本框中显示的内容，可以通过CAPTION属性获得。正确否？ 文本框中的滚动条不是自带的。正确否？ 设置标签中文字的字体用什么属性？ 2.7 inputbox函数和msgbox函数 inputbox函数 格式：变量名=InputBox [ $ ] (提示[,标题][, 缺省][, x][, y]) 说明： “提示”：为一个字符串表达式，在对话框中作为给用户的信息提示，若要多行显示，必须在每行的行末加回车Chr(13)和换行Chr(10）控制符。 “标题”：字符串表达式，在对话框的标题区显示；若省略，则把应用程序名自动放入。 “缺省”：字符串表达式，当在输入对话框中无输入时，则该缺省值作为输入的内容。 “x,y”：整型表达式，确定对话框左上角在屏幕上的位置，屏幕左下角为坐标原点，单位是Twip。 注意：以上各参数必须一一对应，“提示”项不能省略，省略部分要用逗号占位跳过。 例如： Print InputBox(输入你的姓名+chr(13)+chr(10)+然后单击确定,输入框,******,100,100) 标题 提示 缺省 msgbox函数 格式：变量名=MsgBox (提示 [ , 按钮 ] [ , 标题 ]) 说明： “提示”：提示信息，与inputbox函数相同。 “标题”：信息框的标题。 “按钮”：整数表达式，它的值决定消息框中按钮的个数、类型及图表类型。如：Response = MsgBox(你确实想退出码 ? , 4 + 16 + 256 , MsgBox 示范 ) 分 组 内部常数 按钮值 描 述 ? 按 钮 种 类 ? VbOkOnly VbOkCancel vbAboutRetryIgnore vbYesNoCancel vbYesNo vbRetryCancel 0 1 2 3 4 5 只显示确定按钮 显示确定、取消按钮 显示终止、重试、忽略按钮 显示是、否、取消按钮 显示是、否按钮 显示重试、取消按钮 图 标 类 型 vbCritical vbQuestion vbExclamation vbInformation 16 32 48 64 关键信息图表 红色STOP标志 询问信息图标 ？ 警告信息图标 ！ 一般信息图标 i 缺省 按钮 vbDefaultButton1 vbDefaultButton2 vbDefaultButton3 0 256 512 第一个按钮为缺省 第二个按钮为缺省 第三个按钮为缺省 2.8 键盘和鼠标事件 键盘事件 从按下键盘上的某个键到放开按键为止，依次发生keydown、keypress、keyup事件。 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) End Sub Keycode:是一个键代码,按键的扫描码。 Shift:是在该事件发生时响应 SHIFT(0) ,CTRL(1) 和 ALT(2) 键的状态的一个整数。 Keyascii:是返回所按键的ASCII码。将 keyascii 改变为 0 时可取消击键，这样一来对象便接收不到字符。 例：建立一个应用程序，实现将键盘输入的字符输出到当前应用程序的窗体上，当键入回车键时，清除窗体上输出的文本。 鼠标事件 当单击鼠标键时，依次触发以下不同的鼠标事件： l?? 移动鼠标，连续触发MouseMove事件 l?? 按下鼠标键，触发MouseDown事件 l?? 按下鼠标键移动鼠标时，触发MouseMove事件 l?? 放开鼠标键时，触发MouseUp事件 l?? MouseUp事件之后，触发Click事件。 而在双击鼠标时，依次发生下列事件： l?? MouseDown l?? MouseUp l?? Click l?? DblClick l?? MouseUp Private Sub Form_MouseDow