《VB环境和可视化编程基础实验报告.docx》由会员分享，可在线阅读，更多相关《VB环境和可视化编程基础实验报告.docx（4页珍藏版）》请在三一办公上搜索。
1、VB环境和可视化编程基础实验报告实验题目 VB.NET环境和可视化编程基小组合作 否 础 姓名 班级 学 号 一、实验目的 1、了解VB.NET系统对计算机软、硬件的要求。 2、掌握启动与退出VB.NET的方法。 3、掌握建立、编辑和运行一个简单的VB.NET应用程序的全过程。 4、掌握常用控件文本框、标签、命令按钮、图片框的使用。 二实验环境 VB.NET和相关硬件 三、实验内容与步骤 1、 创建一个“windows应用程序”类型的应用程序，要求在屏幕上显示“欢迎学习VB.NET”，在文本框中输入你的姓名，在标签中显示输入的姓名。 2、 编一个程序，在文本框中统计该窗口上鼠标单击的次数。 3
2、、 对窗体三个事件过程编程，三个事件中装入不同的图片。 按钮、字号、内容和格式的复制练习。 四、实验过程与分析 一、 Public Class 一_1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox2.Text = TextBox1.Text If TextBox1.Text = Then MsgBox(请输入姓名, 0) TextBox1.Focus End If End Sub Private Sub 一_1
3、_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class 二、 Public Class 一_3 Sub 一_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click TextBox1.Text = Val(TextBox1.Text) + 1 End Sub End Class 三、 Public Class 一_4 Priv
4、ate Sub 一_4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Text = 装入窗体 Me.BackgroundImage = Image.FromFile(一-4a.jpg) Me.BackgroundImageLayout = ImageLayout.Stretch End Sub Sub 一_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBas
5、e.Click Me.Text = 单击窗体 Me.BackgroundImage = Image.FromFile(一-4b.jpg) Me.BackgroundImageLayout = ImageLayout.Stretch Me.MaximizeBox = True Me.MinimizeBox = True End Sub Sub 一_4_doubleclick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.DoubleClick Me.Text = 双击窗体 Me.Maximiz
6、eBox = False Me.MinimizeBox = False Me.BackgroundImage = Nothing Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D Me.Cursor = Cursors.Default End Sub End Class 四、 Public Class 一_5 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Te
7、xtBox1.Font = New Font(隶书, 25) End Sub Private Sub Button3_Click(ByVal sender As System.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 If TextBox1.Text = Then MsgBox(请输入文本) Else If (TextBox1.SelectedText = ) Then MsgBox(请选择要复制的文字) Else TextBox2.Text = TextBox1.SelectedText TextBox2.Font = TextBox1.Font End If End If End Sub End Class 五、实验总结 通过本次的实验对VB.NET有了初步的了解，并经过几个简单的程序后使对其有了一定的应用。
