?? module8.bas
字號(hào):
Attribute VB_Name = "Module8"
Dim rI, rpW
Dim rflag As Boolean
Public Function Rp() As Boolean
rI = GetDriveInfo("c:\", GETDI_SERIAL)
rpW = Left(rI, 4)
rpW = rpW * 18999
rpW = Left(rpW, 5)
Dim str1
str1 = GetSetting(appname:="MyApp", Section:="Textpass1_2", Key:="Value", Default:="0")
If str1 = rpW Then
Rp = True
Else
Rp = False
End If
End Function
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -