谢谢了，谢谢了，我试试

<P>Set pMap = MapControl1.Map  '这里mapcontrol改成你的控件名字就可以了</P>
<P>老大，这一行有错，他提示说变量未定义，这个是控件名称，还要定义么？</P>

<P>pmap已经定义了，自己调试程序看看哪里错了，</P>

<P>实在不知道哪里出问题了，我把全部都帖出来吧，谢谢各位了</P>
<P>下面这个是在窗体加载中的代码，调用类模块</P>
<P> 'Create a MenuDef object<BR>  Dim pMenuDef As esriSystemUI.IMenuDef<BR>  Set pMenuDef = New NavigationMenu<BR>  <BR>  <BR>  'Add to the end of the Toolbar - it will be the 6th item<BR>   ToolbarControl1.AddItem pMenuDef, , , , , esriCommandStyleMenuBar</P>
<P>下面这个是类模块的完整代码：</P>
<P>Option Explicit<BR>Dim FEATURELAYER As IFeatureLayer<BR>Implements IMenuDef</P>
<P>Private Property Get IMenuDef_Caption() As String<BR>  IMenuDef_Caption = "土壤"<BR>End Property</P>
<P>Private Sub IMenuDef_GetItemInfo(ByVal pos As Long, ByVal itemDef As esriSystemUI.IItemDef)<BR>  Select Case pos 'Commands for the menu - the object browser lists these commands<BR>    Case 0<BR>      <BR>      Call AddShapeFile<BR>   <BR>    Case 1<BR>      itemDef.ID = "esriControlCommands.ControlsMapZoomOutFixedCommand"<BR>    Case 2<BR>      itemDef.ID = "esriControlCommands.ControlsMapFullExtentCommand"<BR>      itemDef.Group = True<BR>    Case 3<BR>      itemDef.ID = "esriControlCommands.ControlsMapZoomToLastExtentBackCommand"<BR>    Case 4<BR>      itemDef.ID = "esriControlCommands.ControlsMapZoomToLastExtentForwardCommand"<BR>  End Select<BR>End Sub</P>
<P><BR>Public Sub AddShapeFile()<BR>  Dim pWorkspaceFactory As IWorkspaceFactory<BR>  Dim pFeatureWorkspace As IFeatureWorkspace<BR>  Dim pFeatureLayer As IFeatureLayer<BR>  Dim pMap As IMap<BR>  <BR>  'Create a new ShapefileWorkspaceFactory object and open a shapefile folder<BR>  Set pWorkspaceFactory = New ShapefileWorkspaceFactory<BR>  Set pFeatureWorkspace = pWorkspaceFactory.OpenFromFile("d:\Program Files\ArcGIS\DeveloperKit\Samples\Data\World", 0)<BR>  'Create a new FeatureLayer and assign a shapefile to it<BR>  Set pFeatureLayer = New FEATURELAYER<BR>  Set pFeatureLayer.FeatureClass = pFeatureWorkspace.OpenFeatureClass("Country")<BR>  pFeatureLayer.Name = pFeatureLayer.FeatureClass.AliasName<BR>  'Add the FeatureLayer to the focus map<BR>  Set pMap = MapControl1.Map  '这里mapcontrol改成你的控件名字就可以了</P>
<P>  pMap.AddLayer pFeatureLayer<BR>End Sub</P>

<P><BR>Private Property Get IMenuDef_ItemCount() As Long<BR>  IMenuDef_ItemCount = 5<BR>End Property</P>
<P>Private Property Get IMenuDef_Name() As String<BR>  IMenuDef_Name = "Navigation"<BR>End Property<BR></P>

<P>把下面的拷进去吧，应该可以加了吧，你注意下变量的定义了，imap是可以和mapcontrol1.map等同的</P>
<P> Case 0<BR>  Dim pWorkspaceFactory As IWorkspaceFactory<BR>  Dim pFeatureWorkspace As IFeatureWorkspace<BR>  Dim pFeatureLayer As IFeatureLayer<BR> ' Dim pMap As IMap<BR>  <BR>  'Create a new ShapefileWorkspaceFactory object and open a shapefile folder<BR>  Set pWorkspaceFactory = New ShapefileWorkspaceFactory<BR>  Set pFeatureWorkspace = pWorkspaceFactory.OpenFromFile("d:\Program Files\ArcGIS\DeveloperKit\Samples\Data\World", 0)<BR>  'Create a new FeatureLayer and assign a shapefile to it<BR>  Set pFeatureLayer = New FEATURELAYER<BR>  Set pFeatureLayer.FeatureClass = pFeatureWorkspace.OpenFeatureClass("Country")<BR>  pFeatureLayer.Name = pFeatureLayer.FeatureClass.AliasName</P>
<P><BR>  'Add the FeatureLayer to the focus map<BR>  'Set pMap = MapControl1.Map  '这里mapcontrol改成你的控件名字就可以了</P>
<P>  MapControl1.Map.AddLayer pFeatureLayer<BR>      <BR></P>

还是提示mapcontrol1没有定义

郁闷啊！~~~~~~~~~~~~~~~~

<DIV class=quote><B>以下是引用<I>木白林</I>在2005-7-8 20:46:16的发言：</B><BR>还是提示mapcontrol1没有定义</DIV>
<P>
<P>这个是你自己取的控件名字，不要定义哦，兄弟</P>

mapcontrol1我没有定义啊！这个就是默认的控件名称

实在是难说了，方便的话，把程序打包上来看看