用is nothing 判断
测试代码:Private Sub Command1_Click()
Dim aa As FormIf aa Is Nothing Then
MsgBox "null form"
End If
End Sub
测试代码:Private Sub Command1_Click()
Dim aa As FormIf aa Is Nothing Then
MsgBox "null form"
End If
End Sub
解决方案 »
- vb中我用键盘钩子可以屏蔽Alt+Tab,Alt+Esc,Ctrl+Esc,但是无法屏蔽Ctrl+Alt+Del,我觉得应该是系统优先级的问题,,但是不知道应该怎么实现,请问一下谁知道有什么办法吗? 谢谢了
- 江湖告急:ADODC与COMBOBOX数据问题
- SAX中事件实现类的错误处理??
- 利用HTTP方式上传文件,122错误!
- 关于datagrid
- 如何实现vb与远程sql server数据库的连接
- 哪位做过服装业的进销存管理软件?
- 各位高手:如何用API实现,在屏幕上显示一段文本
- 在VB中显示查询结果!哥哥们给我看看!
- 上位机使用Listview控件读取sql中数据出现问题
- 如何把Activereport设计的报表存为其他格式???Rtf,pdf,Excel
- 刚才我发了一个贴子,请问我怎样结贴?(不好意思,我真笨)
set obj=new recordset................if not obj is nothing then
if obj.state=1 then obj.close
set obj=nothing
end if