VB 做了个小软件,主面板窗体代码里面用了end,偶尔关不掉程序,在任务管理器中还可以看到,不知道为什么?
不知道怎么解决??
非常非常谢谢哪位高手指点!!!补充:用了下面的代码也偶尔关不掉!!!???
Dim I As Long
For I = Forms.Count - 1 To 0 Step -1
Unload Forms(I)
Next I
End
不知道怎么解决??
非常非常谢谢哪位高手指点!!!补充:用了下面的代码也偶尔关不掉!!!???
Dim I As Long
For I = Forms.Count - 1 To 0 Step -1
Unload Forms(I)
Next I
End
Public Sub UnloadALLForm()
Dim Frm As Form
For Each Frm In Forms
Unload Frm
Next
end
End Sub
Public adoCon As ADODB.Connection
Public adoRst As ADODB.Recordset
Public strsql As String Public Sub main()
Set adoCon = New ADODB.Connection
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/shiyan.mdb;Persist Security Info=False"
Set adoRst = New ADODB.Recordset
End Sub
主面板里的有以下代码:
Private Sub Form_Load()
On Error GoTo wrong1
......
Call main
Set adoRst = adoCon.Execute("select * from 同学录")
......
Exit Sub
wrong1:
MsgBox "主窗体出错,可能数据库被非法修改!", vbInformation, "提醒": End
End Sub
所有的窗体都是这样来调用ACESS数据库的:
Call main
Set adoRst = adoCon.Execute("select * from 同学录")
......
难道就是这个原因?要释放对象!不知道怎么释放啊!??
请指点啊 非常非常谢谢拉
dim o as new form1o.caption = "测试窗体"
end sub
'这样就无法退出进程,因为form1的实例o没有释放
end sub
'尽量不要使用end
set form1=nothing
尽量不要写这样的程序:
Form2.Text1.Text = Form1.Text1.Text
尽量不要写这样的程序:
Form2.Text1.Text = Form1.Text1.Text
只有在运行时添加到窗体上的控件数组元素才能用 Unload 语句卸载。重新加载被卸载的控件时,其属性会被重新初始化。