Bir form düşünün ekranın tamamını kaplasın. Bu form açıldığında ctr, alt, windows tuşu, başlat düğmesi ctr+alt+del işe yaramasın yanı formun üzerine koyduğum kapat tuşundan başka hiç bir şekie
Access ortamından çıkamasın
sayın blacksir kardeşim buradaki çıkmamanın amacı nedir,niye çıkılmasın,peki nasıl çıkacağız hep oradamı kalacağız
,makül bir cevap yazarmısın
Bunu
Access ile yapmak çok yerinde olmayacaktır. WinXPManager programı ile yapabilirsiniz. Windows tuşu, Ctrl + Alt + Del kombinasyonunu iptal edersiniz. Ctrl ve Alt tuşları tek başına zaten bir işe yaramazlar.
BU KOD ara çubuğunu kaldıracak
modül
Option Explicit
Private TaskBarhWnd As Long
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_HIDEWINDOW = &H80
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long
Public Sub HideTaskBar()
TaskBarhWnd = FindWindow("Shell_traywnd", "")
If TaskBarhWnd <> 0 Then
Call SetWindowPos(TaskBarhWnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End If
End Sub
Public Sub ShowTaskBar()
If TaskBarhWnd <> 0 Then
Call SetWindowPos(TaskBarhWnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End If
End Sub
buda formun açılışına
HideTaskBar
buda formun kapanışına
ShowTaskBar
bu sana örnek olsun
kardeş bu istediğin olayların hepsini yapan kodlar kod deposunda var
ara çubuğu gizleme ,alt+f4 kitle, şift kitleme, alt+tab kitle ,tasarıma geçişi engelle hatta ve hatta accessin kesinlikle kapatılmasını engelleme ve ctrl+dell kitleme yani istediğin her şey var sadece biraz uğraş gözünü seveyim
Kodla bütün tuşları kilitledim sadece win tuşunu etkisiz yapamadım. win tuşunu kitleyen kod varmı Amacımı sordu bir arkadaş amacım Güvenliği artırmak
Bahsetmiş olduğum WinXPManager ile win tuşunu kolayca iptal edebilirsiniz.