第5章 窗体与常用控件 1.pptVIP

鼠标事件 MouseHover、MouseLeave事件过程结构分别为（假设在Form1上触发）： Private Sub Form1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseHover End Sub Private Sub Form1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave End Sub 这2个事件的e参数没有上面提到的几个属性。 【例5.13】设计一个如下图的程序。要求： 在窗体上按住鼠标左键移动鼠标时，图片可以跟随鼠标移动 Label中同时显示当前鼠标的X，Y坐标 Form1的MouseMove事件过程代码： Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove If e.Button = Windows.Forms.MouseButtons.Left Then PictureBox1.Location = e.Location Label1.Text = X= e.X Label2.Text = Y= e.Y End If End Sub 图片可在界面设计阶段就添加完成 判断是否按下鼠标左键 移动图片 获得X，Y坐标 思考：如果把代码写在PictureBox1的MouseMove事件里呢？ 注意：e.Location、e.X和e.Y是相对于控件而言的。 【简单绘图实例】设计一个如下图的程序。要求： 在PictureBox上按住鼠标左键拖动，当松开鼠标时绘制一条直线段。 注：此处涉及到GDI+多媒体编程的相关知识。如感兴趣，可参阅相关资料。 声明两个模块级变量，用来存放起点和终点坐标。代码为： Dim p1, p2 As Point PictureBox1的MouseDown事件代码： p1.X = e.X p1.Y = e.Y 获得鼠标按下的位置，并赋值给p1 PictureBox1的MouseUp事件代码： Dim g As Graphics ‘声明一个Graphics对象 g = PictureBox1.CreateGraphics Dim mypen As Pen = New Pen(Color.FromArgb(23, 47, 89), 10) ’定义画笔 p2.X = e.X ‘得到终点的x坐标 p2.Y = e.Y ‘得到终点的y坐标 g.DrawLine(mypen, p1, p2) ‘绘制直线 键盘事件 由按键动作触发 窗体和接收键盘输入的控件可响应： KeyPress：按一下键并释放 KeyDown：按下键 KeyUp：释放键 键盘事件 KeyPress事件过程结构为(假设在Form1上触发): Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress End Sub 其中，参数e有以下2个常用属性： KeyChar：获取或设置与按下的键对应的字符 Handled：获取是否处理过当前的按键输入。若设置为True，表示当前的按键输入已经处理 键盘事件 KeyDown和KeyUp事件过程结构分别为(假设在Form1上触发): Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown End Sub 其中，参数e有以下2个常用属性： Alt、Control、Shift：返回值为True或False，说明是否按下Alt键、Ctrl键或Shif