VB实验1VB实验1.docVIP

实验题目 VB.NET环境和可视化编程基础 小组合作 否 姓名 班级 学 号 一、实验目的 1.了解VB.NET系统对计算机软、硬件的要求。 2.掌握启动与退出VB.NET的方法。 3.掌握建立、编辑和运行一个简单的VB.NET应用程序的全过程。 4.掌握常用控件文本框、标签、命令按钮、图片框的使用。 二．实验环境 一台装有Microsoft Visual Studio 2008软件的计算机 三、实验内容与步骤 启动VB.NET，创建一个“Windows应用程序”类型的应用程序，要求：在屏幕上显示“欢迎学习VB.NET”，在文本框中输入你的姓名，在标签框中显示输入的姓名。 书写的代码如下： Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Label3.Text = TextBox1.Text End Sub Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click End Sub End Class 运行界面如下： 输入姓名时的界面： 输入姓名后运行结果： 3.编一程序，在文本框中统计在该窗口上鼠标单击的次数。 编写的代码如下： Public Class Sy1_3 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End Sub Private Sub Sy1_3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click TextBox1.Text = Val(TextBox1.Text) + 1 End Sub Private Sub Sy1_3_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load TextBox1.Text = End Sub End Class 运行界面如下： 单击两次后的结果如下： 4.对窗体三个事件过程（Load、Click、DoubleClick）编程，三个事件中装入不同的图片，练习对鼠标指针Cursor的改变。 编写的代码如下： Public Class Sy1_4 Private Sub Sy1_4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click Me.Text = 单击窗体 Me.Size = New Size(264 + 10, 256 + 30) Me.BackgroundImage = Image.FromFile(21.jpg) End Sub Private Sub Sy1_4_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DoubleClick Me.Text = 双击窗体 Me.MaximizeBox = False Me.MinimizeBox = False Me.BackgroundImage = Image.FromFile(75_2.bmp) End Sub Private Sub Sy1_4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Text = 装入窗体