module1.bas

个人VB学习源码精选,自己学习时的一些编程小程序,希望对大家有帮助

Attribute VB_Name = "Module1"
Public Document() As New frmChild
Public DocState() As Integer
Public Sub Quit()
    Unload MDIForm1
End Sub
Public Sub DisplayModal()
    frmModal.Show vbModal
    MsgBox "This line immediately follows the Show method"
End Sub
Public Sub DisplayNewChild()
    Dim docCount As Integer
    docCount = UBound(Document)
    ReDim Preserve Document(docCount + 1)
    ReDim Preserve DocState(docCount + 1)
    Document(docCount + 1).Tag = docCount + 1
    Document(docCount + 1).Show
End Sub
Public Sub DisplayModeless()
    frmModeless.Show vbModeless
    MsgBox "This line immediately follows the Show method"
End Sub
Public Sub FileSave()
    MsgBox "对不起,暂缺此项功能!"
End Sub