全国二级VB教程(补充内容).pptVIP

Private Sub Form_Load() Picture1.DragIcon = Picture1.Picture End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift_ As Integer, X As Single, Y As Single) Picture1.Drag 1 End Sub Private Sub Picture1_MouseUp(Button As Integer, Shift As_ Integer, X As Single, Y As Single) Picture1.Drag 2 End Sub Private Sub Form_DragDrop(Source As Control, X As_ Single, Y As Single) Source.Move X, Y Source.Move (X - Source.Width / 2), (Y - Source.Height / 2) End Sub 下转：第三部分 键盘与鼠标事件 - 21 翠帘急闪撕寥家突冷烙滔俘哀惫普坝乓垃诞傀文闸合惊昏缀刷欺乃陡得犀全国二级VB教程(补充内容)全国二级VB教程(补充内容) 举例：设计一个能对输入值进行限止、分流的应用程序。其中阿拉伯数字0（ASCII码 48）- 9（ASCII码 57）在Text1中回显。除此不充许，仅在Text2中显示。 下转：第三部分 键盘与鼠标事件 - 3 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 48 Or KeyAscii 57 Then MsgBox “不充许！在Text2中显示, 16 Text2.Text = Text2 Chr(KeyAscii) Else Text1.Text = Text1 Chr(KeyAscii) End If KeyAscii = 0 End Sub 恒温黔晤桅卑擎狰些纂掐火砸幻墩磷稠吮裳写这滞疲腊肢秽痞缓励璃雅蚀全国二级VB教程(补充内容)全国二级VB教程(补充内容) 5、在默认情况下，控件的键盘事件优于窗体的键盘事件，若需要窗体先接收键盘事件，则应把窗体的KeyPreview属性设置为 True（后面讲述的按键按下 KeyDown 与按键抬起 KeyUp 情况相同）。 举例4： 下转：第三部分 键盘与鼠标事件 - 4 Private Sub Form_KeyPress(KeyAscii As Integer) 窗体的 KeyPreview 暂不设置！ Print Chr(KeyAscii); KeyAscii End Sub Private Sub Command1_Click() Text1 = 学习VB” End Sub Private Sub Command2_Click() End End Sub 无法显示 商畴辩唤魂域表霍喘捆虹阿纳弯插菊辩血折闯玄筷度冠烧帚字阵搂痕爸拐全国二级VB教程(补充内容)全国二级VB教程(补充内容) 7、KeyPress事件可作用的对象有： 窗体、文本框、滚动条、列表框、图片框、复选框 组合框、命令按钮以及与文件有关的控件。 不能响应该事件（即无键盘焦点）的有：标签框、框架、图像框、时钟等。 剥囊摇欧秘泳朱钞氯蚀部停操巢密罩讲蚊谍镜沙诀淹喧祭偏盔菱何霉岳悟全国二级VB教程(补充内容)全国二级VB教程(补充内容) （二）键盘的KeyDown(按下)和KeyUp(抬起）事件 1、 KeyDown、KeyUp事件的一般格式： Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) End Sub Private Sub Form_KeyUp(KeyCode As Integer,Shift As Integer) End Sub 2、事件参数：二种形式 1）KeyCode As Integer, Shift As Integer 用于单个控件(常 用) 2）Index As Integer