VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >

  • vb教程之获得Windows启动方式

在Form1中加入一个CommandButton、一个Label并加入如下代码 
Option Explicit 

Private Declare Function GetSystemMetrics Lib "user32" _ 
(ByVal nIndex As Long) As Long 

Const SM_CLEANBOOT = 67 

Private Sub Command1_Click() 
Select Case GetSystemMetrics(SM_CLEANBOOT) 
Case 1: Label1 = "安全模式." 
Case 2: Label1 = "支持网络的安全模式." 
Case Else: Label1 = "Windows运行在普通模式." 
End Select 
End Sub 
点击Command1就可以看到Windows是以何种方式启动的。

相关教程