Shell(pathname[,windowstyle])
pathname = path dari aplikasi yang ingin dijalankan
windowstyle = bersifat opsional, merupakan pengaturan bagaimana jendela aplikasi yang sudah dijalankan akan muncul di desktop
jenis-jenis nilai untuk parameter windowstyle :
vbHide = jendela aplikasi tidak tampak di desktop & taskbar, benar-benar tersembunyi
vbNormalFocus = jendela aplikasi muncul normal dengan fokus
vbMinimizedFocus = jendela aplikasi minimized dan mendapat fokus
vbMaximizedFocus = jendela aplikasi maximized dan mendapat fokus
vbNormalNoFocus = jendela aplikasi muncul normal tanpa fokus
vbMinimizedNoFocus = jendela aplikasi minimized dan tanpa fokus
windowstyle = bersifat opsional, merupakan pengaturan bagaimana jendela aplikasi yang sudah dijalankan akan muncul di desktop
jenis-jenis nilai untuk parameter windowstyle :
vbHide = jendela aplikasi tidak tampak di desktop & taskbar, benar-benar tersembunyi
vbNormalFocus = jendela aplikasi muncul normal dengan fokus
vbMinimizedFocus = jendela aplikasi minimized dan mendapat fokus
vbMaximizedFocus = jendela aplikasi maximized dan mendapat fokus
vbNormalNoFocus = jendela aplikasi muncul normal tanpa fokus
vbMinimizedNoFocus = jendela aplikasi minimized dan tanpa fokus
contoh kasus :
Private Sub Command1_Click()
a = Shell("C:\Program Files\Mozilla Firefox\firefox.exe", vbMaximizedFocus)
End Sub
a = Shell("C:\Program Files\Mozilla Firefox\firefox.exe", vbMaximizedFocus)
End Sub
maka ketika perintah tersebut kita jalankan maka ketika tombol command kita klik maka akan membuka mozilla dengan tampilan max window
silakan berkreasi sesuka teman teman
selamat mencoba
kalau 1 menit kemudian aplikasi yang dibuka tersebut mau ditutup lagi, bagaimana kodenya gan ?
BalasHapus