Question

vb实时错误'91'对象变量或WITH 块变量未设置问题

Dim pfeaturelayer As IFeatureLayer
Dim pSymbolSel As ISymbolSelector
Dim pMarker As ISimpleMarkerSymbol
Dim player As ILayer
Set pfeaturelayer = player
If pfeaturelayer.FeatureClass.ShapeType = esriGeometryPoint Then
Set pSymbolSel = New SymbolSelector
Set pMarker = New SimpleMarkerSymbol
pSymbolSel.AddSymbol pMarker
Else
MsgBox "请选择点图层"
Exit Sub
End If

If pSymbolSel.SelectSymbol(Me.hWnd) Then
Dim pSymbol As ISymbol
Dim pGeoLyr As IGeoFeatureLayer
Dim pRenderer As ISimpleRenderer

Set pSymbol = pSymbolSel.GetSymbolAt(0)
Set pRenderer = New SimpleRenderer

Set pRenderer.Symbol = pSymbol
Set pGeoLyr = pfeaturelayer
Set pGeoLyr.Renderer = pRenderer
Me.MapControl1.Refresh
Me.TOCControl1.Update
End If
这个哪错了？调试时 If pfeaturelayer.FeatureClass.ShapeType = esriGeometryPoint Then 错误，求大神指导，急急急！！！

Answer 1

这个错误原因基本都是对象为空时就进行调用造成的。
Dim player As ILayer
Set pfeaturelayer = player
这个过程里，player是空的，pfeaturelayer当然也跟着空。

我不知道ILayer是什么东西，如果可能的话，应该这样写：
Dim player As ILayer
set player = new ILayer
Set pfeaturelayer = player
但是，ILayer明显是个接口，不知是否能直接new出来。IFeatureLayer、ILayer这些究竟是什么东西，查查相关帮助文档，看如何建立新对象。

追问

不能直接new出来。你再看看这个：
If player Is Nothing Then
MsgBox "请选择要删除的图层"
Else
pmap.DeleteLayer player
Me.MapControl1.Refresh
end if
前面定义了全局变量player。这个能够运行。

追答

能够运行哪个逻辑？弹出“ 请选择要删除的图层"对话框吗？那就对了，因为player没有new出来或没有赋值，就是nothing。
如果确定player不是nothing，那么就是你的”全局变量“和”局部变量“搞混了。你贴出来的这个代码：
Dim player As ILayer
Set pfeaturelayer = player
这里有个局部变量player，pfeaturelayer获得的是这个局部player，而不是全局player。VB默认是优先使用局部变量的，把这里的Dim player As ILayer去掉，就会获得全局变量了。

还有注意，Set pfeaturelayer = player这句话不是创建两个对象，pfeaturelayer实际上和player还是同一个东西的，如果player在其他地方set nothing了，那么pfeaturelayer也跟着nothing，他们是同一个对象的两个名称而已。