Selasa, 02 Agustus 2011

Cara Menampilkan Default Dialog Windows (Open With,Desktop Properties,Floppy Disk) VB6

Berikut ini adalah cara menampilkan kotak dialog untuk memformat disket, mengcopy disk ke disk, dan membuka suatu file tertentu dengan menggunakan program yang diinginkan oleh user di visual basic 6, untuk mempraktekannya siapkan :
1. Buat 1 Project baru dengan 1 Form dan 7 Commandbutton
2. Copy-kan coding berikut ke editor form yang bertalian.

          Private Sub Command1_Click
            'Membuka kotak Format Dialog
            Call SHELL("rundll32.exe shell32.dll,SHFormatDrive")
          End Sub

          Private Sub Command2_Click
            'Membuka kotak Copy Disk To Disk Dialog
            Call SHELL("rundll32.exe diskcopy.dll,DiskCopyRunDll 0,0", 1)
            'Keterangan: 0 yg pertama = dari drive yang mana
            '            0 yg kedua   = ke drive yang mana
            '            0 = drive a: ; 1 = drive b:
          End Sub


          Private Sub Command3_Click
            'Membuka dengan (user memilih dengan program yang mana untuk membuka file yg dipilih)
            SHELL ("rundll32.exe shell32.dll,OpenAs_RunDLL c:\autoexec.bat")

          End Sub

          Private Sub Command4_Click
            'Menampilkan Properties, Background Tab
            Call SHELL("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0", 1)
          End Sub

          Private Sub Command5_Click
            'Menampilkan Properties, Screen Saver Tab
            Call SHELL("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1", 1)
          End Sub

          Private Sub Command6_Click
            'Menampilkan Properties, Appearance Tab
            Call SHELL("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2", 1)
          End Sub

          Private Sub Command7_Click
            'Menampilkan Properties, Settings Tab
            Call SHELL("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3", 1)
          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

Ditulis Oleh : Wahyu Aji // 18.03
Kategori:

0 komentar:

Posting Komentar