VB实验指导书.docVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
第一章 VB程序设计概述 实验一 [实验1.1] 建立—个工程,并运行程序,体会效果。 [实验目的] 掌握一个简单的VB程序的建立、编辑、调试、运行和保存方法。 [步骤] (1)进入VB环境,执行“文件/新建工程”命令,在其对话框中选择“标准EXE“; (2)在窗体上建立两个命令按钮、一个标签、一个时钟;在属性窗口对各控件属性进行设置,见表1.1; (3)在代码,窗口的四个事件过程Form_Load()、Command1_Click()、Command2_Click()、 Timer1_Timer()中分别输入代码,建立MyMove过程,并输入代码。 (4)单击按钮,运行程序;有错时进入代码窗口调试。 (5)将窗体、工程分别以syl—1.frm(窗体文件)、syl—1.vbp(工程文件)保存在磁盘上。 表1.1 属性设置 控件名 属性 属性值 Form1 Caption “简单动画” Picture “Background.bmp” Command1 Caption “” Style 1 Picture Clock05.ico ToolTipText “手动” Command2 Caption “” Style 1 Picture Key04.ico ToolTipText “自动” Label1 Caption “欢迎使用” FontSize 36 FontName ”隶书” Timer1 Interval 4000 注意: 窗体的背景图形文件Background.bmp 在“川师VB实验指导书|bmp”文件夹里。 本实验指导书中的各个实验的位图文件(bmp)、图标文件(ico)、多媒体文件格式(AVI)等均在“川师VB实验指导书”文件夹下面。 当然读者也可以任选自己喜欢的图形文件。 程序代码: Private Sub Timer1_Timer() Label1.Visible = False End Sub [实验1.2] Move方法练习,移动具有浮雕效果的文字和插入图片。 在窗体中插入图片,文件名为”So02963_.wmf”(读者也可插入所喜欢的图片),窗体上以浮雕效果显示的字符串“新年快乐”,还有两个命令按钮,文件Point02.ico表示左指向,文件Point04.ico表示右指向,如图1.2所示。要求当单击“左指向”按钮时,字符串“新年快乐”向左移动50;单击“右指向”按钮时,向右移动50。 [实验目的] 本题主要训练在有关控件中装入图形文件、标签浮雕效果的实现和控件的移动功能。 [分析] (1)窗体、命令按钮、标签的属性设置见表1.2所示。 (2)在窗体插入图片,只要对窗体的Picture属性单击,即可打开“加载图片“窗口,选择图片文件。 (3)在窗体上实现浮雕效果,只要使用两个具有相同文字的标签,使它们的位置有些位移,并且字的颜色不同即可。 (4)要使文字移动,有两种方法:对标签进行Move方法;或对位置属性Left(左右移动)、Top(上下移动)进行改变。 表1.2 属性设置 控件名 属性 属性值 Form1 Caption “移动” Picture “So02963_.wmf” Command1 Caption “” Style 1 Picture Point02.ico Command2 Caption “” Style 1 Picture Point04.ico Label1,Label2 Caption “新年快乐” FontSize 30 FontName “隶书” Backstyle 0-transparent [程序] Private Sub Form_load() Label2.Top=label1.Top+50 ‘label控件通过位置错位和颜色结合产生浮雕效果 Label2.Left=label1.Left+50 ‘label2和Label1错位 Label2.ForeColor=RGB(255,0,0) ‘label2字为默认红色 Label1.ForeColor=RGB(0,255,0) ‘label1字为绿色 End Sub ‘控件移动可通过Move方法实现,见左移 Private Sub Command1_Click() Label1.Move label1.Left-50 Label2.Move Label2.Left-50 End Sub ‘也可通过控件的位置属性改变移动,见右移 Private Sub Command2_Click() Label1.Left=label1.Left+50

文档评论(0)

rovend + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档