VB环境和可视化编程基础实验报告Word文档下载推荐.doc

上传人:b****2 文档编号:14562800 上传时间:2022-10-23 格式:DOC 页数:5 大小:284KB
下载 相关 举报
VB环境和可视化编程基础实验报告Word文档下载推荐.doc_第1页
第1页 / 共5页
VB环境和可视化编程基础实验报告Word文档下载推荐.doc_第2页
第2页 / 共5页
VB环境和可视化编程基础实验报告Word文档下载推荐.doc_第3页
第3页 / 共5页
VB环境和可视化编程基础实验报告Word文档下载推荐.doc_第4页
第4页 / 共5页
VB环境和可视化编程基础实验报告Word文档下载推荐.doc_第5页
第5页 / 共5页
亲,该文档总共5页,全部预览完了,如果喜欢就下载吧!
下载资源
资源描述

VB环境和可视化编程基础实验报告Word文档下载推荐.doc

《VB环境和可视化编程基础实验报告Word文档下载推荐.doc》由会员分享,可在线阅读,更多相关《VB环境和可视化编程基础实验报告Word文档下载推荐.doc(5页珍藏版)》请在冰豆网上搜索。

VB环境和可视化编程基础实验报告Word文档下载推荐.doc

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

EndClass

二、

PublicClass一_3

Sub一_3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Click

TextBox1.Text=Val(TextBox1.Text)+1

EndClass

三、

PublicClass一_4

PrivateSub一_4_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load

Me.Text="

装入窗体"

Me.BackgroundImage=Image.FromFile("

一-4a.jpg"

Me.BackgroundImageLayout=ImageLayout.Stretch

Sub一_4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Click

单击窗体"

一-4b.jpg"

Me.MaximizeBox=True

Me.MinimizeBox=True

Sub一_4_doubleclick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.DoubleClick

双击窗体"

Me.MaximizeBox=False

Me.MinimizeBox=False

Me.BackgroundImage=Nothing

Me.FormBorderStyle=Windows.Forms.FormBorderStyle.Fixed3D

Me.Cursor=Cursors.Default

四、

PublicClass一_5

PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click

TextBox1.Font=NewFont("

隶书"

25)

PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click

幼圆"

15)

请输入文本"

Else

If(TextBox1.SelectedText="

)Then

MsgBox("

请选择要复制的文字"

Else

TextBox2.Text=TextBox1.SelectedText

TextBox2.Font=TextBox1.Font

EndIf

五、实验总结

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

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 医药卫生 > 中医中药

copyright@ 2008-2022 冰豆网网站版权所有

经营许可证编号:鄂ICP备2022015515号-1