Selasa, 02 Agustus 2011

Show Properties Dialog Of File VB6

Berikut ini adalah cara menampilkan properties dialog suatu file di visual basic 6, untuk mempraktekannya siapkan :
1. Buat 1 Project baru dengan 1 Form, 1 Module, dan 1 Commandbutton.]
2. Copy-kan coding berikut ke dalam editor Module/Form ybt.

          '--- Coding ini di Module...
          Type SHELLEXECUTEINFO

            cbSize As Long
            fMask As Long
            hwnd As Long
            lpVerb As String

            lpFile As String
            lpParameters As String
            lpDirectory As String
            nShow As Long

            hInstApp As Long
            lpIDList As Long
            lpClass As String
            hkeyClass As Long
            dwHotKey As Long

            hIcon As Long
            hProcess As Long
          End Type


          Public Const SEE_MASK_INVOKEIDLIST = &HC
          Public Const SEE_MASK_NOCLOSEPROCESS = &H40
          Public Const SEE_MASK_FLAG_NO_UI = &H400
          Declare Function ShellExecuteEX Lib "shell32.dll" Alias _

          "ShellExecuteEx" (SEI As SHELLEXECUTEINFO) As Long
          '--- Akhir coding di Module...

          '--- Coding ini di Form
          Public Sub ShowProps(FileName As String, OwnerhWnd As Long)

          Dim SEI As SHELLEXECUTEINFO
          Dim r As Long
            With SEI
              .cbSize = Len(SEI)

              .fMask = SEE_MASK_NOCLOSEPROCESS Or _
              SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI
              .hwnd = OwnerhWnd
              .lpVerb = "properties"

              .lpFile = FileName
              .lpParameters = vbNullChar
              .lpDirectory = vbNullChar
              .nShow = 0
              .hInstApp = 0

              .lpIDList = 0
            End With
            r = ShellExecuteEX(SEI)
          End Sub


          Private Sub Command1_Click()
            'Ganti 'c:\autoexec.bat' dengan nama file yang Anda ingin lihat kotak
            'dialog property-nya...

            Call ShowProps("c:\autoexec.bat", Me.hwnd)
          End Sub
          '--- Akhir coding di Form...

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 // 17.47
Kategori:

0 komentar:

Posting Komentar