VB How to get the keyboard and mouse no action time 100 minutes to be delivered .

Add two clock controls on the form, timer1 and timer2Write a program that makes the following should be the same.

next hook, and then keep capturing keyboard and mouse events.

If the shutdown is not caught for 1 hour.

dim stoptime as double 'Mouse and keyboard, start to move the time you want to change to this.

Upstairs VB works, in the middle doesn't, the format is as follows.

You've got an idea, you've found the relevant API, and the hardest part is already there, so do it yourself!

Your**in**. In a control? If you're in a widget, just move the widget directly. Moving the widget would do it if I were to move an image1 to the top left corner of the form. That's it:

0,00,0 is the left and top. of image1As for controlling it with the keyboard's arrow keys, it can be like this:

private sub form_keydown(keycode as integer, shift as integer)

if keycode = 37 then - 10, 'Since the left only moves to the left, the top does not change, so it can also be done in this way (-10) to directly reduce the left. The same goes for below.

if keycode = 38 then , 10 'Above.

if keycode = 39 then + 10, 'Right.

if keycode = 40 then , 10 'Under.

end sub

private sub form_load()

true 'The form1 keyboard event is activated before activating the keyboard event for the control on form1.

end sub

It's ASCII. I don't know what it's called. I'll just call it keycodeWhen you press any key on the keyboard, the keycode is equal to an integer.

Anyway, if you press the left arrow button on your keyboard, the keycode is equal to 37; It's 38....

This is how you can get the keycode::for each key

private sub text1_keyup(keycode as integer, shift as integer)

text1 = keycode

end sub