1
我努力解决这个问题,没有任何运气:(的Visual Basic 6 ::卸载动态创建的窗体
这里是我的代码:
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private frm As Form
Public Sub GenerateForm()
Set frm = New myForm
With frm
.Width = 4000
.Height = 3000
.Caption = "Message"
End With
frm.Move (Screen.Width - Me.Width)/2, (Screen.Height - Me.Height)/2
frm.Show vbModal
Sleep 3000
Unload Me
Set frm = Nothing
End Sub
Private Sub Command1_Click()
GenerateForm
End Sub
我要关闭新创建的窗体在3秒钟后自动。
你真的是指'卸载我',或者你的意思是'卸载frm'? –
你的设计是不好的做法。您不应该向用户显示消息,然后在几秒钟后将其删除,因为它只会让用户感到困惑,并且他们会认为出现了问题。改变设计,你的问题就会消失。 –