- 1、本文档共5页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB欢迎界面制作.
VB“欢迎界面”制作
在VB一学期教学中,我收获了很多,尤其在VB友好界面的制作方面,有了长足的进步。这部分的教学使枯燥的VB代码变得生动、活泼了。下面我就详细讲解一下它的制作过程。
目标效果
看到这类似于WINDOWS的友好界面,我们可以深切地感到VB的强大。
初期规划与任务分析
初期规划
找开VB后,我们看到的是一个默认的FORM1窗体,平板、无趣,下面我们将对其进行改造。结合目标效果,我们将对以下几个方面进行修订:
标题
菜单栏
工具栏
背景
任务分析
根据上述规划,标题、背景两项只在属性进行设置就可以。但菜单栏、工具栏付之以功能项,较为复杂。菜单栏VB自带的工具项,很容易上手。工具栏的制作就要借助于扩展控件和辅助软件的配合,才能很好地完成。
标题及背景的制作
标题
选定FORM1窗体,对其属性caption项,设置为“学生管理系统”
背景
窗体的背景有多种方法来设置,这里我采用了两种:
对窗体背景picture属性设置
在窗体中添加image控件
这两种方法各有利弊,picture属性设置方法简单,但背景位置不好控制;image控件设置方法易控制图片的位置,但需要单加入一个控件。
根据它们的利弊,本例中,我利用picture做为窗体的大背景,利用image控件做为窗体欢迎词。
由于picture的位置不可控性,我对窗体做了以下调整。
将窗口调整至于图片一样大。
Windowstae属性设置为0,即正常状态。
Borderstyle属性设置为1,?即屏蔽最大化、最小化、边框改变的功能。
Moveable属性设置为false,即该窗口不可移动。
经过四步设置后,我们的欢迎界面用户就不可以随意改变窗体大小,来破坏背景效果。
菜单栏
菜单栏是采用VB自带的工具——菜单编辑器来制作的。
操作过程主要注意以下几个问题:
顶级菜单不允许在快捷键一项进行设置,若要为顶级菜单设快捷键可采用在菜单名称后加(字母)的方式,调用时,用alt+字母调用。
各级菜单的名称不能重名,因为它们在调用过程是一个独立的子程序,没有从属性,这也菜单较工具栏的最大优势所在。
菜单栏易上手,但它的字号不可控,位置在左上角,在欢迎界面中不易被注意到。因此为了提高“欢迎界面”的友好性,我们要加入工具栏。
工具栏制作
前提条件
!)外界环境
工具栏制作涉及到toolbar及imagelist两个扩展控件,这两个控件要正确运行需要在安装microsoft office时,采用自定义安装,并加上高级功能一项。
2)添加扩展控件
在VB工具栏中单击右键,选部件——控件——Microsoft windows command 6.0即可。
3)制作相关工具栏图标
图标制作可以用多种软件,但由于firework对图片优化效果好,我们制作图标时采用该软件。需要注意的是VB不识别png格式,因此制作完成后需要另存为jpg或gif等常用图片格式。
imagelist图片列表
为了能使工具栏更美观我们在imagelist准备一些图标,以备toolbar工具栏之用。图片列表中对图片是采用序号编排的,该序号也是与toolbar联系的纽带,因此带入图的顺序要注意。
toolbar工具栏设置
图1
图2
Toolbar工具栏的设置主要就是上面图1、图2的设置。
图1通用一项
图片列表:设为准备好的imagelist,使各个工具项有对应图片。
样式:
选择0,工具栏是3d按钮样式,但分隔符按钮不显示效果。
选择1,工具栏是平面按钮样式,分隔符按钮显示效果。
图2按钮一项
索引:对应工具栏中按钮的序号
标题:工具栏中显示的文字提示
图像:对应图片列表的图片序号。
样式:按钮的样式。
选择0:普通按钮样式。
选择3:分隔符按钮样式。
toolbar工具栏功能设置
每个工具栏以功能
指向工具栏双击在工具栏的单击事件中编辑
2)命令
If Button.Index = 1 Then
查询.Show
End If
If Button.Index = 3 Then
添加.Show
End If
其中button.index指的是工具栏按钮的序号。
在外界对工具栏中按钮设置有效性
格式:
窗体名称。工具栏名称。Buttons(n).属性
其中n指按钮的序号,注意分节符按钮也占序号。
2)举例:
界面.Toolbar1.Buttons(3).Enabled = False
文档评论(0)