?? mod1.bas
字號(hào):
Attribute VB_Name = "Mod1"
Public adoCon As New ADODB.Connection '定義一個(gè)數(shù)據(jù)連接
Public adoRs As New ADODB.Recordset '定義一個(gè)數(shù)據(jù)集對(duì)象
Public adoRs1 As New ADODB.Recordset '定義一個(gè)數(shù)據(jù)集對(duì)象
Public Name1 As String
Public StrNums As Integer
Public Temps '定義一個(gè)變體類型的公共變量
'聲明一個(gè)API函數(shù),用于實(shí)現(xiàn)使窗體置前還是取消窗體置前的功能
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public rtn
Public TWidth As Long
Public THeigth As Long
Public Sub main() '定義一個(gè)公共主函數(shù),用于連接數(shù)據(jù)庫
Dim temp As String
temp = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_kcgl.mdb;Persist Security Info=False"
adoCon.Open (temp)
End Sub
Public Sub WHScreen() '獲得屏幕分辨率
TWidth = Screen.Width \ Screen.TwipsPerPixelX
THeigth = Screen.Height \ Screen.TwipsPerPixelY
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -