VB环境和可视化编程基础实验报告.doc

VB环境和可视化编程基础实验报告.doc

《VB环境和可视化编程基础实验报告.doc》由会员分享，可在线阅读，更多相关《VB环境和可视化编程基础实验报告.doc（5页珍藏版）》请在冰点文库上搜索。

实验题目

VB.NET环境和可视化编程基础

小组合作

否

姓名

班级

学号

一、实验目的

1、了解VB.NET系统对计算机软、硬件的要求。

2、掌握启动与退出VB.NET的方法。

3、掌握建立、编辑和运行一个简单的VB.NET应用程序的全过程。

4、掌握常用控件文本框、标签、命令按钮、图片框的使用。

二．实验环境

VB.NET和相关硬件

三、实验内容与步骤

1、创建一个“windows应用程序”类型的应用程序，要求在屏幕上显示“欢迎学习VB.NET”，在文本框中输入你的姓名，在标签中显示输入的姓名。

2、编一个程序，在文本框中统计该窗口上鼠标单击的次数。

3、对窗体三个事件过程（Load、Click、DoubleClick）编程，三个事件中装入不同的图片。

按钮、字号、内容和格式的复制练习。

四、实验过程与分析

一、

PublicClass一_1

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

TextBox2.Text=TextBox1.Text

IfTextBox1.Text=""Then

MsgBox（"请输入姓名",0）

TextBox1.Focus（）

EndIf

EndSub

PrivateSub一_1_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load

EndSub

EndClass

二、

PublicClass一_3

Sub一_3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Click

TextBox1.Text=Val（TextBox1.Text）+1

EndSub

EndClass

三、

PublicClass一_4

PrivateSub一_4_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load

Me.Text="装入窗体"

Me.BackgroundImage=Image.FromFile（"一-4a.jpg"）

Me.BackgroundImageLayout=ImageLayout.Stretch

EndSub

Sub一_4_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Click

Me.Text="单击窗体"

Me.BackgroundImage=Image.FromFile（"一-4b.jpg"）

Me.BackgroundImageLayout=ImageLayout.Stretch

Me.MaximizeBox=True

Me.MinimizeBox=True

EndSub

Sub一_4_doubleclick（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.DoubleClick

Me.Text="双击窗体"

Me.MaximizeBox=False

Me.MinimizeBox=False

Me.BackgroundImage=Nothing

Me.FormBorderStyle=Windows.Forms.FormBorderStyle.Fixed3D

Me.Cursor=Cursors.Default

EndSub

EndClass

四、

PublicClass一_5

PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click

TextBox1.Font=NewFont（"隶书",25）

EndSub

PrivateSubButton3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton3.Click

TextBox1.Font=NewFont（"幼圆",15）

EndSub

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

IfTextBox1.Text=""Then

MsgBox（"请输入文本"）

Else

If（TextBox1.SelectedText=""）Then

MsgBox（"请选择要复制的文字"）

Else

TextBox2.Text=TextBox1.SelectedText

TextBox2.Font=TextBox1.Font

EndIf

EndIf

EndSub

EndClass

五、实验总结

通过本次的实验对VB.NET有了初步的了解，并经过几个简单的程序后使对其有了一定的应用。