玄関へお回り下さい。
コントロールパネル及びコントロールパネル内の各メニューを開く（20個）    (SNo.074)

１ ．コントロールパネルを表示する
２ ．コントロールパネルのインターネットオプション(プロパティ)を表示
３ ．コントロールパネルのキーボードを表示
４ ．コントロールパネルのゲームコントローラーを表示
５ ．コントロールパネルのサウンドとオーディオデバイスを表示
６ ．コントロールパネルのシステムを表示
７ ．コントロールパネルのスキャナーとカメラを表示
８ ．コントロールパネルのネットワーク接続を表示(windows2000〜)
９ ．コントロールパネルのハードウェアの追加を表示(windows2000〜)
10．コントロールパネルのフォントを表示
11．コントロールパネルのプリンターとFAXを表示
12．コントロールパネルのプログラムの追加と削除を表示
13．コントロールパネルのマウスを表示
14．コントロールパネルのユーザーアカウントを表示(windows2000〜)
15．コントロールパネルのユーザー補助のオプションを表示
16．コントロールパネルの画面を表示
17．コントロールパネルの地域と言語のオプションを表示
18．コントロールパネルの電源オプションを表示
19．コントロールパネルの電話とモデムのオプションを表示
20．コントロールパネルの日付と時刻を表示
使用コントロール Button1  〜　Button20
その他条件 WindowsXP(Vista)　Visual Basic 2005(VB2008)
　
１ ．コントロールパネルを表示する
Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
'コントロールパネルを表示する
    Call Shell("CONTROL.EXE", AppWinStyle.NormalFocus)
End Sub

２ ．コントロールパネルのインターネットオプション(プロパティ)を表示
Private Sub Button2_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button2.Click
'コントロールパネルのインターネットオプション(プロパティ)を表示
    Call Shell("CONTROL.EXE Inetcpl.cpl", AppWinStyle.NormalFocus)
End Sub

３ ．コントロールパネルのキーボードを表示
Private Sub Button3_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button3.Click
'コントロールパネルのキーボードを表示
    Call Shell("CONTROL.EXE keyboard", AppWinStyle.NormalFocus)
End Sub

４ ．コントロールパネルのゲームコントローラーを表示
Private Sub Button4_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button4.Click
'コントロールパネルのゲームコントローラーを表示
    Call Shell("CONTROL.EXE Joy.cpl", AppWinStyle.NormalFocus)
End Sub

５ ．コントロールパネルのサウンドとオーディオデバイスを表示
Private Sub Button5_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button5.Click
'コントロールパネルのサウンドとオーディオデバイスを表示
    Call Shell("CONTROL.EXE mmsys.cpl", AppWinStyle.NormalFocus)
End Sub

６ ．コントロールパネルのシステムを表示
Private Sub Button6_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button6.Click
'コントロールパネルのシステムを表示
    Call Shell("CONTROL.EXE sysdm.cpl", AppWinStyle.NormalFocus)
End Sub

７ ．コントロールパネルのスキャナーとカメラを表示
Private Sub Button7_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button7.Click
'コントロールパネルのスキャナーとカメラを表示
    Call Shell("CONTROL.EXE sticpl.cpl", AppWinStyle.NormalFocus)
End Sub

８ ．コントロールパネルのネットワーク接続を表示(windows2000〜)
Private Sub Button8_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button8.Click
'コントロールパネルのネットワーク接続を表示(windows2000〜)
    Call Shell("CONTROL.EXE ncpa.cpl", AppWinStyle.NormalFocus)
End Sub

９ ．コントロールパネルのハードウェアの追加を表示(windows2000〜)
Private Sub Button9_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button9.Click
'コントロールパネルのハードウェアの追加を表示(windows2000〜)
    Call Shell("CONTROL.EXE hdwwiz.cpl", AppWinStyle.NormalFocus)
End Sub

