《第五讲系统工具栏.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 = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command6.Enabled = False Command7.Enabled = False Command9.Enabled = False Command11.Enabled = False cengkongzhi.Enabled = Fals
3、e biaozhu.Enabled = False,dayin.Enabled = False qingbiao.Enabled = False bianji.Enabled = Falseshuju.Enabled = False zhuanti.Enabled = False chuangjian.Enabled = False createtheme.Enabled = False modifytheme.Enabled = False modifylegend.Enabled = False chaxun.Enabled = False quantu.Enabled = False c
4、hashan.Enabled = False chashui.Enabled = False chaming.Enabled = False chalu.Enabled = False huifu.Enabled = False End Sub,Private Sub Command2_Click() Form3.Show Command1.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled
5、= True Command11.Enabled = True cengkongzhi.Enabled = True biaozhu.Enabled = True,Command2为打开文件 对应工具栏,dayin.Enabled = True qingbiao.Enabled = True bianji.Enabled = True shuju.Enabled = True zhuanti.Enabled = True chuangjian.Enabled = True quantu.Enabled = True chashan.Enabled = True chashui.Enabled
6、= True chaming.Enabled = True chalu.Enabled = True huifu.Enabled = True chaxun.Enabled = True End Sub,Private Sub Command1_Click() ActiveForm.Map1.CurrentTool = miSelectTool End Sub Private Sub Command11_Click() Form1.Show End Sub,Private Sub Command3_Click() ActiveForm.Map1.CurrentTool = miZoomInTo
7、ol End Sub Private Sub Command4_Click() ActiveForm.Map1.CurrentTool = miZoomOutTool End Sub Private Sub Command5_Click() Form8.Show createtheme.Enabled = True End Sub,Private Sub Command6_Click() ActiveForm.Map1.CurrentTool = miLabelTool Command9.Enabled = True qingbiao.Enabled = True Form13.Show En
8、d Sub Private Sub Command7_Click() ActiveForm.Map1.CurrentTool = miPanTool End Sub,Private Sub Command8_Click() Form4.Show End Sub Private Sub Command9_Click() Dim i As Integer For i = 1 To ActiveForm.Map1.Layers.Count ActiveForm.Map1.Layers.Item(i).LabelProperties.Visible = False Next End Sub,二系统打包
9、 （）启动程序工具package or deployment 向导 （）,三标准工具栏的制作,（）新建一窗体文件 （）添加部件Microsoft windows common controls 6.0. (3)单击图象列表框控件，创建一对象，名称为ImageList1. (4)用鼠标右键单击对象ImageList1,选择属性子菜单弹出属性框,（）选择图象选项卡，选择按钮插入图片，把已准备好的图元文件打开，点击确定按钮 （）单击工具栏控件，创建一对象，名称为用鼠标右键单击对象ImageList1,选择属性子菜单弹出属性框. (7)用鼠标右键单击对象用鼠标右键单击对象ImageList1,选择属性子菜单弹出属性框 (8)把图象列表定为ImageList1,（）在该属性框中选择按钮选项卡，单击增加按钮，添加个命令按钮把图象也添上相应的图象序号，这样就把工具栏和图象建立了联系 （）编写程序 Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select case button.key Case 1 或者 case “tNew” filenewproc Case 2 或者 case “tOpen” fileopenproc End Sub,