|
阅读：1358回复：4
这个程序应该怎样改?
<P>以下这段VBA中的程序应该怎样改,才能在AO+VB中运行?</P>
<P>Sub ShowTOC()<BR> ' The dialog ID for the TOC is 6<BR> If Not Application.IsDialogVisible(6) Then<BR> Application.ShowDialog 6<BR> End If<BR>End Sub <BR>我这样改不能运行:</P> <P>Private Sub Command1_Click()<BR>Dim s As esriArcMap.Application<BR>If Not s.IsDialogVisible(6) Then<BR>s.ShowDialog 6<BR>End If<BR>End Sub</P> <P> <img src="images/post/smile/dvbbs/em12.gif" /></P> |
|
|
1楼#
发布于：2005-08-19 22:25
<P>Application是arcmap里的定义,vb里面没有iapplication,所以也没showdialog</P>
<img src="images/post/smile/dvbbs/em02.gif" /> |
|
|
|
2楼#
发布于：2005-08-20 15:22
用ICommand
|
|
|
|
3楼#
发布于：2005-08-20 15:24
说错了,用TOCControl
|
|
|
|
4楼#
发布于：2005-08-22 08:13
能不能具体点
|
|