Hiç bir şekilde Access Ortamından çıkılamasın - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Hiç bir şekilde Access Ortamından çıkılamasın (/konu-hic-bir-sekilde-access-ortamindan-cikilamasin.html) |
Hiç bir şekilde Access Ortamından çıkılamasın - blacksir - 13/01/2009 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 Cvp: Hiç bir şekilde Access Ortamından çıkılamasın - C*e*l*o*y*c*e - 13/01/2009 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 Cvp: Hiç bir şekilde Access Ortamından çıkılamasın - alpeki99 - 14/01/2009 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. Cvp: Hiç bir şekilde Access Ortamından çıkılamasın - esrefigit - 14/01/2009 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 Cvp: Hiç bir şekilde Access Ortamından çıkılamasın - blacksir - 15/01/2009 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 Cvp: Hiç bir şekilde Access Ortamından çıkılamasın - alpeki99 - 15/01/2009 Bahsetmiş olduğum WinXPManager ile win tuşunu kolayca iptal edebilirsiniz. |