Cara Menampilkan Semua Menu Control Panel (CPL) dan Cara Membukanya VB6 | DASAR PROGRAMER

Cara Menampilkan Semua Menu Control Panel (CPL) dan Cara Membukanya VB6

Berikut ini adalah cara menampilkan semua menu control panel dan membukanya di visual basic 6, untuk mempraktekannya siapkan :
1. Buat 1 Project baru dengan 1 Form dan 22 commandbutton.
2. Copy-kan source code berikut ke dalam editor form ybt.

          Private Sub Command1_Click
            'Menampilkan Control Panel
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL", vbNormalFocus)
          End Sub

          Private Sub Command2_Click
            'Menampilkan Accessibility Properties
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl", vbNormalFocus)

          End Sub

          Private Sub Command3_Click
            'Menampilkan Add/Remove Programs
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl", vbNormalFocus)
          End Sub

          Private Sub Command4_Click
            'Menampilkan Display Settings (Background)
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0", vbNormalFocus)
          End Sub

          Private Sub Command5_Click
            'Menampilkan Display Settings (Screensaver)
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1", vbNormalFocus)
          End Sub

          Private Sub Command6_Click

            'Menampilkan the Display Settings (Appearance)
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2", vbNormalFocus)
          End Sub

          Private Sub Command7_Click
            'Menampilkan the Display Settings (Settings)
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3", vbNormalFocus)
          End Sub


          Private Sub Command8_Click
            'Menampilkan Internet Properties
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl", vbNormalFocus)
          End Sub

          Private Sub Command9_Click
            'Menampilkan Regional Settings
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl", vbNormalFocus)

          End Sub

          Private Sub Command10_Click
            'Menampilkan Joystick Settings
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL joy.cpl", vbNormalFocus)
          End Sub

          Private Sub Command11_Click
            'Menampilkan Mouse Settings

            Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @0", vbNormalFocus)
          End Sub

          Private Sub Command12_Click
            'Menampilkan Keyboard Settings
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1", vbNormalFocus)
          End Sub

          Private Sub Command13_Click
            'Menampilkan Printers
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @2", vbNormalFocus)
          End Sub

          Private Sub Command14_Click
            'Menampilkan Fonts

            Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @3", vbNormalFocus)
          End Sub

          Private Sub Command15_Click

            'Menampilkan Multimedia Settings
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl", vbNormalFocus)
          End Sub

          Private Sub Command16_Click
            'Menampilkan Modem Settings
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl", vbNormalFocus)
          End Sub

          Private Sub Command17_Click
            'Menampilkan Dial-Up Networking Wizard (pada Win9x)
            Call Shell("rundll32.exe rnaui.dll,RnaWizard", vbNormalFocus)
          End Sub

          Private Sub Command18_Click
            'Menampilkan System Properties
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl", vbNormalFocus)
          End Sub

          Private Sub Command19_Click
            'Menjalankan 'Add New Hardware' Wizard (pada Win9x)
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1", vbNormalFocus)
          End Sub

          Private Sub Command20_Click
            'Menampilkan 'Add New Printer' Wizard (pada Win9x)
            Call Shell("rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter", vbNormalFocus)
          End Sub

          Private Sub Command21_Click
            'Menampilkan Themes Settings
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL themes.cpl", vbNormalFocus)
          End Sub

          Private Sub Command22_Click
            'Menampilkan Time/Date Settings
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", vbNormalFocus)
          End Sub

Tags:
contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module
Jika Anda menyukai Artikel di blog ini, Silahkan klik disini untuk berlangganan gratis via email, dengan begitu Anda akan mendapat kiriman artikel setiap ada artikel yang terbit di dasarprogrammer.blogspot.com

0 komentar:

Posting Komentar