变量“objMText”在赋值前被使用。可能会在运行时导致 null 引用异常
Public Sub ss()
On Error GoTo err1
Dim objEntArr() As Object, i As Long
Dim objSset As AutoCAD.AcadSelectionSet
SelectAllText(objSset)
ReDim objEntArr(objSset.Count - 1)
For i = 0 To objSset.Count - 1
objEntArr(i) = objSset.Item(i)
Next i
XY_Sort(objEntArr)
For i = 0 To UBound(objEntArr)
objEntArr(i).TextString = objEntArr(i).TextString & CStr(i + 1)
Next i
Exit Sub
err1:
Err.Clear()
Debug.Print(Err.Description)
End Sub
为什么VBA中正常,到VB2010中就出现警告 1 变量“objMText”在赋值前被使用。可能会在运行时导致 null 引用异常。 这句中的SelectAllText(objSset),哪位高人指点下