- 1、本文档共9页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
[工学]实验-vb控件
实验一
创建一个简单的Visual Basic应用程序,使其能够完成以下功能。
1.
2.
实验步骤
在窗体中创建2个标签、1个文本框和2个按钮,对象建立后如图1所示;
代码编写:略
图1
实验二
建立一个允许剪切、复制和粘贴的简单便笺板程序。
分析:根据题意,建立一个文本框输入文本,文本框初值为空,在程序运行时,用户输入正文并允许显示多行,建立四个命令按钮分别实现题目要求的功能。
【实验步骤】
1.在设计窗体中创建1个标签、1个文本框和4个按钮,对象建立后如图2所示;
图2 创建对象后的窗体
2.?????????????设置各控件的属性值;
3.?????????????将各控件的属性设置完成后,窗体界面如图3所示;
图3 设置属性后的窗体
4.编写代码
代码如下:
Dim st As String
Private Sub Form_Load()
Label1.FontSize = 16
Text1.FontSize = 10
Command1.FontSize = 10
Command2.FontSize = 10
Command3.FontSize = 10
Command4.FontSize = 10
End Sub
Private Sub Command1_Click()
st = Text1.SelText
Text1.SelText =
End Sub
Private Sub Command2_Click()
st = Text1.SelText
End Sub
Private Sub Command3_Click()
Text1.SelText = st
End Sub
Private Sub Command4_Click()
End
End Sub
5.调试运行程序
程序运行后,在文本框中输入任意一串字符“”,如图4所示。
图4 窗体运行界面
若在文本框内选中内容,单击“剪切”、并将光标定位在文本框中的任意位置,再单击“粘贴”按钮后,所选定的内容将移至当前光标所在位置;若在文本框内选中内容,单击“复制”、并将光标定位在文本框中的任意位置,再单击“粘贴”按钮后,则所选定的内容将在当前光标所在位置处复制一份相同内容。
实验三
用标签制作浮雕效果文字
利用两个标签控件,在设计时通过白色/黑色错位叠加,实现图5所示的文字浮雕效果。
图5 浮雕效果文字
(1)在窗体上放置两个标签控件,其Caption属性均为“ VB6.0 中文版”,字号均为“初号”,字体均为“隶书”。调整标签的宽度和高度,使文字分两行显示。
(2)按表1设置两个标签的其他属性。
表1 标签控件属性
控件名 背景样式(BackStyle) 边框样式(BorderStyle) 前景色(ForeColor) 左(Left) 顶(Top) Label1 1 - Fixed Single 1 – Opaque (不透明) H00FFFFFF(白) 324 324 Label2 0 - None 0 – Transparent (透明) 黑) 384 372
用类似的方法,还可以制作如图6所示的阴影文字。
图6 阴影文字
实验四
熟悉Move方法实现对象移动,进一步熟悉控件事件的使用。实验结果界面如图7所示。
图7 运行界面
实验步骤:
将窗体的Caption属性设为“欢迎新同学”;为窗体设置Picture属性(图片可以从C:\Windows\Web\Wallpaper中取,也可放自己喜欢的照片),设置窗体不可改变大小。
在窗体上添加两个标签,Caption属性为“欢迎新同学”,并将其设置为浮雕效果(提示:浮雕效果可以由两个背景风格为透明、前景颜色不同、位置稍有错位的标签重叠而成)。
添加两个命令按钮Command1 和Command2,清空Caption属性,将Style属性设置为1-Grapical,分别为Picture属性设置图标文件“Point02.ico”、“Point04.ico”(图标文件位于VB的安装目录下\Common\Graphics\Icons\Arrows文件夹中)。
双击Command1,添加如下代码:
提示:通过标签的move方法改变标签的left属性值
双击Command2,添加如下代码:
提示:通过标签的move方法改变标签的left属性值
将窗体和工程文件保存在自己的文件夹中。
单击F5,试验运行本程序,直至满意为止。
思考:根据Move方法的语法“对象名.Move left, top, width, height”,修改上述程序还可以有哪些变化?试一试。
实验五
创建标签滚动效果
实验步骤:
在窗体上放置一个label控件,一个定时器timer控件。
设置对象属性,如图8所
您可能关注的文档
- [工学]2000年大连理工大学中国与外国建筑史试题.doc
- [工学]2004华南理工大学802金属学及热处理考研试题.pdf
- [工学]2006年热工基础试题答案.pdf
- [工学]2008级数控毕业实践论文大纲学生用.doc
- [工学]2011年学易网校一级建造师课件:建筑实务—精讲23.doc
- [工学]2011造价员试题.pdf
- [工学]51 确定位置课件1.ppt
- [工学]7信号处理初步.ppt
- [工学]a10级计算机网络技术专业网站美工方向.doc
- [工学]ALTERA Quartus 2开发流程.pdf
- 北师大版小学数学三年级上册《寄书》教学设计.docx
- 统编版(部编版)语文二年级上册《雪孩子》教学设计.docx
- 统编版(部编版)语文二年级上册《八角楼上》教学设计.docx
- 北师大版小学数学三年级上册《长方形周长》教学设计.docx
- 北师大版小学数学三年级上册《丰收了》教学设计.docx
- 统编版(部编版)语文二年级上册《夜宿山寺》教学设计.docx
- 统编版(部编版)语文二年级上册《风娃娃》教学设计.docx
- 统编版(部编版)语文二年级上册《朱德的扁担》教学设计.docx
- 统编版(部编版)语文二年级上册《难忘的泼水节》教学设计.docx
- 统编版(部编版)语文二年级上册《纸船和风筝》教学设计.docx
文档评论(0)