Visual Basic Free

Cara menghilangkan taskbar windows .

Okelah kalau begitu saya akan
lanjutkan tentang coding nya
bagi yang tertarik silakan
ikuti langkah - langkah
berikut ... Tambahkan tiga buah
CommandButton diproject,
masing-masing dengan nama :
cmdTaskbar, cmdStartButton
dan cmdSystemClock Tambahkan satu buah Module ' Tempatkan Coding dibawah
ini pada Module Public Declare Function
ShowWindow Lib
"user32" (ByVal hwnd As
Long, ByVal nCmdShow As
Long) As Long
Public Declare Function FindWindow Lib "user32"
Alias "FindWindowA" (ByVal
lpClassName As String, ByVal
lpWindowName As String) As
Long
Public Declare Function GetDlgItem Lib
"user32" (ByVal hDlg As Long,
ByVal nIDDlgItem As Long)
As Long
Public TaskBarStyle As
Boolean, StartButtonStyle As Boolean, SystemClockStyle As
Boolean
Public Const StartButtonID =
&H130
Public Const SystemClockID =
&H12F Public Const SW_HIDE = 0
Public Const SW_SHOW = 5 Public Sub HideTaskBar()
Dim wClassName As String
Dim hwndTaskbar As Long
wClassName = "Shell_
TrayWnd"
hwndTaskbar = FindWindow (wClassName, vbNullString)
If TaskBarStyle = False Then
Form1.cmdTaskbar.Caption =
"Show Taskbar"
ShowWindow hwndTaskbar,
SW_HIDE TaskBarStyle = True
Else
Form1.cmdTaskbar.Caption =
"Hide Taskbar"
ShowWindow hwndTaskbar,
SW_SHOW TaskBarStyle = False
End If
End Sub Public Sub HideStartButton()
Dim wClassName As String
Dim hwndTaskbar As Long,
hwndStartbutton As Long
wClassName = "Shell_
TrayWnd" hwndTaskbar = FindWindow
(wClassName, vbNullString)
hwndStartbutton =
GetDlgItem(hwndTaskbar,
StartButtonID)
If StartButtonStyle = False Then
Form1.cmdStartButton.Caption
= "Show Start Button"
ShowWindow
hwndStartbutton, SW_HIDE
StartButtonStyle = True Else
Form1.cmdStartButton.Caption
= "Hide Start Button"
ShowWindow
hwndStartbutton, SW_SHOW
StartButtonStyle = False End If
End Sub Public Sub HideSystemClock()
Dim wClassName As String
Dim hwndTaskbar As Long,
hwndSystemClock As Long
wClassName = "Shell_
TrayWnd" hwndTaskbar = FindWindow
(wClassName, vbNullString)
hwndSystemClock =
GetDlgItem(GetDlgItem
(hwndTaskbar,
SystemClockID), SystemClockID)
If SystemClockStyle = False
Then
Form1.cmdSystemClock.Caption
= "Show System Colock"
ShowWindow hwndSystemClock, SW_HIDE
SystemClockStyle = True
Else
Form1.cmdSystemClock.Caption
= "Hide System Clock"
ShowWindow hwndSystemClock, 5
SystemClockStyle = False
End If
End Sub Public Sub SetToDefault()
TaskBarStyle = True
StartButtonStyle = True
SystemClockStyle = True
HideTaskBar
HideStartButton HideSystemClock
End Sub ' Tempatkan Coding dibawah
ini pada Form Project Private Sub cmdStartButton_
Click()
HideStartButton
End Sub Private Sub cmdSystemClock_
Click()
HideSystemClock
End Sub Private Sub cmdTaskbar_Click
()
HideTaskBar
End Sub Private Sub Form_Load()
cmdTaskbar.Caption = "Hide
TaskBar"
cmdStartButton.Caption =
"Hide Start Button"
cmdSystemClock.Caption = "Hide System Clock"
End Sub Private Sub Form_Unload
(Cancel As Integer)
SetToDefault
End Sub Mudah - mudahan Tips ini ada
mamfaat nya bagi kita semua
dan VB Developer khususnya,
semoga tidak digunakan
untuk menjahili teman atau
orang lain. Kalau ada kesempatan dan waktu kita
akan ketemu dengan Tips -
Trik berikutnya .. terima
kasih.

Wew. . .
Apa kabar clon programer ?

Hy Calon Programmer,
Sudah di postingkan yang terbaru dari visual basic free, silahkan lihat di >> http://visualbasicfree.blogspot.com/2012/06/cara-membuat-file-setup-installer-di.html
Silah kan di lian ya

Cara membuat file setup installer di Visual Basic | Source Code Visual Basic

Visual Basic Free Gratis Belajar Visual Basic dari Agus Saputra Sijabat

Hello programmer . .
Slamat tdur ya . .

Sahabat saya yang saya kasihi .
Tahukah anda cara form login dengan visual basic ? .
Atau anda belum tahu apa itu form login ?
Form login yaitu, dimana anda membuka sebuah program akan ada tampilan seperti minta masukkan password dan username .

Nah, kali ini kita belajar membuatnya dengan bantuan otak saya .
Hahahaha :D

pertama-tama, yg kita bthkan adalah M.Visual Basic 6.
Lalu buat 1 buah form dngn 2 label , 2 text box dan 1 buah command button .

Selanjutnya buat label1 se baris dngan text1
dan label2 sebaris dengan text2.
Dan command1 di bwh text2 .

Sekarang mulai kita setting .
Label1 .
-caption = user
label2 .
-caption = password
text1
-caption = kosongkan aja
text2
-caption =kosongkan aja
- passwordchar = *
command1
-caption = login

selesai setting, skrang kita masukkan codenya .

Masukkan code ini di command1

if text1.Text = "jabat" and text2.Text = "agus" then
msgbox "anda berhasil login", vbinformation,"sukses"
form2.Show
unload me
else
msgbox "password anda salah ", vbinformation,"error"
text1.Text = ""
text2.Text = ""
end if

selesai deh . . .

Nb : kata "agus" dan "jabat" dapat di tukar dngan password yg anda inginkan .
Perhatikan juga kata form2.Show .
Kata form2 dapat di ganti dengan nma form yg akan di tampilkan setelah memasukkan password dengan benar .
Contoh :
cmdmain.Show
maka form dari cmdmain akan tampil .

Selamat mencoba .

Selamat pagi .

Selamat datang di Visual Basic Indonesia gratis