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

实验题目 VB.NET环境和可视化编程基础 小组合作 姓名 班级 学 号 实验目的 了解VB.NE算机软件硬件的要求 掌握启动退出vb.net的方法 掌握建立、编辑和运行一个简单的vb.net应运程序的全过程 掌握常用控件文本框、标签、命令按钮、图片框的使用 二．实验环境 硬件：一台装有windows系统的计算机 软件： Microsoft Visual Studio 2012 三 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(image/2.jpg) End Sub Private Sub _1_CursorChanged(sender As Object, e As EventArgs) Handles Me.CursorChanged Me.Cursor = New Cursor(key04.ico) Me.Cursor = Cursors.Default Me.Icon = New Icon(mise34.ico) 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(image/1.jpg) End Sub Private Sub _1_Resize(sender As Object, e As EventArgs) Handles Me.Resize Me.Size = New Size(246 + 10,