社区 › VBA/VB/ActiveX/API 编程技术 › 小问题，难住了，关于变体变量有没有赋值

petty 发表于 2016-10-17 19:02:31

小问题，难住了，关于变体变量有没有赋值

Dim pnt_fs As Variant

If pnt_fs Is Empty Then pnt_fs = ThisDrawing.Utility.GetPoint(, "选择俯视图中心点: ")
If pnt_fs Is Nothing Then pnt_fs = ThisDrawing.Utility.GetPoint(, "选择俯视图中心点: ")
If pnt_fs Is VBNull Then pnt_fs = ThisDrawing.Utility.GetPoint(, "选择俯视图中心点: ")
If pnt_fs = Empty Then pnt_fs = ThisDrawing.Utility.GetPoint(, "选择俯视图中心点: ")
If pnt_fs = null Then pnt_fs = ThisDrawing.Utility.GetPoint(, "选择俯视图中心点: ")
If pnt_fs ="" Then pnt_fs = ThisDrawing.Utility.GetPoint(, "选择俯视图中心点: ")

以上全部试过了，没招了。基本都是类型不匹配或要求对象的错误，当然强行弄也能弄出来，就是加个if err语句，出错就是没赋值，但这样也太难看了，有没有正统的办法。

nslove44202489 发表于 2018-8-25 18:53:28

vartype，试一下，判断结过为vbempty

查看完整版本: 小问题，难住了，关于变体变量有没有赋值