《系统工具栏》ppt课件.ppt

第五讲 系统工具栏的制作和系统打包,一：工具栏的制作 １.方法一： （１）创建一框架（frame1） (2)在框架（frame1）上创建一命令按钮，属性style设置为graphic,而不是默认值normal.属性picture,找到相应的*.ico文件，属性caption的值设为空．（在网上搜索所需的图元文件*.ico.） (3)依照上述方法创建其他10个命令按钮. 命令按钮的大小要与第一个按钮一致.,(4)在每一个命令按钮的click事件中添加相应的程序． （５）在程序的编写过程中，为了防止工具栏或对应子菜单的误操作，巧用各控件的enabled属性． 如：在池州市电子地图中，第一个进行操作的工具栏或对应子菜单是打开文件，其他的工具栏或对应子菜单在打开文件之后进行的．,工具栏界面：,程序如下： 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 = False 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 chashan.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 = 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 = 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 = miZoomInTool 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 End 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,二．系统打包 （１）启动程序／ＶＢ／ＶＢ工具／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,。