recmain.bas

来自「详细说明：手写识别源码」· BAS 代码 · 共 43 行

Attribute VB_Name = "recMain"
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2008/01/21
'描    述：手写字体识别软件 (v 2.01 beta)
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Public fMainForm As frmMain

Sub Main()

'    Call LoginDialog
    
    frmSplash.Show
    frmSplash.Refresh
    
    Set fMainForm = New frmMain
    Load fMainForm
    
    Unload frmSplash

    fMainForm.Show

End Sub

Private Sub LoginDialog()
Dim fLogin As New frmLogin
    fLogin.Show vbModal
    If Not fLogin.OK Then
        'Login Failed so exit app
        End
    End If
    Unload fLogin
End Sub