《第五讲系统工具栏.ppt》由会员分享，可在线阅读，更多相关《第五讲系统工具栏.ppt（27页珍藏版）》请在三一办公上搜索。
1、第五讲系统工具栏的制作和系统打包,一：工具栏的制作.方法一：（）创建一框架（frame1）(2)在框架（frame1）上创建一命令按钮，属性style设置为graphic,而不是默认值normal.属性picture,找到相应的*.ico文件，属性caption的值设为空（在网上搜索所需的图元文件*.ico.）(3)依照上述方法创建其他10个命令按钮.命令按钮的大小要与第一个按钮一致.,(4)在每一个命令按钮的click事件中添加相应的程序（）在程序的编写过程中，为了防止工具栏或对应子菜单的误操作，巧用各控件的enabled属性如：在池州市电子地图中，第一个进行操作的工具栏或对应子菜单是打开文
2、件，其他的工具栏或对应子菜单在打开文件之后进行的,工具栏界面：,程序如下：Private Sub MDIForm_Load()Command1.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseCommand5.Enabled=FalseCommand6.Enabled=FalseCommand7.Enabled=FalseCommand9.Enabled=FalseCommand11.Enabled=Falsecengkongzhi.Enabled=Falsebiaozhu.Enabled=False,dayin.Enabled
3、=Falseqingbiao.Enabled=Falsebianji.Enabled=Falseshuju.Enabled=Falsezhuanti.Enabled=Falsechuangjian.Enabled=Falsecreatetheme.Enabled=Falsemodifytheme.Enabled=Falsemodifylegend.Enabled=Falsechaxun.Enabled=Falsequantu.Enabled=Falsechashan.Enabled=Falsechashui.Enabled=Falsechaming.Enabled=Falsechalu.Ena
4、bled=Falsehuifu.Enabled=FalseEnd Sub,Private Sub Command2_Click()Form3.ShowCommand1.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueCommand5.Enabled=TrueCommand6.Enabled=TrueCommand7.Enabled=TrueCommand11.Enabled=Truecengkongzhi.Enabled=Truebiaozhu.Enabled=True,Command2为打开文件对应工具栏,dayin.Enabled
5、=Trueqingbiao.Enabled=Truebianji.Enabled=Trueshuju.Enabled=Truezhuanti.Enabled=Truechuangjian.Enabled=Truequantu.Enabled=Truechashan.Enabled=Truechashui.Enabled=Truechaming.Enabled=Truechalu.Enabled=Truehuifu.Enabled=Truechaxun.Enabled=TrueEnd Sub,Private Sub Command1_Click()ActiveForm.Map1.CurrentT
6、ool=miSelectToolEnd SubPrivate Sub Command11_Click()Form1.ShowEnd Sub,Private Sub Command3_Click()ActiveForm.Map1.CurrentTool=miZoomInToolEnd SubPrivate Sub Command4_Click()ActiveForm.Map1.CurrentTool=miZoomOutToolEnd SubPrivate Sub Command5_Click()Form8.Showcreatetheme.Enabled=TrueEnd Sub,Private S
7、ub Command6_Click()ActiveForm.Map1.CurrentTool=miLabelToolCommand9.Enabled=Trueqingbiao.Enabled=TrueForm13.ShowEnd SubPrivate Sub Command7_Click()ActiveForm.Map1.CurrentTool=miPanToolEnd Sub,Private Sub Command8_Click()Form4.ShowEnd SubPrivate Sub Command9_Click()Dim i As Integer For i=1 To ActiveFo
8、rm.Map1.Layers.CountActiveForm.Map1.Layers.Item(i).LabelProperties.Visible=FalseNextEnd Sub,二系统打包（）启动程序工具package or deployment 向导（）,三标准工具栏的制作,（）新建一窗体文件（）添加部件Microsoft windows common controls 6.0.(3)单击图象列表框控件，创建一对象，名称为ImageList1.(4)用鼠标右键单击对象ImageList1,选择属性子菜单弹出属性框,（）选择图象选项卡，选择按钮插入图片，把已准备好的图元文件打开，点击确定
9、按钮（）单击工具栏控件，创建一对象，名称为用鼠标右键单击对象ImageList1,选择属性子菜单弹出属性框.(7)用鼠标右键单击对象用鼠标右键单击对象ImageList1,选择属性子菜单弹出属性框(8)把图象列表定为ImageList1,（）在该属性框中选择按钮选项卡，单击增加按钮，添加个命令按钮把图象也添上相应的图象序号，这样就把工具栏和图象建立了联系（）编写程序Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select case button.keyCase 1 或者 case“tNew”filenewprocCase 2或者 case“tOpen”fileopenproc.End Sub,
