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 字符串调用窗体
最新推荐文章于 2021-12-15 10:11:21 发布