module1.bas

来自「一个资料管理系统的源程序」· BAS 代码 · 共 14 行

Attribute VB_Name = "Module1"
Public gz_user As String
Sub Main()
    App.HelpFile = fullpath("html\myhelp.chm")
    Dim f As New frmLogin
    f.Show vbModal
End Sub
Function fullpath(filename As String)
    temp = App.Path
    If Right$(temp, 1) <> "\" Then temp = temp & "\"
    fullpath = temp & filename
End Function