?? xp.bas
字號:
Attribute VB_Name = "modXP"
'本代碼歡迎讀者轉發及與我相互探討,但請保留此文字說明 2005/12/31
'作者:宋陳三 南京金肯學院數學教研室 作者主頁http://www.asanscape.com
'作者BLOG: http://blog.csdn.net/asanscape QQ:6019187 Email:asangray@163.com
'本工程中的xp.res可以直接加入其他工程進行編譯以使其具備XP風格
'注意加入資源文件時要同時加入本模塊, 設置工程從Sub Main()啟動,否則無初始化過程
'InitCommonControls函數存在于comctl32.dll(版本5)中,不建議使用,而要使用InitCommonControlsEx
Private Type tagInitCommonControlsEx
lngSize As Long
lngICC As Long
End Type
Private Declare Function InitCommonControlsEx Lib "comctl32.dll" _
(iccex As tagInitCommonControlsEx) As Boolean
Private Const ICC_USEREX_CLASSES = &H200
Public Function InitCommonControlsVB() As Boolean
On Error Resume Next
Dim iccex As tagInitCommonControlsEx
' Ensure CC available:
With iccex
.lngSize = LenB(iccex)
.lngICC = ICC_USEREX_CLASSES
End With
InitCommonControlsEx iccex
InitCommonControlsVB = (Err.Number = 0)
On Error GoTo 0
End Function
Sub Main()
InitCommonControlsVB
frmSplash.Show
delay 2
Unload frmSplash
End Sub
Sub delay(ByVal n As Single)
Dim tm1 As Single, tm2 As Single
tm1 = Timer
Do
tm2 = Timer
If tm2 < tm1 Then tm2 = tm2 + 86400
If tm2 - tm1 > n Then Exit Do
DoEvents
Loop
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -