📄 control panel.frm
字号:
VERSION 4.00
Begin VB.Form ControlPanel
BorderStyle = 3 'Fixed Dialog
Caption = "Control Panel"
ClientHeight = 3615
ClientLeft = 2385
ClientTop = 1830
ClientWidth = 5445
Height = 4020
Icon = "Control Panel.frx":0000
Left = 2325
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3615
ScaleWidth = 5445
ShowInTaskbar = 0 'False
Top = 1485
Width = 5565
Begin VB.CommandButton Control
Caption = "Control &Panel"
Height = 375
Left = 2640
TabIndex = 31
Top = 3120
Width = 1575
End
Begin VB.CommandButton Cancel
Caption = "&Cancel"
Height = 375
Left = 4320
TabIndex = 30
Top = 3120
Width = 975
End
Begin VB.PictureBox Icon
BorderStyle = 0 'None
Height = 495
Index = 14
Left = 4560
Picture = "Control Panel.frx":000C
ScaleHeight = 495
ScaleWidth = 495
TabIndex = 28
Top = 1920
Width = 495
End
Begin VB.PictureBox Icon
BorderStyle = 0 'None
Height = 495
Index = 13
Left = 3480
Picture = "Control Panel.frx":044E
ScaleHeight = 495
ScaleWidth = 495
TabIndex = 26
Top = 1920
Width = 495
End
Begin VB.PictureBox Icon
BorderStyle = 0 'None
Height = 495
Index = 12
Left = 2400
Picture = "Control Panel.frx":0890
ScaleHeight = 495
ScaleWidth = 495
TabIndex = 24
Top = 1920
Width = 495
End
Begin VB.PictureBox Icon
BorderStyle = 0 'None
Height = 495
Index = 11
Left = 1320
Picture = "Control Panel.frx":0CD2
ScaleHeight = 495
ScaleWidth = 495
TabIndex = 22
Top = 1920
Width = 495
End
Begin VB.PictureBox Icon
BorderStyle = 0 'None
Height = 495
Index = 10
Left = 240
Picture = "Control Panel.frx":0FDC
ScaleHeight = 495
ScaleWidth = 495
TabIndex = 20
Top = 1920
Width = 495
End
Begin VB.PictureBox Icon
BorderStyle = 0 'None
Height = 495
Index = 9
Left = 4560
Picture = "Control Panel.frx":141E
ScaleHeight = 495
ScaleWidth = 495
TabIndex = 18
Top = 1080
Width = 495
End
Begin VB.PictureBox Icon
BorderStyle = 0 'None
Height = 495
Index = 8
Left = 3480
Picture = "Control Panel.frx":1860
ScaleHeight = 495
ScaleWidth = 495
TabIndex = 16
Top = 1080
Width = 495
End
Begin VB.PictureBox Icon
BorderStyle = 0 'None
Height = 495
Index = 7
Left = 2400
Picture = "Control Panel.frx":1B6A
ScaleHeight = 495
ScaleWidth = 495
TabIndex = 14
Top = 1080
Width = 495
End
Begin VB.PictureBox Icon
BorderStyle = 0 'None
Height = 495
Index = 6
Left = 1320
Picture = "Control Panel.frx":1FAC
ScaleHeight = 495
ScaleWidth = 495
TabIndex = 12
Top = 1080
Width = 495
End
Begin VB.PictureBox Icon
BorderStyle = 0 'None
Height = 495
Index = 5
Left = 240
Picture = "Control Panel.frx":23F6
ScaleHeight = 495
ScaleWidth = 495
TabIndex = 10
Top = 1080
Width = 495
End
Begin VB.PictureBox Icon
BorderStyle = 0 'None
Height = 495
Index = 4
Left = 4560
Picture = "Control Panel.frx":2838
ScaleHeight = 495
ScaleWidth = 495
TabIndex = 8
Top = 120
Width = 495
End
Begin VB.PictureBox Icon
BorderStyle = 0 'None
Height = 495
Index = 3
Left = 3480
Picture = "Control Panel.frx":4FDA
ScaleHeight = 495
ScaleWidth = 495
TabIndex = 6
Top = 120
Width = 495
End
Begin VB.PictureBox Icon
BorderStyle = 0 'None
Height = 495
Index = 2
Left = 2400
Picture = "Control Panel.frx":541C
ScaleHeight = 495
ScaleWidth = 495
TabIndex = 4
Top = 120
Width = 495
End
Begin VB.PictureBox Icon
BorderStyle = 0 'None
Height = 495
Index = 1
Left = 1320
Picture = "Control Panel.frx":585E
ScaleHeight = 495
ScaleWidth = 495
TabIndex = 2
Top = 120
Width = 495
End
Begin VB.PictureBox Icon
BorderStyle = 0 'None
Height = 495
Index = 0
Left = 240
Picture = "Control Panel.frx":5CA0
ScaleHeight = 495
ScaleWidth = 495
TabIndex = 0
Top = 120
Width = 495
End
Begin VB.Label Iconname
Alignment = 2 'Center
Caption = "System"
Height = 255
Index = 14
Left = 4320
TabIndex = 29
Top = 2400
Width = 975
End
Begin VB.Label Iconname
Alignment = 2 'Center
Caption = "Sounds"
Height = 255
Index = 13
Left = 3240
TabIndex = 27
Top = 2400
Width = 975
End
Begin VB.Label Iconname
Alignment = 2 'Center
Caption = "Regional Settings"
Height = 495
Index = 12
Left = 2160
TabIndex = 25
Top = 2400
Width = 975
End
Begin VB.Label Iconname
Alignment = 2 'Center
Caption = "Passwords"
Height = 255
Index = 11
Left = 1080
TabIndex = 23
Top = 2400
Width = 975
End
Begin VB.Label Iconname
Alignment = 2 'Center
Caption = "Network"
Height = 255
Index = 10
Left = 0
TabIndex = 21
Top = 2400
Width = 975
End
Begin VB.Label Iconname
Alignment = 2 'Center
Caption = "Multimedia"
Height = 255
Index = 9
Left = 4320
TabIndex = 19
Top = 1560
Width = 975
End
Begin VB.Label Iconname
Alignment = 2 'Center
Caption = "Mouse"
Height = 255
Index = 8
Left = 3240
TabIndex = 17
Top = 1560
Width = 975
End
Begin VB.Label Iconname
Alignment = 2 'Center
Caption = "Modems"
Height = 255
Index = 7
Left = 2160
TabIndex = 15
Top = 1560
Width = 975
End
Begin VB.Label Iconname
Alignment = 2 'Center
Caption = "Keyboard"
Height = 255
Index = 6
Left = 1080
TabIndex = 13
Top = 1560
Width = 975
End
Begin VB.Label Iconname
Alignment = 2 'Center
Caption = "Joystick"
Height = 255
Index = 5
Left = 0
TabIndex = 11
Top = 1560
Width = 975
End
Begin VB.Label Iconname
Alignment = 2 'Center
Caption = "Internet"
Height = 255
Index = 4
Left = 4320
TabIndex = 9
Top = 600
Width = 975
End
Begin VB.Label Iconname
Alignment = 2 'Center
Caption = "Display"
Height = 255
Index = 3
Left = 3240
TabIndex = 7
Top = 600
Width = 975
End
Begin VB.Label Iconname
Alignment = 2 'Center
Caption = "Date/Time"
Height = 255
Index = 2
Left = 2160
TabIndex = 5
Top = 600
Width = 975
End
Begin VB.Label Iconname
Alignment = 2 'Center
Caption = "Add/Remove Programs"
Height = 495
Index = 1
Left = 1080
TabIndex = 3
Top = 600
Width = 975
End
Begin VB.Label Iconname
Alignment = 2 'Center
Caption = "Add New Hardware"
Height = 375
Index = 0
Left = 0
TabIndex = 1
Top = 600
Width = 975
End
End
Attribute VB_Name = "ControlPanel"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Private Sub Cancel_Click()
Unload Me 'exit the program
End Sub
Private Sub Control_Click()
Call ControlPanels("C:\Windows\Control.Exe")
End Sub
Private Sub Form_Load()
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 'centre the form on the screen
'This project was downloaded from
'
'http://www.brianharper.demon.co.uk/
'
'Please use this project and all of its source code however you want.
'
'UNZIPPING
'To unzip the project files you will need a 32Bit unzipper program that
'can handle long file names. If you have a latest copy of Winzip installed
'on your system then you may use that. If you however dont have a copy,
'then visit my web site, go into the files section and from there you can
'click on the Winzip link to goto their site and download a copy of the
'program. By doing this you will now beable to unzip the project files
'retaining their proper long file names.
'Once upzipped, load up your copy of Visual Basic and goto
'File/Open Project. Locate the project files to where ever you unzipped
'them, then click Open. The project files will be loaded and are now ready
'for use.
'
'THE PROJECT
'This project can be VERY useful if your programming an application that needs
'the user of your program to configure their systems hardware or properties in
'some way. It uses very basic Visual Basic functions to execute the desired
'control panel applete.
'
'NOTES
'I have only provided the necessary project files with the zip. This keeps
'the size of the zip files down to a minimum and enables me to upload more
'prjects files to my site.
'
'I hope you find the project usful in what ever you are programming. I
'have tried to write out a small explanation of what each line of code
'does in the project, although most of it is pretty simple to understand.
'
'If you find any bugs in the code then please dont hesitate to Email me and
'I will get back to you as soon as possible. If you however need help on a
'different matter concerning Visual Basic then please please Email me as
'I like to here from people and here what they are programming.
'
'My Email address is:
'Brian@brianharper.demon.co.uk
'
'My web site is:
'http://www.brianharper.demon.co.uk/
'
'Please visit my web site and find many other useful projects like this.
'
End Sub
Private Sub Icon_Click(Index As Integer)
If Index = 0 Then
Call ControlPanels("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1")
ElseIf Index = 1 Then
Call ControlPanels("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1")
ElseIf Index = 2 Then
Call ControlPanels("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl")
ElseIf Index = 3 Then
Call ControlPanels("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0")
ElseIf Index = 4 Then
Call ControlPanels("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,0")
ElseIf Index = 5 Then
Call ControlPanels("rundll32.exe shell32.dll,Control_RunDLL joy.cpl")
ElseIf Index = 6 Then
Call ControlPanels("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1")
ElseIf Index = 7 Then
Call ControlPanels("rundll32.exe shell32.dll,Control_RunDLL modem.cpl")
ElseIf Index = 8 Then
Call ControlPanels("rundll32.exe shell32.dll,Control_RunDLL main.cpl @0")
ElseIf Index = 9 Then
Call ControlPanels("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0")
ElseIf Index = 10 Then
Call ControlPanels("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl")
ElseIf Index = 11 Then
Call ControlPanels("rundll32.exe shell32.dll,Control_RunDLL password.cpl")
ElseIf Index = 12 Then
Call ControlPanels("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0")
ElseIf Index = 13 Then
Call ControlPanels("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1")
ElseIf Index = 14 Then
Call ControlPanels("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0")
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -