[HELP]Disable/enable keyboard

Post new topic   Reply to topic

Design & Code :: Coding :: Visual Basic 4/5/6

View previous topic View next topic Go down

[HELP]Disable/enable keyboard

Post  jkymmel on Tue Jun 30, 2009 7:52 am

how to disable and enable keyboard.
maybe in vb.net to

_________________

JKymmelDisain::WebDesign

jkymmel
Admin
Admin

Posts: 76
Activity: -639
Reputation: 3
Join date: 2009-06-27
Age: 14
Location: Estonia

http://jkymmel.tk

Back to top Go down

Re: [HELP]Disable/enable keyboard

Post  ~Fleck on Tue Jun 30, 2009 8:07 am

i dint test it though...vb6
Code:
Dim flag_ed As Boolean
Private Sub Command1_Click()
flag_ed = Not flag_ed
If flag_ed Then
Command1.Caption = "Disable KeyBoard"
Else
Command1.Caption = "Enable KeyBoard"
End If
End Sub


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If flag_ed Then
Else
KeyCode = 0
End If
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If flag_ed Then
Else
KeyAscii = 0
End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If flag_ed Then
Else
KeyCode = 0
End If
End Sub

Private Sub Form_Load()
flag_ed = True
Command1.Caption = "Disable KeyBoard"
End Sub

_________________

Thanks to FusioN for this awesome sig :]

~Fleck
Moderator
Moderator

Posts: 274
Activity: -258
Reputation: 8
Join date: 2009-06-28
Age: 16
Location: 127.0.0.1

Back to top Go down

View previous topic View next topic Back to top

Post new topic   Reply to topic

Design & Code :: Coding :: Visual Basic 4/5/6

Permissions of this forum:
You cannot reply to topics in this forum