AccessTr.neT
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)

Sayfalar: 1 2 3


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 Img-grin ,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.