?? module1.bas
字號:
Attribute VB_Name = "Module1"
Public hxffh As Boolean
Public hxffhz As String
Public hxfpiclj As String
Public hxftplj As String
Public hxfcjyhm As String * 6
Public hxfcjyhkl As String * 6
Public hxfyhm As String
Public hxfyh As String
Public hxfyhkl As String * 6
Sub Main()
frmLogin.Show vbModal
If Not frmLogin.OK Then
'登錄失敗,退出應用程序
End
End If
Unload frmLogin
frmSplash.Show
frmSplash.Refresh
Load frmMain
Unload frmSplash
frmMain.Show
End Sub
Public Function filef(fname$) As Boolean
On Error Resume Next
Dim X As Integer
X = FreeFile
Open fname$ For Input As X
If Err = 0 Then
filef = True
Else
filef = False
End If
Close X
End Function
Public Sub TEXTF(CTL As Control)
CTL.SelStart = 0
CTL.SelLength = Len(CTL.Text)
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -