Check开机方式及Mouse Buttons个数

推荐使用1998

2016-02-19 16:51

图老师小编精心整理的Check开机方式及Mouse Buttons个数希望大家喜欢，觉得好的亲们记得收藏起来哦！您的支持就是小编更新的动力~

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As LongConst SM_CMOUSEBUTTONS = 43Const SM_CLEANBOOT = 67Private Sub Form_Load()Dim mode As LongDim NumbButtons As Longmode = GetSystemMetrics(SM_CLEANBOOT)Select Case modeCase 1　 Debug.Print "The System is in Safe Mode"Case 2　 Debug.Print "Fail-safe with network boot"Case 0　 Debug.Print "Normal Mode"End SelectNumbButtons = GetSystemMetrics(SM_CMOUSEBUTTONS)Debug.Print "Number of Mouse Buttons :"; NumbButtonsEnd Sub

展开更多（50%）