VB环境和可视化编程基础实验报告.doc
- 文档编号:1639826
- 上传时间:2022-10-23
- 格式:DOC
- 页数:5
- 大小:284KB
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有了初步的了解,并经过几个简单的程序后使对其有了一定的应用。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 环境 可视化 编程 基础 实验 报告