VB环境和可视化编程基础实验报告.docVIP

实验题目 VB.NET环境和可视化编程基础 小组合作 否 姓名 班级 学 号 一、实验目的 1、了解VB.NET系统对计算机软、硬件的要求。 2、掌握启动与退出VB.NET的方法。 3、掌握建立、编辑和运行一个简单的VB.NET应用程序的全过程。 4、掌握常用控件文本框、标签、命令按钮、图片框的使用。 二．实验环境 VB.NET和相关硬件 三、实验内容与步骤 创建一个“windows应用程序”类型的应用程序，要求在屏幕上显示“欢迎学习VB.NET”，在文本框中输入你的姓名，在标签中显示输入的姓名。 编一个程序，在文本框中统计该窗口上鼠标单击的次数。 对窗体三个事件过程（Load、Click、DoubleClick）编程，三个事件中装入不同的图片。 按钮、字号、内容和格式的复制练习。 四、实验过程与分析 一、 Public Class 一_1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox2.Text = TextBox1.Text If TextBox1.Text = Then MsgBox(请输入姓名, 0) TextBox1.Focus() End If End Sub Private Sub 一_1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class 二、 Public Class 一_3 Sub 一_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click TextBox1.Text = Val(TextBox1.Text) + 1 End Sub End Class 三、 Public Class 一_4 Private Sub 一_4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Text = 装入窗体 Me.BackgroundImage = Image.FromFile(一-4a.jpg) Me.BackgroundImageLayout = ImageLayout.Stretch End Sub Sub 一_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click Me.Text = 单击窗体 Me.BackgroundImage = Image.FromFile(一-4b.jpg) Me.BackgroundImageLayout = ImageLayout.Stretch Me.MaximizeBox = True Me.MinimizeBox = True End Sub Sub 一_4_doubleclick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.DoubleClick Me.Text = 双击窗体 Me.MaximizeBox = False Me.MinimizeBox = False Me.BackgroundImage = Nothing Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D Me.Cursor = Cursors.Default End Sub End Class 四、 Public Class 一_5 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As S