[工学]实验-vb控件

《[工学]实验-vb控件》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、实验一创建一个简单的VisualBasic应用程序，使其能够完成以下功能。1．编写一个程序，在屏幕上标签上显示“欢迎使用VisualBasic！”，将字号调整到合适的大小。2．在文本框中输入字符，单击“替换”按钮，使得文本框中的字符替换标签中原有的显示文字。实验步骤在窗体中创建2个标签、1个文本框和2个按钮，对象建立后如图1所示；代码编写：略图1实验二建立一个允许剪切、复制和粘贴的简单便笺板程序。分析：根据题意，建立一个文本框输入文本，文本框初值为空，在程序运行时，用户输入正文并允许显示多行，建立四个命令按钮分别实现题目要求的功能。【实验步骤】1．在设计窗体中创建1个标签、1个

2、文本框和4个按钮，对象建立后如图2所示；图2创建对象后的窗体2．             设置各控件的属性值；3．             将各控件的属性设置完成后，窗体界面如图3所示；图3设置属性后的窗体4．编写代码代码如下：DimstAsStringPrivateSubForm_Load()Label1.FontSize=16Text1.FontSize=10Command1.FontSize=10Command2.FontSize=10Command3.FontSize=10Command4.FontSize=10EndSubPrivateSubCommand1_Clic

3、k()st=Text1.SelTextText1.SelText=""EndSubPrivateSubCommand2_Click()st=Text1.SelTextEndSubPrivateSubCommand3_Click()Text1.SelText=stEndSubPrivateSubCommand4_Click()EndEndSub5．调试运行程序程序运行后，在文本框中输入任意一串字符“”，如图4所示。图4窗体运行界面若在文本框内选中内容，单击“剪切”、并将光标定位在文本框中的任意位置，再单击“粘贴”按钮后，所选定的内容将移至当前光标所在位置；若在文本框内选中内容，单

4、击“复制”、并将光标定位在文本框中的任意位置，再单击“粘贴”按钮后，则所选定的内容将在当前光标所在位置处复制一份相同内容。实验三用标签制作浮雕效果文字利用两个标签控件，在设计时通过白色/黑色错位叠加，实现图5所示的文字浮雕效果。图5浮雕效果文字（1）在窗体上放置两个标签控件，其Caption属性均为“VB6.0中文版”，字号均为“初号”，字体均为“隶书”。调整标签的宽度和高度，使文字分两行显示。（2）按表1设置两个标签的其他属性。表1标签控件属性控件名背景样式(BackStyle)边框样式(BorderStyle)前景色(ForeColor)左(Left)顶(Top)Label

5、11-FixedSingle1–Opaque(不透明)&H00FFFFFF&(白)324324Label20-None0–Transparent(透明)&H00000000&(黑)384372用类似的方法，还可以制作如图6所示的阴影文字。图6阴影文字实验四熟悉Move方法实现对象移动，进一步熟悉控件事件的使用。实验结果界面如图7所示。图7运行界面实验步骤：1．将窗体的Caption属性设为“欢迎新同学”；为窗体设置Picture属性（图片可以从C:WindowsWebWallpaper中取,也可放自己喜欢的照片），设置窗体不可改变大小。2．在窗体上添加两个标签，Capti

6、on属性为“欢迎新同学”，并将其设置为浮雕效果（提示：浮雕效果可以由两个背景风格为透明、前景颜色不同、位置稍有错位的标签重叠而成）。3．添加两个命令按钮Command1和Command2，清空Caption属性，将Style属性设置为1-Grapical，分别为Picture属性设置图标文件“Point02.ico”、“Point04.ico”(图标文件位于VB的安装目录下CommonGraphicsIconsArrows文件夹中)。4．双击Command1，添加如下代码：提示：通过标签的move方法改变标签的left属性值1．双击Command2，添加如下代码：提示：

7、通过标签的move方法改变标签的left属性值2．将窗体和工程文件保存在自己的文件夹中。3．单击F5，试验运行本程序，直至满意为止。思考：根据Move方法的语法“对象名.Moveleft,top,width,height”，修改上述程序还可以有哪些变化？试一试。实验五创建标签滚动效果实验步骤：1、在窗体上放置一个label控件，一个定时器timer控件。2、设置对象属性，如图8所示，其中Timer1控件的Interval属性设置为100。3、在Timer1的timer事件中加入以下代码Pri