Senin, 14 April 2014
Trik VB Menutup Semua Program
Trik VB Menutup Semua Program - Yang instant memang yang banyak disukai orang. Sama halnya dengan komputer. Jika kita membuka beberapa program di windows, tentu harus satu per satu menutupnya. Tapi dengan trik vb berikut kalian bisa menutup semua program hanya mengklik tombol khusus. Bagaimana caranya?
Buat dulu sebuah form dan tambahkan 1 command button namailah dengan "Tutup Semua Program"
Untuk Declaration
Private Declare Function BroadcastSystemMessage _
Lib "user32" (ByVal dw As Long, pdw As Long, _
ByVal un As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long
Pendeklarasian variabel yang diperlukan
Const BSF_POSTMESSAGE = &H10
Const BSM_APPLICATIONS = &H8
Const WM_SYSCOMMAnd = &H112
Menutup aplikasi ketika Command1 di klik
Private Sub Command1_Click()
BroadcastSystemMessage BSF_POSTMESSAGE, _
BSM_APPLICATIONS, WM_SYSCOMMAnd, &HF060&, ByVal 0&
End Sub
*Sebenarnya kalian tinggal copas aja huruf2 yang dikasih warna merah di form yang sedang kalian buat.
--Selamat Mencoba--
CopyPaste Engkau Dimana
CopyPaste - Engkau Dimana. kembali hadir untuk memberikan informasi terbaru mengenai Musik. Postingan kali ini akan membahas mengenai band indie asal Cilacap, Jawa Tengah yaitu Copypaste. Walaupun belum setenar band-band indie lainnya di Indonesia, tetapi sudah banyak lagu-lagu yang mereka ciptakan, salah satunya yang "Engkau Dimana". Lagu ini sudah banyak beredar di daerah cilacap bahkan sampai kota tercintaku Purwokerto. Berikut Lirik beserta Video Klip lagu "Engkau Dimana" dari band Copypaste asal Cilacap ini.Copypaste - Engkau Dimana
saatku terbangun dalam indahnya mimpi
dia terlihat seperti bidadari
kuperlahan mendekati dirinya
mengejarnya dia menghilang dan pergi
berharap untukku dia kembali
berharap untukku dia kembali
reff:
engkau dimana aku disini
setia menunggu hingga kau datang lagi
engkau dimana tlah kucari-cari
berharap mimpi dapat terbukti
Video Klip bisa dilihat di bawah ini (bukan original)
Semoga Bermanfaat.. ^^
Langganan:
Postingan (Atom)