这两行代码看不懂,哪位老师给讲讲呀?我不明白的是,在循环中,with new form1这种写法,是dim frmtmp as new form1 的意思吗?但是没有给出变量名呀。这是一种特别的写法吗?Private Sub Command3_Click()
    Dim i As Long
    For i = 1 To 10
        With New Form1
            .Show
            .WindowState = vbMaximized
        End With
    Next i
End Sub

解决方案 »

  1.   

    等价于    Dim i As Long
        Dim myForm As Form
        For i = 1 To 10
            Set myForm = New Form1
            With myForm
                .Show
                .WindowState = vbMaximized
            End With
        Next i
      

  2.   

            With New Form1
                .Show
                .WindowState = vbMaximized
            End With
    生成新窗体Form1
    显示最大化的窗体 Form1
      

  3.   

    窗体也是一个类,使用New关键字来创建窗体类新的实例对象
      

  4.   


    Dim i As Long
        Dim myForm As Form
        For i = 1 To 10
            Set myForm = New Form1
            myForm.Show
            myForm.WindowState = vbMaximized
        Next i
      

  5.   

    等价
     Dim i As Long  
    Dim myForm As Form 
    For i = 1 To 10  
     Set myForm = New Form1 
     With myForm 
      .Show .WindowState = vbMaximized 
      End With  
    Next i