1、实验题目 VB.NET 环境和可视化编程基础小组合作 否姓名 班级 学 号一、实验目的1.了解 VB.NET 系统对计算机软、硬件的要求。2.掌握启动与退出 VB.NET 的方法。3.掌握建立、编辑和运行一个简单的 VB.NET 应用程序的全过程。4.掌握常用控件文本框、标签、命令按钮、图片框的使用。二实验环境一台装有 Microsoft Visual Studio 2008 软件的计算机三、实验内容与步骤1. 启动 VB.NET，创建一个“Windows 应用程序 ”类型的应用程序，要求：在屏幕上显示“欢迎学习 VB.NET”，在文本框中输入你的姓名，在标签框中显示输入的姓名。书写的代码如下
2、：Public Class Form1Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadEnd SubPrivate Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.ClickLabel3.Text = TextBox1.TextEnd SubPrivate Sub Label2_Click(ByVal sender
3、As System.Object, ByVal e As System.EventArgs) Handles Label2.ClickEnd SubEnd Class运行界面如下：输入姓名时的界面：输入姓名后运行结果：3.编一程序，在文本框中统计在该窗口上鼠标单击的次数。编写的代码如下：Public Class Sy1_3Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChangedEnd SubPrivate Su
4、b Sy1_3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ClickTextBox1.Text = Val(TextBox1.Text) + 1End SubPrivate Sub Sy1_3_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LoadTextBox1.Text = “End SubEnd Class运行界面如下：单击两次后的结果如下：4.对窗体三个事件过程（Load、Click 、Double
5、Click）编程，三个事件中装入不同的图片，练习对鼠标指针 Cursor 的改变。编写的代码如下：Public Class Sy1_4Private Sub Sy1_4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ClickMe.Text = “单击窗体“Me.Size = New Size(264 + 10, 256 + 30)Me.BackgroundImage = Image.FromFile(“21.jpg“)End SubPrivate Sub Sy1_4_DoubleClick(ByVa
6、l sender As Object, ByVal e As System.EventArgs) Handles Me.DoubleClickMe.Text = “双击窗体“Me.MaximizeBox = FalseMe.MinimizeBox = FalseMe.BackgroundImage = Image.FromFile(“75_2.bmp“)End SubPrivate Sub Sy1_4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadMe.Text = “装入
7、窗体“Me.BackgroundImage = Image.FromFile(“22.jpg“)End SubPrivate Sub Sy1_4_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ResizeMe.Size = New Size(264 + 10, 256 + 30)Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3DEnd SubEnd Class运行界面如下：单击时运行界面如下：双击时运行界面如下：5.按钮、字号、内容和
8、格式的复制练习。编写代码如下：Public Class Sy1_5Private Sub Sy1_5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ClickEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickTextBox1.Font = New Font(“隶书“, 25)End SubPrivate Sub Button3
9、_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.ClickTextBox1.Font = New Font(“幼圆“, 15)End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickTextBox2.Text = TextBox1.SelectedTextEnd SubEnd Class运行界面如下：单击“复制”按钮时：单
10、击“隶书 25 磅”按钮时：单击“幼圆 15 磅”按钮时：四、实验过程与分析过程分析：在编写应用程序时，可以在设计界面上做，也可以直接用代码写，如在做第4题时，在界面中导入图片可通过“属性”下的 BackgroundImage进行导入，也可以写这样一句代Me.BackgroundImage = Image.FromFile(“5.ico“)。在做第5题时在Button1_Click下写入TextBox2.Text = TextBox1.SelectedText表示按要执行复制的人的意愿进行有选择的复制；如果在Button1_Click下写入TextBox1.SelectionStart=0，TextBox1.SelectionLength=8， TextBox2.Text = TextBox1.SelectedText表示将TextBox1中前8个字符复制给TextBox2 ，即它所复制的内容是程序所规定的。五、实验总结通过本次试验，我掌握了如何启动、退出 VB.NET 的方法，并且掌握了建立、编辑和运行简单的 VB.NET 应用程序的全过程，也学会了如何使用控件文本框、标签、命令按钮和图片框。
