实验题目
VB. NET环境和可视化编程基 础
小组合作
否
姓名
班级
学号
—、实验目的
1、了解VB.NET系统对计算机软、硬件的要求。
掌握启动与退出VB.NET的方法。
3、掌握建立、编辑和运行一个简单的VB.NET
3、
4、掌握常用控件文本框、标签、命令按钮、图片框的使用。
二?实验环境
VB.NET和相关硬件
三、实验内容与步骤
1、创建一个"windows应用程序”类型的应用程序,要求在屏幕 上显灵 欢迎学习VB.NET",在文本框中输入你的姓名,在标 签中显示输入的姓名。
2、编一个程序,在文本框中统计该窗口上鼠标单击的次数。
3、对窗体三个事件过程(Load、Click、DoubleClick)编程,三个 事件中装入不同的图片。
按钮、字号、内容和格式的复制练习。
实验过程与分析
Public Class 一_1
Private Sub Buttonl_Click(ByVai sender As System. Object, ByVai e As System?EventArgs) Handles Buttonl?Click
TextBox2.Text = TextBoxl.Text
If TextBoxl. Text = Then
MsgBoxC请输入姓名",0)
TextBoxl. Focus()
End If
End Sub
Private Sub 一_l_Load(ByVai sender As System.0bject, ByVai e As System?EventArgs) Handles MyBase? Load
End Sub
End Class
Public Class 一_3
Sub 一_3_Click(ByVai sender As System.0bjcct, ByVai c As System. EvcntArgs) Handles MyBase. Click
TextBoxl. Text = Vai(TextBoxl. Text) + 1
End Sub
End Class
Public Class 一_4
Private Sub 一_4_Load(ByVal sender As System- Object, ByVal e As System. EventArgs) Handles MyBase. Load
Me. Text ="装入窗体"
Mo. Background Image = Image? FtomFilc (〃一-4a? jpg〃)
Me. BackgroundlmageLayout = ImageLayout. Stretch
End Sub
Sub —_4_C1 ick(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles MyBase. Click
Me. Text = 〃单击窗体〃
Me. Background I mage = Image. FromFi l e (〃一-4b. jpg〃)
Me. BackgroundlmageLayout 二 ImageLayout. Stretch
Me- MaxiinizeBox 二 True
Me. MinimizeBox = True
End Sub
Sub ^ 4 doubledick(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles MyBase. DoubleClick
Me. Text ="双击窗体"
Me. MaxiinizeBox = False
Mo. MinimizeBox = False
Me.Background I mage = Nothing
Me. FormBorderStyle 二 Windows. Forms. FormBorderStyle- Fixed3D
Me-Cursor = Cursors. Default
Encl Sub
End Class
四.
Public Class 一_5
Private Sub Button2_Click(ByVai sender As System.Object, ByVai e As System?EvontArgs) Handles Button2. Click
TextBoxl. Font = New Font (,z隶书〃,25)
End Sub
Private Sub Button3_Click(ByVal sender As System. Object, ByVai e As System? EventArgs) Handles Bu