实验一NET环境和可视化编程基础

实验VB.NET环境和可视化编程基础 题目 姓名 班级 小组合作 学 号 一、 实验目的 1、 2、 3、 了解VB.NE算机软件硬件的要求 掌握启动退出vb.net的方法 掌握建立、编辑和运行一个简单的vb.net应运程序的全过程 4、 掌握常用控件文本框、标签、命令按钮、图片框的使用 二．实验环境 硬件：一台装有windows系统的计算机 软件： Microsoft Visual Studio 2012 三．实验内容与步骤 5、 启动VB.NET，创建一个“Windows应用程序”类型的应用程序，要求：在屏幕上显示“欢迎学习VB.NET”，在文本框中输入你的姓名，在标签中显示输入的姓名。屏幕设计的界面如图所示:

1.1源代码： Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Label2.Text = TextBox1.Text End Sub Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged End Sub End Class 编一程序，在文本框中统计在该窗口上鼠标的单击的次数，如下图：

1.2源代码： Public Class Form2 Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles Me.Click TextBox1.Text = Val(TextBox1.Text) + 1 End Sub Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.TextBox1.Text = 0 End Sub End Class 1.4、按照例2.2对窗体三个事件过程（Load、Click、DoubleClick）编程，三个事件中装入不同的图片；联系对鼠标Cursor的改变，当装入窗体时，改变为key04.ico图标文件；当双击窗体时，鼠标恢复默认状态；联系对窗体图标Icon、边框线类型FromBorderStyle、最大按钮和最小按钮的改变 。

Public Class _1

Private Sub _1_Click(sender As Object, e As EventArgs) Handles Me.Click Me.Text = \单击窗体\

Me.Size = New Size(264 + 10, 256 + 30)

Me.BackgroundImage = Image.FromFile(\ End Sub

Private Sub _1_CursorChanged(sender As Object, e As EventArgs) Handles Me.CursorChanged Me.Cursor = New Cursor(\ Me.Cursor = Cursors.Default Me.Icon = New Icon(\ End Sub

Private Sub _1_DoubleClick(sender As Object, e As EventArgs) Handles Me.DoubleClick Me.Text = \双击窗体\ Me.MaximizeBox = False Me.MinimizeBox = False Me.BackgroundImage = Nothing End Sub

Private Sub _1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.Text = \装入窗体\

Me.BackgroundImage = Image.FromFile(\ End Sub

Private Sub _1_Resize(sender As Object, e As EventArgs) Handles Me.Resize Me.Size = New Size(246 + 10, 256 + 30)

Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D End Sub