กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
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 ใดของฟอร์มค่ะ ?
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
Time: 0.1177s
โปรแกรมที่เราพัฒนาขึ้น
... เป็นต้นว่าถ้าเราพัฒนาโปรแกรมขึ้นมา 1 โปรแกรม แล้วต้องการไม่ให้ user
มากดปุ่ม Ctrl+Alt+Del ในขณะที่ใช้โปรแกรมเราอยู่ และเมื่อเลิกใช้โปรแกรม
เราแล้วก็ให้ตั้งค่ากลับคืน เราก็ต้องสร้าง form ขึ้นมา 1 form โดยให้ form นี้
เปิดอยู่ตลอดเวลาในขณะที่โปรแกรมเรารันอยู่ ก็จะใช้ Even OnOpen หรือ
OnLoad ก็ได้ เมื่อเราปิดโปรแกรม Form นี้ก็จะถูปิด ฉะนั้นเราก็จะตั้งค่ากลับ
คืนใน Even OnUnload หรือ OnClose ไดครับ