commonfunctions.vb

来自「图书管理系统 书籍的管理应用 源码可以直接用」· VB 代码 · 共 16 行

Module common

    Public Sub InfoMSG(ByVal MSG As String)
        MessageBox.Show(MSG, "书籍借阅管理系统", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub

    Public Sub ErrorMSG(ByVal MSG As String)
        MessageBox.Show(MSG, "书籍借阅管理系统", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Sub

    Public Sub ExclaMSG(ByVal MSG As String)
        MessageBox.Show(MSG, "书籍借阅管理系统", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    End Sub

End Module