資源描述：
《《系統(tǒng)工具欄》PPT課件》由會員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。
1、第五講 系統(tǒng)工具欄的制作和系統(tǒng)打包一：工具欄的制作１.方法一：（１）創(chuàng)建一框架（frame1）(2)在框架（frame1）上創(chuàng)建一命令按鈕，屬性style設(shè)置為graphic,而不是默認(rèn)值normal.屬性picture,找到相應(yīng)的*.ico文件，屬性caption的值設(shè)為空．（在網(wǎng)上搜索所需的圖元文件*.ico.）(3)依照上述方法創(chuàng)建其他10個(gè)命令按鈕.命令按鈕的大小要與第一個(gè)按鈕一致.(4)在每一個(gè)命令按鈕的click事件中添加相應(yīng)的程序．（５）在程序的編寫過程中，為了防止工具欄或?qū)?yīng)子菜單的誤操作，巧用各控件的enabled屬性．如：在池州市電子地圖中
2、，第一個(gè)進(jìn)行操作的工具欄或?qū)?yīng)子菜單是打開文件，其他的工具欄或?qū)?yīng)子菜單在打開文件之后進(jìn)行的．工具欄界面：程序如下：PrivateSubMDIForm_Load()Command1.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseCommand5.Enabled=FalseCommand6.Enabled=FalseCommand7.Enabled=FalseCommand9.Enabled=FalseCommand11.Enabled=Falsecengkongzhi.Enabled=Fals
3、ebiaozhu.Enabled=Falsedayin.Enabled=Falseqingbiao.Enabled=Falsebianji.Enabled=Falseshuju.Enabled=Falsezhuanti.Enabled=Falsechuangjian.Enabled=Falsecreatetheme.Enabled=Falsemodifytheme.Enabled=Falsemodifylegend.Enabled=Falsechaxun.Enabled=Falsequantu.Enabled=Falsechashan.Enabled=Fals
4、echashui.Enabled=Falsechaming.Enabled=Falsechalu.Enabled=Falsehuifu.Enabled=FalseEndSubPrivateSubCommand2_Click()Form3.ShowCommand1.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueCommand5.Enabled=TrueCommand6.Enabled=TrueCommand7.Enabled=TrueCommand11.Enabled=Truecengkongzhi.
5、Enabled=Truebiaozhu.Enabled=TrueCommand2為打開文件對應(yīng)工具欄dayin.Enabled=Trueqingbiao.Enabled=Truebianji.Enabled=Trueshuju.Enabled=Truezhuanti.Enabled=Truechuangjian.Enabled=Truequantu.Enabled=Truechashan.Enabled=Truechashui.Enabled=Truechaming.Enabled=Truechalu.Enabled=Truehuifu.Enabled=Tru
6、echaxun.Enabled=TrueEndSubPrivateSubCommand1_Click()ActiveForm.Map1.CurrentTool=miSelectToolEndSubPrivateSubCommand11_Click()Form1.ShowEndSubPrivateSubCommand3_Click()ActiveForm.Map1.CurrentTool=miZoomInToolEndSubPrivateSubCommand4_Click()ActiveForm.Map1.CurrentTool=miZoomOutToolEnd
7、SubPrivateSubCommand5_Click()Form8.Showcreatetheme.Enabled=TrueEndSubPrivateSubCommand6_Click()ActiveForm.Map1.CurrentTool=miLabelToolCommand9.Enabled=Trueqingbiao.Enabled=TrueForm13.ShowEndSubPrivateSubCommand7_Click()ActiveForm.Map1.CurrentTool=miPanToolEndSubPrivateSubCommand8_Cl
8、ick()Form4.ShowEndS
