阅读:1549回复:2
麻烦总统帮我转换这段代码 ~~~~~~~~
<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> |
|
1楼#
发布于:2006-08-30 09:32
楼主太懒!<img src="images/post/smile/dvbbs/em08.gif" />
|
|
|
2楼#
发布于:2006-08-29 00:33
<P>自己转c#帖上来 </P>
<P>多半是实例话问题</P> |
|
|