10．コントロールパネルのフォントを表示
Private Sub Button10_Click(ByVal sender As System.Object, _
             　            ByVal e As System.EventArgs) Handles Button10.Click
'コントロールパネルのフォントを表示
    Call Shell("CONTROL.EXE fonts", AppWinStyle.NormalFocus)
End Sub
11．コントロールパネルのプリンターとFAXを表示
Private Sub Button11_Click(ByVal sender As System.Object, _
                 　        ByVal e As System.EventArgs) Handles Button11.Click
'コントロールパネルのプリンターとFAXを表示
    Call Shell("CONTROL.EXE printers", AppWinStyle.NormalFocus)
End Sub

12．コントロールパネルのプログラムの追加と削除を表示
Private Sub Button12_Click(ByVal sender As System.Object, _
                   　      ByVal e As System.EventArgs) Handles Button12.Click
'コントロールパネルのプログラムの追加と削除を表示
    Call Shell("CONTROL.EXE appwiz.cpl", AppWinStyle.NormalFocus)
End Sub

13．コントロールパネルのマウスを表示
Private Sub Button13_Click(ByVal sender As System.Object, _
                     　    ByVal e As System.EventArgs) Handles Button13.Click
'コントロールパネルのマウスを表示
    Call Shell("CONTROL.EXE main.cpl", AppWinStyle.NormalFocus)
End Sub

14．コントロールパネルのユーザーアカウントを表示(windows2000〜)
Private Sub Button14_Click(ByVal sender As System.Object, _
                       　  ByVal e As System.EventArgs) Handles Button14.Click
'コントロールパネルのユーザーアカウントを表示(windows2000〜)
    Call Shell("CONTROL.EXE nusrmgr.cpl", AppWinStyle.NormalFocus)
End Sub

15．コントロールパネルのユーザー補助のオプションを表示
Private Sub Button15_Click(ByVal sender As System.Object, _
                   　      ByVal e As System.EventArgs) Handles Button15.Click
'コントロールパネルのユーザー補助のオプションを表示
    Call Shell("CONTROL.EXE access.cpl", AppWinStyle.NormalFocus)
End Sub

16．コントロールパネルの画面を表示
Private Sub Button16_Click(ByVal sender As System.Object, _
                     　    ByVal e As System.EventArgs) Handles Button16.Click
'コントロールパネルの画面を表示
    Call Shell("CONTROL.EXE desk.cpl", AppWinStyle.NormalFocus)
End Sub

17．コントロールパネルの地域と言語のオプションを表示
Private Sub Button17_Click(ByVal sender As System.Object, _
                       　  ByVal e As System.EventArgs) Handles Button17.Click
'コントロールパネルの地域と言語のオプションを表示
    Call Shell("CONTROL.EXE intl.cpl", AppWinStyle.NormalFocus)
End Sub

18．コントロールパネルの電源オプションを表示
Private Sub Button18_Click(ByVal sender As System.Object, _
          　               ByVal e As System.EventArgs) Handles Button18.Click
'コントロールパネルの電源オプションを表示
    Call Shell("CONTROL.EXE powercfg.cpl", AppWinStyle.NormalFocus)
End Sub

19．コントロールパネルの電話とモデムのオプションを表示
Private Sub Button19_Click(ByVal sender As System.Object, _
            　             ByVal e As System.EventArgs) Handles Button19.Click
'コントロールパネルの電話とモデムのオプションを表示
    Call Shell("CONTROL.EXE telephon.cpl", AppWinStyle.NormalFocus)
End Sub

20．コントロールパネルの日付と時刻を表示
Private Sub Button20_Click(ByVal sender As System.Object, _
              　           ByVal e As System.EventArgs) Handles Button20.Click
'コントロールパネルの日付と時刻を表示
    Call Shell("CONTROL.EXE timedate.cpl", AppWinStyle.NormalFocus)
End Sub





2005/10/04


VBレスキュー(花ちゃん)
VB.NET2003　　VB2005