?? mdlpub.bas
字號:
Attribute VB_Name = "mdlPub"
Option Explicit
Public Const MaxRecNumber = 200
Public Con As ADODB.Connection
Public Agree As Boolean
Private Const ConStr = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source="
Public Sub main()
Agree = False
frmAbout.Show vbModal
If Agree = False Then
MsgBox "眤ぃ?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -