送分100分：VB6如何判断一个变量或对象是否已经存在

Question

送分100分：VB6如何判断一个变量或对象是否已经存在

Answer 1

重新定义一个，运行一下。已经存在就会报错。也可以按CTRL+F先查找。

Answer 2

一般窗口代码最上方,加一句:Option Explicit,
编译或运行时vb就会自动检测变量和对象是否定义

Answer 3

简单变量、字符串、结构、固定数组在定义后就有默认值。动态数组、对象则需要创建。
要判断数组是否初始化，可用SafeArrayGetDim 取其元素个数。对象则判断是否为 Nothing 。

Answer 4

Option Explicit只能检测是否定义不能检测重复定义。检测是否定义还可以选中变量，右击选“定义”

Answer 5

搂主说的是在程序中判断变量或者对象是否存在，然后对其进行其它操作吧？
下面是一个遍历对象的程序，如何遍历变量就不知道了
  Dim mObj As Control
  For Each mObj In Me.Controls
      If TypeOf mObj Is TextBox Then '根据类型搜索，也可以根据对象.Name等搜索
          mObj.Text = "这是textbox!"
      end if
  Next

Answer 6

从这句话来看,是已知变量或对象的名称,判断其是否有效?如果理解得没错,那直接使用typename()函数就行,返回值为Empty则表明输入的那个名称是无效的.如果有效,则会返回其类型.比如.dim I as longdebug.print typename(i)这将返回Long.

Answer 7

哈哈，嗷嗷叫在我楼上。
老外写的 DeepLook.exe 分析下。

Answer 8

按CTRL+F查找,根据你关心的范围选择范围选项

Answer 9

1.加上Option Explicit,然后按ctrl+F5
2.变量(isempty(变量名)=false),对象(if not 对象名 is nothing then),数组(if SafeArrayGetDim(数组名)>0 then)

Answer 10

Private Sub Command2_Click()  MsgBox IsEmpty(image2)  '返回False对像或变量存在
  MsgBox TypeName(image2) '返回非Empty对像或变量存在
  
  '要注意的是它们都不能判断已经定义的Variant变量
 
End Sub