在VB6下得到所有图层名称

得到所有图层名称-VB6

编辑 | 删除 | 权限设置 | 更多▼
MicroDraw    发表于2009年01月13日 12:12 阅读(4) 评论(0) 分类： 常见问题 权限: 公开
 
Private Sub Command1_Click()
'遍历图层
Dim layerid As Long '图层ID
layerid = MicroDrawOcx1.GetFirstObject(-4)
While layerid > 0
  '添加处理代码...
  layerid = MicroDrawOcx1.GetNextObject(layerid)
  List1.AddItem MicroDrawOcx1.GetString(layerid, -310) '将图层名称加入到LIST
Wend

End Sub
posted @ 2009-02-26 19:31  MicroDraw  阅读(230)  评论(0)    收藏  举报