form1.frm

本文件包含200个visual baisc实例

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "启动控制面板"
   ClientHeight    =   4080
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6240
   LinkTopic       =   "Form1"
   Picture         =   "form1.frx":0000
   ScaleHeight     =   4080
   ScaleWidth      =   6240
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      Height          =   465
      Left            =   3210
      TabIndex        =   16
      Top             =   3435
      Width           =   1890
   End
   Begin VB.CommandButton Command1 
      Caption         =   "启动控制面板"
      Height          =   450
      Left            =   1245
      TabIndex        =   15
      Top             =   3435
      Width           =   1890
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Height          =   960
      Index           =   14
      Left            =   5100
      TabIndex        =   14
      Top             =   2145
      Width           =   945
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Height          =   945
      Index           =   13
      Left            =   3945
      TabIndex        =   13
      Top             =   2190
      Width           =   930
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Height          =   960
      Index           =   12
      Left            =   2610
      TabIndex        =   12
      Top             =   2160
      Width           =   945
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Height          =   945
      Index           =   11
      Left            =   1500
      TabIndex        =   11
      Top             =   2145
      Width           =   930
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Height          =   870
      Index           =   10
      Left            =   345
      TabIndex        =   10
      Top             =   2235
      Width           =   990
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Height          =   900
      Index           =   9
      Left            =   5040
      TabIndex        =   9
      Top             =   1110
      Width           =   1035
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Height          =   885
      Index           =   8
      Left            =   3945
      TabIndex        =   8
      Top             =   1215
      Width           =   840
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Height          =   885
      Index           =   7
      Left            =   2715
      TabIndex        =   7
      Top             =   1155
      Width           =   840
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Height          =   900
      Index           =   6
      Left            =   1425
      TabIndex        =   6
      Top             =   1080
      Width           =   1035
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Height          =   855
      Index           =   5
      Left            =   405
      TabIndex        =   5
      Top             =   1170
      Width           =   825
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Height          =   735
      Index           =   4
      Left            =   5070
      TabIndex        =   4
      Top             =   105
      Width           =   990
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Height          =   885
      Index           =   3
      Left            =   4050
      TabIndex        =   3
      Top             =   90
      Width           =   840
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Height          =   900
      Index           =   2
      Left            =   2820
      TabIndex        =   2
      Top             =   75
      Width           =   1035
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Height          =   855
      Index           =   1
      Left            =   1650
      TabIndex        =   1
      Top             =   120
      Width           =   825
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Height          =   735
      Index           =   0
      Left            =   300
      TabIndex        =   0
      Top             =   120
      Width           =   990
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
  Me.Picture = LoadPicture(App.Path & "\control.bmp")
End Sub

Private Sub Label1_Click(Index As Integer)
  Dim x
  Select Case Index
    Case 0            '打开 IE4 的设置窗口：
    x = Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl")
    Case 1            '打开 声音的设置窗口：
    x = Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1")
    Case 2            '启动日期和时间设置:
    x = Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl")
    Case 3           '启动显示设置面板:
    x = Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,")
    Case 4             '启动网络设置
    x = Shell("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl")
    Case 5            '启动多媒体设置
    x = Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0")
    Case 6            '启动辅助选项
    x = Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5")
    Case 7            '打开鼠标设置
    x = Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1")
    Case 8            '启动键盘设置
    x = Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @0")
    Case 9             '打开区域设置
    x = Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0")
    Case 10            '启动添加硬件设置
    x = Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1")
    Case 11            '启动添加软件设置
    x = Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1")
    Case 12            '打开系统设置
    x = Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0")
    Case 13           '启动调制解调器设置
    x = Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl")
    Case 14           '打开密码设置:
    x = Shell("rundll32.exe shell32.dll,Control_RunDLL password.cpl")
  End Select
End Sub
Private Sub Command1_Click()    '启动控制面板:
  Dim x
  x = Shell("rundll32.exe shell32.dll,Control_RunDLL", 1)
End Sub
Private Sub Command2_Click()
  End
End Sub