【文章內(nèi)容簡介】
ommand_Checked() As Boolean ICommand_Checked = FalseEnd PropertyPrivate Property Get ICommand_Enabled() As Boolean ICommand_Enabled = TrueEnd PropertyPrivate Property Get ICommand_HelpContextID() As Long 39。該命令的幫助索引End PropertyPrivate Property Get ICommand_HelpFile() As String 39。該命令的幫助文檔End PropertyPrivate Property Get ICommand_Message() As String ICommand_Message = 這是地信實(shí)習(xí)程序示例End PropertyPrivate Property Get ICommand_Name() As String ICommand_Name = testEnd PropertyPrivate Sub ICommand_OnClick() = 地理信息系統(tǒng)實(shí)習(xí) Dim pMxDocument As IMxDocument Set pMxDocument =