送分100分:VB6如何判断一个变量或对象是否已经存在
解决方案 »
- 视频加密
- 关于VsFlexgrid的列排序问题
- 关于textbox的自定义控件(急!!!)
- 谁能给我一段ADO操作数据库的代码,包括查询,插入,和修改
- 怎样调用 SQL SERVER 存储过程
- 为什么在TEXTBOX中读出来的前一半文章和原来的不一样了??
- 销售系统中,怎样将Scanner scan到的货品的bar code 的值输入到自已的程序中!!!!
- 此网站推出的visual studio.net(屏幕右上角)如何???
- RDO链接问题。
- 谢谢,这是一个综合了很多问题的问题,如果有空的话,请回答……
- 我的的vb+sql系统有点问题想让大家帮帮忙~~~!
- 这段代码如何求总数,不是rs.recordcount
编译或运行时vb就会自动检测变量和对象是否定义
要判断数组是否初始化,可用SafeArrayGetDim 取其元素个数。对象则判断是否为 Nothing 。
下面是一个遍历对象的程序,如何遍历变量就不知道了
Dim mObj As Control
For Each mObj In Me.Controls
If TypeOf mObj Is TextBox Then '根据类型搜索,也可以根据对象.Name等搜索
mObj.Text = "这是textbox!"
end if
Next
老外写的 DeepLook.exe 分析下。
2.变量(isempty(变量名)=false),对象(if not 对象名 is nothing then),数组(if SafeArrayGetDim(数组名)>0 then)
Private Sub Command2_Click() MsgBox IsEmpty(image2) '返回False对像或变量存在
MsgBox TypeName(image2) '返回非Empty对像或变量存在
'要注意的是它们都不能判断已经定义的Variant变量
End Sub