第5章 窗体及常用控件.pptVIP

【例5.15】 鼠标事件的测试。 在窗体中放置一个文本框和一个标签按钮，设置文本框的ScrollBars属性为Vertical，Multiline属性为True，给Label1的鼠标事件编写以下程序，每一种事件触发后都将在文本框中显示自己的事件名称，从中可以看出单击鼠标和双击鼠标时事件的执行顺序。图5.31显示了双击Label1控件后的事件顺序。 Label1对象的几种鼠标事件程序： Private Sub Label1_MouseDown(ByVal sender As Object, ByVal e As _ System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown TextBox1.Text = TextBox1.Text MouseDown事件 vbCrLf End Sub Private Sub Label1_MouseUp(ByVal sender As Object, ByVal e As _ System.Windows.Forms.MouseEventArgs) Handles Label1.MouseUp TextBox1.Text = TextBox1.Text MouseUp事件 vbCrLf End Sub Private Sub Label1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Label1.Click TextBox1.Text = TextBox1.Text Click事件 vbCrLf End Sub Private Sub Label1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Label1.DoubleClick TextBox1.Text = TextBox1.Text DoubleClick事件 vbCrLf End Sub 【例5.16】 鼠标事件中的对象参数e的测试 本示例程序通过e对象参数，实现了但在文本框中按住鼠标左键移动时，将显示鼠标在文本框中的相对位置，并把位置的X，Y坐标显示在文本框中，程序运行时，文本框中的内容会随着鼠标的移动而变化。运行界面如图5.32所示。 程序内容如下： Private Sub TextBox1_MouseMove(ByVal sender As Object, ByVal e As _ System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseMove If e.Button = MouseButtons.Left Then 判断是否按下了左键 TextBox1.Text = Str(e.X) , Str(e.Y) 将鼠标位置在文本框中显示 End If End Sub KeyPress事件中，可以通过对象参数e的KeyChar属性来判定用户的按键。【例5.9】中就用到了键盘的KeyPress事件，程序如下。 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As _ System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If e.KeyChar = Chr(13) Then PictureBox2.Image = System.Drawing.Image.FromFile(TextBox1.Text) End If End Sub 【例5.17】利用滚动条实现图片的滚动显示。 界面设计： 在窗体中放置两个滚动条、一个Panel控件、在Panel控件中放置一个图片框。给图片框选择一幅图片，图片的尺寸比显示区域大，采用滚动条，使得图片能在显示区域中滚动显示。界面控件的属性如表5.21所示。其中PictureBox中的Image属性设置可以单击其后面的 按钮，在弹出的“选择资源”对话框中导入一张图片资源并选中它。 对象 属性名 属性值 Panel Name Panel1 Picturebox Name PictureBox1 SizeMode AutoSize VScrollBar Na