我想通過呼叫formtimer來加載和卸載一個用戶表單，用一個字串作為表單名稱。 我不知道該怎么做，我希望得到一些建議
。Public Sub callme()
FormTimer ("UserForm1")
結束 Sub
public Sub FormTimer(Fname As String)
Fname.Show vbModeless
Application.OnTime Now TimeValue("00:00:02"), "UnloadIt（Fname）"。
結束 子
Public Sub UnloadIt(name As string)
卸載名稱
End Sub
uj5u.com熱心網友回復：
試試下面的代碼...
Public Sub callme()
FormTimer "UserForm1"/span>
結束 Sub
Public Sub FormTimer(Fname As String)
VBA.UserForms.Add(Fname).Show vbModeless
Application.OnTime Now TimeValue("00:00:02"), "'UnloadIt"" & Fname & " "'"
End Sub
Public Sub UnloadIt(name As String)
Dim uf As Object
For Each uf In VBA.UserForms
If uf.name = name Then
卸載uf
Exit Sub
結束 If
Next uf
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/324082.html
標籤：
上一篇：基于令牌的認證MVC5