第3节-(上)语句窗体-vb-2010.pptVIP

4. Activate 5. Deactivate事件 Activate事件和Deactivate事件分别称为活动事件和非活动事件。当一个窗体变为活动窗口时触发Activate事件，而窗体在变为活动窗口之前触发Deactivate事件。 6. Paint事件 Paint事件用图形方法刷新窗体内容，当移动窗体或重调窗体尺寸时触发该事件 当进行 鼠标移动（Mouse Move）、 按下鼠标键（Mouse Down）、 释放鼠标键（Mouse Up）、 单击（Click）、 双击（Double Click） 等操作时，会触发相应的鼠标事件。 其他事件 1 鼠标事件 【例4】 下面通过一个简单的程序观察窗体对单击、双击鼠标事件的响应情况。 Private Sub Form_Click() Form1.Print *** 单击事件***;  End Sub Private Sub Form_DblClick() Form1.Print *** 双击事件***; End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Form1.Print *** 按下鼠标左键 *** End If If Button = 2 Then Form1.Print *** 按下鼠标右键 ***; End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Form1.Print *** 释放鼠标左键 *** End If If Button = 2 Then Form1.Print *** 释放鼠标右键 ***; End If End Sub 以上程序分别在窗体的单击鼠标、双击鼠标、释放鼠标和按下鼠标的事件过程中添加显示命令，显示所执行的操作。 MouseMove事件： 移动鼠标键就会触发MouseMove事件。 MouseMove是窗体所能识别的鼠标事件之一。当程序进入运行状态后，只要在窗体内移动鼠标，就发生窗体的MouseMove事件，窗体立即响应此事件，执行Form_MouseMove过程中的语句。 图4.15 【例4.5】 设计一个程序，在窗体上添加4个图像框，当用户在窗体上移动鼠标时，4个图形文件就会装入图像框。窗体设计如下图所示。 编写如下程序： Private Sub Form_MouseMove（Button As Integer, Shift As Integer, X As Single, Y As Single） Image1.Picture = LoadPicture(“d:\animal\qe.jpg) Image2.Picture = LoadPicture(“d:\animal\mg.jpg) Image3.Picture = LoadPicture(“d:\animal\cowboy.jpg) Image4.Picture = LoadPicture(“d:\animal\cat.jpg) End Sub Image strech属性设置为真 也可以将程序的功能改为： 若将鼠标在第一个图像框移动，就在第一个框中出现一个图形,修改以上事件过程如下Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Image1.Pictur=LoadPicture(″E:\TanVB6\door. bmp ″) End Sub 也可以判断图象框内是否有图片，再进行加载。 Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Image2.Picture=0 then Image2.Picture=LoadPicture(″E:\TanVB6\building.bmp″) Else Image2.Picture=LoadPicture(″″) End if End Sub 1. KeyPress事件 当按下键盘的某个键时，就会触发KeyPress事件。Visual Basi