ช่วยแนะนำด้วยค่ะ?
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 307   1
URL.หัวข้อ / URL
ช่วยแนะนำด้วยค่ะ?

จาก code
Private Declare Function SystemParametersInfo Lib _
"user32" Alias "SystemParametersInfoA" (ByVal uAction _
As Long, ByVal uParam As Long, ByVal lpvParam As Any, _
ByVal fuWinIni As Long) As Long

Sub DisableCtrlAltDelete(bDisabled As Boolean)
Dim X As Long
X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub

Sub Disabled()
'To disable Ctrl-Alt-Delete:
Call DisableCtrlAltDelete(True)
End Sub

Sub Enabled()
'To enable Ctrl-Alt-Delete:
Call DisableCtrlAltDelete(False)
End Sub

ไม่ทราบว่าจะเรียกใช้งานอย่างไรค่ะ ไว้ใน even ใดของฟอร์มค่ะ ?


1 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R05246
เป็น code ที่ใช้กัน user กดปุ่ม Ctrl+Alt+Del สามารถเรียกใช้ได้ทุกที่ใน
โปรแกรมที่เราพัฒนาขึ้น
... เป็นต้นว่าถ้าเราพัฒนาโปรแกรมขึ้นมา 1 โปรแกรม แล้วต้องการไม่ให้ user
มากดปุ่ม Ctrl+Alt+Del ในขณะที่ใช้โปรแกรมเราอยู่ และเมื่อเลิกใช้โปรแกรม
เราแล้วก็ให้ตั้งค่ากลับคืน เราก็ต้องสร้าง form ขึ้นมา 1 form โดยให้ form นี้
เปิดอยู่ตลอดเวลาในขณะที่โปรแกรมเรารันอยู่ ก็จะใช้ Even OnOpen หรือ
OnLoad ก็ได้ เมื่อเราปิดโปรแกรม Form นี้ก็จะถูปิด ฉะนั้นเราก็จะตั้งค่ากลับ
คืนใน Even OnUnload หรือ OnClose ไดครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.1177s