VB实验1VB实验1.doc
文本预览下载声明
实验题目 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 = 装入窗体
显示全部