»» SolidTrustPay Wajib Bagi Anda Pebisnis Online ««


»» SolidTrustPay must for your online business ««

▬▬▬▬▬▬▬▬▬ஜ۩۞۩ஜ▬▬▬▬▬▬▬▬▬▬
»» WELCOME to DOFOLLOW BLOGs "17 January 2012"««
»» Computer & Software Technology Sharing Information««
▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬ஜ۩۞۩ஜ▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬
  • Logika "Run Control Panel Programs"

    Bagaimana sebenarnya windows dan filenya bekerja ? apa saja file-file yang berperan penting dalam mengeksekusi suatu aplikasi ? berikut secara sederhana alur program yang dirancang oleh Muhammad Javaid dari Pakistan menggunakan code pemograman visual basic.

    Author: Muhammad Javaid
    Category: Miscellaneous
    Type : Snippets
    Difficulty: Beginning
    email : Javaidshpk@yahoo.com
    Address : Hyderabad Pakistan


    Version Compatibility: Visual Basic 5 Visual Basic 6

    More information: This program is used to use the programs you can run from the control panel. See comments for more details.

    This code has been viewed 77205 times.

    Instructions: Copy the declarations and code below and paste directly into your VB project.


    ' Add all these lines or any of these into your command button to show these control panel icons.

    ' To Display the Control Panel
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL", _
    vbNormalFocus)

    ' To Display the Accessibility Properties
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl", vbNormalFocus)

    ' To Display Add/Remove Programs
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl", vbNormalFocus)

    'To Show the Display Settings Background Tab
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0", vbNormalFocus)

    ' To Show the Display Settings Screensaver Tab
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1", vbNormalFocus)

    'To Show the Display Settings Appearance Tab
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2", vbNormalFocus)

    'To Show the Display Settings (Settings Tab)
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3", vbNormalFocus)

    'To Display Internet Properties
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl", vbNormalFocus)

    'To Display Regional Settings
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl", vbNormalFocus)

    'To Display the Joystick Settings
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL joy.cpl", vbNormalFocus)

    'To Display the Mouse Settings
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @0", vbNormalFocus)

    'To Display the Keyboard Settings
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1", vbNormalFocus)

    'To Display Printers Settings
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @2", vbNormalFocus)

    'To Display Fonts
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @3", vbNormalFocus)

    'To Display Multimedia Settings
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl", vbNormalFocus)

    'To Display Modem Settings
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl", vbNormalFocus)

    'To Display Dial-Up Networking Wizard
    Call Shell("rundll32.exe rnaui.dll,RnaWizard", vbNormalFocus)

    'To Display System Properties
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl", vbNormalFocus)

    'To Run 'Add New Hardware' Wizard
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1", vbNormalFocus)

    'To Display 'Add New Printer' Wizard
    Call Shell("rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter", vbNormalFocus)

    'To Display Themes Settings
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL themes.cpl", vbNormalFocus)

    'To Display Time/Date Settings
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", vbNormalFocus)

    sumber : http://www.freevbcode.com

0 komentar:

Penting Menurut Anda ? Bantu Sebarkan ...
  • Share
  • [i]
Warning :
This articles is the property of http://www.tambelanblog.com
Copying and publishing any articles from our site to your websites is strictly NOT allowed


Protected by Copyscape Online Plagiarism Check

#################################################


.::Latest Comments

Recent Comments Widget

.::Search On This Blog

.::About us : Do Follow Blog !!

TambelanBlog, Care to Shared Do Follow Blog

.::Media

.::Translate This Page

Arabic Korean Japanese Chinese Simplified Russian Portuguese
English French German Spain Italian Dutch

.::Subscribe Now For Free

Our Readers

Your email here

Received Update for FREE:

Delivered by FeedBurner

.::Be My Circles

.::Popular Post by Readers

.::Follower to be Followed!

.::First Class Exchange Link!