Background Form dengan Wallpaper

Background form pada Visual Basic bisa dibuat dari file gambar extensi .jpg / .tif dan sebagainya. Namun pada kesempatan ini akan kita coba membuat background pada form menggunakan wallpaper pada komputer Anda.

Buat form dengan nama form1 dan buat command button dengan nama command1 dan ketikkan program di bawah ini :

Private Declare Function PaintDesktop Lib “user32″ (ByVal hdc as Long) as Long
Private Sub Command1_Click()
PaintDesktop Form1.hdc
End Sub

Setelah selesai Run (F5) program tersebut, kemudian klik command1, maka background form tersebut akan berisi wallpaper. Selamat mencoba.

Menonaktifkan Ctrl+Alt+Del pada Windows 98

Suatu ketika, task manager komputer saya mati. Ketika saya menekan ctrl+alt+del kok tidak hidup, kenapa? Ternyata komputer saya terkena virus yang menyebabkan fungsi tersebut dimatikan. Di sini akan saya bahas bagaimana menghilangkan / mematikan fungsi Ctrl+Alt+Del dengan Visual Basic 6.0 dan bagaimana pula menghidupkan kembali fungsi tersebut.

Buat sebuah form dan masukkan 2 buah command button dan beri nama command1 (caption : Matikan ) dan command2 (Caption : Hidupkan). Tulis atau copy paste program di bawah ini :

Option explicit
Private Declare Function System ParametersInfoLib(“User32″ Alias “SystemParametersInfoA” (ByVal uAction As Long, ByVal uParam as Long, lpvParam As Any, ByVal fuWinIni As Long)

Private Command1_click()
‘Tombol tidak aktif
Dim IngRet As Long
Dim blnPrevValue as Bolean
lngRetVal=SystemParametersInfo (SPI_SCREENSAVERRUNNING,true, blnPrevValue,0&amp)
End Sub

Private Command2_click()
‘Tombol mati
Dim IngRet As Long
Dim blnPrevValue as Bolean
lngRetVal=SystemParametersInfo (SPI_SCREENSAVERRUNNING,flase, blnPrevValue,0&)
End Sub

Selamat mencoba!

Menghilangkan kursor mouse dengan Visual Basic 6.0

Tulisan pertama pada pemrogaraman VB 6.0 ini, akan membuat sebuah tip bagaimana cara menghilangkan kursor mouse. Caranya sebagai berikut :

1. Buat sebuah modul dengan nama modul1
2. Buat sebuah form dengan nama form1
3. Buat command button dengan nama command1

Klik ganda (open) modul1 dan tuliskan kode di bawah ini :
Public Declare Function ShowCursor Lib “user32″ (by Val bShow as Long) as Long
Kemudian buka jendela form1 ketikan kode program di bawah ini :

Private Sub Command1 _Click()
Hasil=ShowCursor(False) ‘ menghilangkan kursor
end sub

Selamat mencoba.