We are Just Computer Freaker
 
IndeksPencarianPendaftaranLogin
Login
Username:
Password:
Login otomatis: 
:: Lupa password?

Share | 
 

 Memanggil File Executeable menggunakan Common Dialog

Go down 
PengirimMessage
Mhc_Shadow
Neophyte
Neophyte


Jumlah posting : 156
Join date : 10.04.11

PostSubyek: Memanggil File Executeable menggunakan Common Dialog   Thu 13 Oct 2011 - 0:42

Tambahkan icon Common Dialog dan Command Button pada Form yang sudah tersedia.
Jika icon Common Dialog tersebut belum ada di toolbox, maka kita harus menambahkan / mengaktifkan komponen Microsoft Common Dialog 6.0 (SP3) yang ada pada sub menu Components

Tambahkan kode fungsi API ke jendela kode :

Code:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Const SW_HIDE = 0

masukan kode di bawah ke dalam sub command1_click() :

Code:
Dim result As Long
CommonDialog1.Filter = "File Executable|*.exe"
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then
Exit Sub
Else
result = ShellExecute(Me.hwnd, "open", (CommonDialog1.FileName), "", "", SW_HIDE)
End If
Kembali Ke Atas Go down
 
Memanggil File Executeable menggunakan Common Dialog
Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» Ramalan Dunia Dari Tahun 2010 Sampai 5079
» (ask)helm terjangkau
» Jumlah busi yang dipake sama ninja 250
» Kondom tangki atau Tank pad ?

Permissions in this forum:Anda tidak dapat menjawab topik
Cry Ant Crew :: Information Technology :: Programming :: Visual Basic-
Navigasi: