VB实验1.doc

实验题目VB.NET环境和可视化编程基础小组合作否姓名班级学 号一、实验目的1.了解VB.NET系统对计算机软、硬件的要求。2.掌握启动与退出VB.NET的方法。3.掌握建立、编辑和运行一个简单的VB.NET应用程序的全过程。4.掌握常用控件文本框、标签、命令按钮、图片框的使用。二实验环境一台装有Microsoft Visual Studio 2008软件的计算机三、实验内容与步骤1. 启动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 SubEnd 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 SubEnd 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 = 装入窗体 Me.BackgroundImage = Image.FromFile(22.jpg) End Sub Private Sub Sy1_4_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize Me.Size = New Size(264 + 10, 256 + 30) Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D End SubEnd Class运行界面如下：单击时运行界面如下：双击时运行界面如下：5.按钮、字号、内容和格式的复制练习。编写代码如下：Public Class Sy1_5 Private Sub Sy1_5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Font = New Font(隶书, 25) End Sub Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click TextBox1.Font = New Font(幼圆, 15) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox2.Text = TextBox1.SelectedText End SubEnd Class运行界面如下：单击“复制”按钮时：单击“隶书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