hahaaluo
路人甲
路人甲
  • 注册日期2006-08-05
  • 发帖数146
  • QQ
  • 铜币591枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1405回复:2

麻烦总统帮我转换这段代码 ~~~~~~~~

楼主#
更多 发布于:2006-08-25 11:52
<P>Private m_LayerColn As Collection</P>
<P>Public Sub PopulateList() '调用<BR> <BR>  Dim pFeatureLayer As IGeoFeatureLayer<BR>  '接口 IGeoFeatureLayer specifically maintains the properties for FeatureLayers that  are based on geographic data.<BR>  Dim enable As Boolean<BR>  Dim i As Long</P>
<P>Set m_LayerColn = New Collection<BR>  lstLayers.Clear<BR>  For i = 0 To m_pMap.LayerCount - 1<BR>   If (TypeOf m_pMap.Layer(i) Is IGeoFeatureLayer) Then<BR>     Set pFeatureLayer = m_pMap.Layer(i)<BR>    lstLayers.AddItem pFeatureLayer.Name<BR>     m_LayerColn.Add pFeatureLayer, pFeatureLayer.Name<BR>    enable = True<BR>    End If<BR>   Next i<BR>    <BR>    Exit Sub</P>
<P>End Sub</P>
<P>如何将它转化为C#呢  我弄了许久都没整出来~~~~~~</P>
<P>所以希望总统能帮下忙  谢谢了 ~~~~~~~~~~</P>
喜欢0 评分0
cl991036
管理员
管理员
  • 注册日期2003-07-25
  • 发帖数5913
  • QQ14265545
  • 铜币29655枚
  • 威望213点
  • 贡献值0点
  • 银元0个
  • GIS帝国居民
  • GIS帝国铁杆
1楼#
发布于:2006-08-29 00:33
<P>自己转c#帖上来 </P>
<P>多半是实例话问题</P>
没钱又丑,农村户口。头可断,发型一定不能乱。 邮箱:gisempire@qq.com
举报 回复(0) 喜欢(0)     评分
hsghxm
路人甲
路人甲
  • 注册日期2004-10-27
  • 发帖数517
  • QQ4604052
  • 铜币1枚
  • 威望0点
  • 贡献值0点
  • 银元0个
2楼#
发布于:2006-08-30 09:32
楼主太懒!<img src="images/post/smile/dvbbs/em08.gif" />
MSN:hsghxm@163.com QQ:4604052 (很少用,最好别加) Email:hsghxm@163.com 我的BOLG:http://www.gisempire.com/blog/user1/864/index.htm
举报 回复(0) 喜欢(0)     评分
游客

返回顶部