越来越有意思的问题，请看我最新的回复

俄<FONT face=Tahoma></FONT>个<br>沮丧，一个问题，书也看了，还是解决不了，请众位帮忙 <br><br>
<P>看看这段有关按钮增删改的mapbasic源码，程序编译没问题，但就是运行结果看不出我创建或修改的按钮，到底出啥问题了？</P>
<P>Include "MENU.DEF"<br>Include "MAPBASIC.DEF"<br>Include "ICONS.DEF "</P>
<P>Declare Sub main</P>
<P>Sub main</P>
<P>    Alter ButtonPad "Tools" <br>     Add Separator <br>     Add PushButton <br>        Icon   MI_ICON_ZOOM_QUESTION  <br>        Calling M_FILE_OPEN <br>        HelpMsg "Display the Named Views dialog" <br>     Show </P>
<P>end sub<br></P><img src="images/post/smile/dvbbs/em15.gif" /><img src="images/post/smile/dvbbs/em15.gif" />

为什么看不到呢？这个问题肯定有人知道啊，

<P>又仔细的看了一上午的帮助文件，觉得没有问题啊，为什么就是无法看到自己添加的新按钮？？？？奇怪死了</P>

<P>难道论坛里没人知道？</P>

<P>新建的菜单必须通过Alter Menu Bar Add…加到 菜单栏上才可见</P>
<P>你可以看看这个教程</P>
<P>http://jpkc.whu.edu.cn/jpkc/gis/course/shijianjiaoxue/shixizhidao/mapinfo/dianzijiaoyi/chp2.pdf</P>

<P>谢谢“猪头外劳”！！！总算有人回我帖子了！</P>
<P>但是，您可能看错了，我是修改按钮盒，不是修改菜单项。但我的那个问题越来越有意思了。请看这段代码：</P>
<P>Include "MapBasic.Def"<br>Include "Icons.Def"<br>include  "menu.def"</P>
<P>declare sub main<br>declare sub stool<br>declare sub button_sub_proc<br></P>
<P>sub main<br>     call stool<br><br>end sub</P>
<P>sub stool<br>   Create ButtonPad  "test" As<br>     pushButton<br>       Icon MI_ICON_SAVE_FILE<br>       Calling <STRONG>M_FILE_OPEN  '</STRONG>button_sub_proc<br>       HelpMsg "Select objects for editing\n选择"<br>     show</P>
<P>end sub</P>
<P>sub button_sub_proc<br>    print "button_sub_proc"<br>end sub</P>
<P>这段代码的目的是创建个工具按钮，但运行结果显示看不到创建的按钮。折腾了半天，发现问题在"calling"调用的过程上，如果，我用<STRONG>M_FILE_OPEN，就无法显示，如果用</STRONG>button_sub_proc，运行结果就显示正常，或者，哪怕要用<STRONG>M_FILE_OPEN的话，</STRONG>后面再加段代码，如下，就显示正常了</P>
<P>Include "MapBasic.Def"<br>Include "Icons.Def"<br>include  "menu.def"</P>
<P>declare sub main<br>declare sub stool<br>declare sub button_sub_proc<br></P>
<P>sub main<br>     call stool<br><br>end sub</P>
<P>sub stool<br>   Create ButtonPad  "test" As<br>     pushButton<br>       Icon MI_ICON_SAVE_FILE<br>       Calling <STRONG>M_FILE_OPEN  '</STRONG>button_sub_proc<br>       HelpMsg "Select objects for editing\n选择"</P>
<P>     <STRONG>pushButton<br>       Icon MI_ICON_HELP<br>       Calling button_sub_proc<br>       HelpMsg "Select objects for editing\n选择"<br>     show</STRONG></P>
<P>end sub</P>
<P>sub button_sub_proc<br>    print "button_sub_proc"<br>end sub</P>
<P>想不通为什么！盼高手解惑</P>
<P><br> </P>

狂顶