[Share] Membuat Application windows

Tutorial Membuat Windows Locker Dan Membuat Form Mencari hari lahir

Hello World!
time for me to share how to make hotkeys windows locker..,,
and How to make form Looking for date / day of birth
ok to the point.!

1. How to make a hotkeys windows locker

Pertama-tama kamu siapkan dahulu checkBox sesuai kebutuhanmu
dan hotkeysnya :

[*] Hide Dekstop (win 9x, Nt, 2K, XP) beri namenya "Hide_Desktop" tanpa tanda kutip Remember "Name" Not Caption
Code :

Private Sub Hide_Desktop_Click()
If Me![Hide_Desktop] Then
Desktop_Show_Hide (False)
Else
Desktop_Show_Hide (True)
End If
End Sub



[*] Hide Start Button (Win 9x, NT, 2K, XP) beri namenya "Hide_StartButton" tanpa tanda kutip
Code :

Private Sub Hide_StartButton_Click()
If Me![Hide_StartButton] Then
StartButton_Show_Hide (False)
Else
StartButton_Show_Hide (True)
End If
End Sub



[*] Hide Taskbar (Win 9x, NT, 2K, XP) beri namenya "Hide_Taskbar"
code :

Private Sub Hide_Taskbar_Click()
If Me![Hide_Taskbar] Then
Taskbar_Show_Hide (False)
Else
Taskbar_Show_Hide (True)
End If
End Sub



[*] Hide System Clock (Win 9x, NT, 2K, XP) beri namenya "Hide_SystemClock"
code :

Private Sub Hide_SystemClock_Click()
If Me![Hide_SystemClock] Then
Clock_Show_Hide (False)
Else
Clock_Show_Hide (True)
End If
End Sub



[*] Run process in new desktop (Win NT, 2K, XP) beri namenya "Hide_DeskProcess"
code :

Private Sub Hide_DeskProcess_Click()
If Me![Hide_DeskProcess] Then
Process_Desktop "MyDesktop2", "Example.exe"
Else

End If
End Sub



^Up : perhatikan Example.exe <-- kamu ganti dengan nama aplikasi yang mana
mau di tampilkan saat Run process in new dekstop misal "charmap.exe"

[*] Disable all special keys (Win 9x) beri namenya "Disable_AllKeys"
code :

Private Sub Disable_AllKeys_Click()
If Me![Disable_AllKeys] Then
Keys_Enable_Disable (False)
Else
Keys_Enable_Disable (True)
End If
End Sub



[*] Disable Alt+Tab, Alt+Esc (Win ?) beri namenya "Disable_AltTab1"
Code :

Private Sub Disable_AltTab1_Click()
If Me![Disable_AltTab1] Then
AltTab1_Enable_Disable (False)
Else
AltTab1_Enable_Disable (True)
End If
End Sub



[*] Disable Alt+Tab, Alt+Esc (Win NT, 2K) beri namenya "Disable_AltTab2"
Code :

Private Sub Disable_AltTab2_Click()
If Me![Disable_AltTab2] Then
AltTab2_Enable_Disable 0, False
Else
AltTab2_Enable_Disable 0, True
End If
End Sub



[*] Disable Task Switching Keys (Win NT, 2K) beri namenya "Disable_TaskSwitching"
code :

Private Sub Disable_TaskSwitching_Click()
If Me![Disable_TaskSwitching] Then
TaskSwitching_Enable_Disable (False)
Else
TaskSwitching_Enable_Disable (True)
End If
End Sub



[*] Disable Task Manager (Win NT, 2K) beri namenya "Disable_TaskMgr"
code :

Private Sub Disable_TaskMgr_Click()
If Me![Disable_TaskMgr] Then
TaskManager_Enable_Disable (False)
Else
TaskManager_Enable_Disable (True)
End If
End Sub



[*] Disable Ctrl+Alt+Del, Ctrl+Shift+Esc (Win NT, 2K) beri namenya "Disable_CtrlAltDel"
code :

Private Sub Disable_CtrlAltDel_Click()
If Me![Disable_CtrlAltDel] Then
CtrlAltDel_Enable_Disable (False)
Else
CtrlAltDel_Enable_Disable (True)
End If
End Sub



nah segitu dolo untuk mencari tanggal lahir dibawah

sumber : [You must be registered and logged in to see this link.]