- 1、本文档共8页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
实验报告示例NET环境和可视化编程基础
甘肃政法学院
本科生实验报告
(一)
姓名: 沈燚纯
学院: 计算机科学学院
专业: 计算机科学与技术
班级: 2010级计算机科学与技术本科班
实验课程名称:
实验日期: 2012 年 09 月 14 日
指导教师及职称: 付向东
实验成绩:
开课时间:2012-2013 学年 第 一 学期
甘肃政法学院实验管理中心印制
实验题目.NET环境和可视化编程基础小组合作 否姓名 沈燚纯班级10计本学号201081010128一、实验目的1、了解VB.NET系统对计算机软件硬件的要求。
2、掌握启动与退出vb.net的方法。
3、掌握建立、编辑和运行一个简单的vb.net应运程序的全过程。
4、掌握常用控件文本框、标签、命令按钮、图片框的使用。二.实验环境 装有Microsoft Visual Studio 2008的计算机一台三、实验内容与步骤
1、创建一个windows应用程序,要求在屏幕上显示“欢迎学习VB.NET”,在文本框中输入姓名,在标签中显示输入的姓名。
(1) 在左侧工具箱的公共控件中拖出1个button按钮,1个textbox按钮,3个label按钮,按教材实验一的表2.1.1操作。
(2) 设计好各个控件后,双击button按钮,在弹出的代码页输入以下代码:
Label3.Text = TextBox1.Text
点击运行,屏幕设计及运行截图如下图所示:
2、编写一个程序统计在该窗口上鼠标的点击次数。
(1)拖出一个Label控件,将其名称改为“你单击的次数为:”,字体设为“宋体、小 三、粗体”;再拖出一个Textbox控件。
(2)进入代码页,在Form2事件中找到mouseclick事件,输入以下代码:
TextBox1.Text = Val(TextBox1.Text) + 1
(3)点击运行,屏幕设计及运行截图如下图所示:
对窗体的三个事件过程进行编程(Load,Click,Doubleclick),三个事件装入不同的图片;练习对鼠标指针Cursor的改变,当装入窗体时,改变图标文件;当双击窗体时,鼠标恢复默认状态;练习对Icon、FormBroderStyle、最大化和最小化按钮的改变。
(1)在项目的Debug文件夹下中新建一个名为“图片”的文件夹,将所需替换的图片全部放入其中。
(2)在代码页分别找到Load、Click、DoubleClick事件。
?.在Load事件中输入下列???码:
Me.BackgroundImage = Image.FromFile(H:\新建文件夹\vb实验\vb实验\图片\p2.jpg)
Me.Cursor = New Cursor(H:\新建文件夹\vb实验\vb实验\图片\p7.cur)
Me.Icon = New Icon(H:\新建文件夹\vb实验\vb实验\图片\p5.ico)
?.在Click事件中输入下列代码:
Me.BackgroundImage = Image.FromFile(H:\新建文件夹\vb实验\vb实验\图片\p9.jpg)
?.在DoubleClick事件中输入下列代码:
Me.BackgroundImage = Image.FromFile(H:\新建文件夹\vb实验\vb实验\图片\p3.jpg)
Me.Cursor = Cursors.Default
点击运行。原始状态为如下图:
单击之后的截图如下:
双击之后出现如下图片:
4、按钮、字号、内容的复制练习。
(1)添加2个Label控件、3个Button控件和2个RichTextBox控件,设计好的窗体如 下图:
代码的编译:
?.双击按钮“隶书25磅 ”写入以下代码:
RichTextBox1.Font = New Font(隶书, 25)
?.在按钮“幼圆15磅”中双击输入以下代码:
RichTextBox1.Font = New Font(幼圆, 25)
?.在“复制=”中输入以下代码:
RichTextBox2.Font = RichTextBox1.Font
RichTextBox2.Text = RichTextBox1.SelectedText
(3)点击运行。得到结果如下图:
?.在RichTextBox中选择一部分文字,点击“复制”按钮,结果如下图:
?.点击“隶书25磅”按钮,选择一部分文字,点击“复制”按钮。效果如下图:
?.点击“幼圆15磅”按钮
文档评论(0)