运行效果
运行代码:
Private Sub Command1_Click()
Dim intx As Integer
Dim frmnew(1 To 5) As New Form1 '使用new关键字,系统会创建新窗体
For intx = 1 To 5
frmnew(intx).Show
frmnew(intx).WindowState = vbMinimized '将创建的窗体最小化
Next
End Sub
运行效果
运行代码:
Private Sub Command1_Click()
Dim intx As Integer
Dim frmnew(1 To 5) As New Form1 '使用new关键字,系统会创建新窗体
For intx = 1 To 5
frmnew(intx).Show
frmnew(intx).WindowState = vbMinimized '将创建的窗体最小化
Next
End Sub
欠佳,请多指教
举报文章
请选择举报类型
补充说明
0/200
上传截图
格式支持JPEG/PNG/JPG,图片不超过1.9M