programflow.bas

来自「快速数据库的编程实现」· BAS 代码 · 共 10 行

Attribute VB_Name = "ProgramFlow"
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Public Sub Main()
On Error Resume Next
    BinaryMgmt.OpenDatabase
    frmMain.Show
On Error GoTo 0
On Error Resume Next
End Sub