Please help me quicly!

Hi!

i have one form and i want the form to minimize when it looses focus( Lost_focus event doesn't work)

i need to disable the keyboard( mostly the print screen key keycode = 0 and keyascii = 0 don't work )

PLEASE HELP ME OUT!!

Thanks a lot once again!

Q1 : Try using the GetForegroundWindow API in a Timer.

:)

Try this:

VB Code:

'Module Code:
 
Option Explicit
 
Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal ndx As _
Long, ByVal newValue As Long) As Long
 
Private Declare Function CallWindowProc Lib "user32" _
Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal _
hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal _
lParam As Long) As Long
 
Const GWL_WNDPROC = -4
Const WM_KILLFOCUS = &H8
 
Dim saveHWnd As Long
Dim oldProcAddr As Long 
 
Sub StartSubclassing(ByVal hWnd As Long)
    saveHWnd = hWnd
    oldProcAddr = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf WndProc)
End Sub
 
Sub StopSubclassing()
    SetWindowLong saveHWnd, GWL_WNDPROC, oldProcAddr
End Sub
 
Function WndProc(ByVal hWnd As Long, ByVal uMsg As Long, _
    ByVal wParam As Long, ByVal lParam As Long) As Long
    WndProc = CallWindowProc(oldProcAddr, hWnd, uMsg, wParam, lParam)
    
Select Case uMsg
    Case WM_KILLFOCUS
            Form1.WindowState = 1 'Don't forget to change the form name to your form
    End Select
End Function
 
 
'Form Code:
 
 
Private Sub Form_Load()
    StartSubclassing Me.hWnd
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    StopSubclassing
End Sub

sorry thats chinese for me, ,that works for wich of the two questions?

Q2 disabling print screen, try:

VB Code:

Private Declare Function GetAsyncKeyState _
Lib "user32.dll" (ByVal vKey As Long) As Integer
 
Private Const VK_MENU = &H12 'either alt key
Private Const VK_SNAPSHOT = &H2C 'print screen
 
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    If GetAsyncKeyState(VK_MENU) Then
        MsgBox "Alt key pressed"
    ElseIf GetAsyncKeyState(VK_SNAPSHOT) Then
        MsgBox "Print screen key pressed"
        Clipboard.Clear 
    End If
End Sub

Thanks Mathew your code for minimizing forms works just GREAT!

But Nucleo' s for disabling any keyboard doesn't sorry! I mean i don't want people to print screen but i think if we could find a way to disable keyboard everything could be solved, any ideas?????

Quote:

---

Originally posted by iScanning
sorry thats chinese for me, ,that works for wich of the two questions?

---

Sorry about that, the question I answered was for question 1. A bit better than using the GetForegroundWindow API function with a Timer, as crptcblade suggested.

Yeah, i knew there was a cleaner way, but I don't speak Chinese either :p

:D

Hey Mathew, yeah it worked just fine, by the way do you have an API call or non Api for disabling the Keyboards?

Thanks! Sorry for being so persistent!

Two ways I know of...

1 - Rundll32:

Code:

---

Shell "rundll32 keyboard,disable"

---

2 - BlockInput API function (only problem with this is you disable both mouse and keyboard and you have to basically set a timer or something, or else you can't re-enable them, but in the code below, there is an example of setting a time to disable and re-enable them).

VB Code:

Private Declare Function BlockInput Lib "user32" _
(ByVal fBlock As Long) As Long
 
Private Declare Sub Sleep Lib "kernel32" (ByVal _
dwMilliseconds As Long)
 
 
Private Sub Command1_Click() 
 
    DoEvents
    'block the mouse and keyboard input
    BlockInput True
    'wait 10 seconds before unblocking it
    Sleep 10000
    'unblock the mouse and keyboard input
    BlockInput False
 
End Sub

Mathew, just a word of appreciation, you really MASTER IT!

Thanks a lot!

Quote:

---

Originally posted by iScanning

But Nucleo' s for disabling any keyboard doesn't sorry! I mean i don't want people to print screen but i think if we could find a way to disable keyboard everything could be solved, any ideas?????

---

I forgot to mention to turn the form's key preview property to true.