Sub FormShow(FormName)
Dim f As Form
For Each f In Forms
If f.Name = FormName Then
'f.WindowState = 0
f.Show
Exit Sub
End If
Next
Set f = Forms.Add(FormName)
f.Show
End Sub
Private Sub Command1_Click()
FormShow ("Form2")
End Sub
vb6 字符串調用窗體
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.