Send the "Scroll Lock: command using access VB

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Mark - 20 Mar 2008 16:14 GMT

Hello all,

I need my program to send a double push of the Scroll lock button to the PC.
Is there a way to send this command, and if so, what function do I use?

Thanks for any guidance on where to start.

Mark

Reply to this Message

Klatuu - 20 Mar 2008 18:11 GMT

What do you mean by "to the PC"?

You might be able to use the SendKeys method. Look in VBA Help and see if
it will do what you want.

Signature

Dave Hargis, Microsoft Access MVP

> Hello all,
>
[quoted text clipped - 4 lines]
>
> Mark

Reply to this Message

Mark - 20 Mar 2008 18:48 GMT

I'm trying to send the command to a KVM switch. If you double press "Scroll
Lock" it changes you to another computer screen. I'm trying to do this from
with in a program. The sendkeys is what I need, but I'm still looking for
the code the Scroll Lock button produces.

> What do you mean by "to the PC"?
>
[quoted text clipped - 9 lines]
> >
> > Mark

Reply to this Message

Klatuu - 20 Mar 2008 19:07 GMT

I don't believe it returns an ascii code you can capture.
I would suggest finding out what value the switch expects and see if you can
duplicate that.

Signature

Dave Hargis, Microsoft Access MVP

> I'm trying to send the command to a KVM switch. If you double press "Scroll
> Lock" it changes you to another computer screen. I'm trying to do this from
[quoted text clipped - 14 lines]
> > >
> > > Mark

Reply to this Message

Douglas J. Steele - 20 Mar 2008 19:18 GMT

Does http://www.mvps.org/access/api/api0046.htm work in this case?

Signature

Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)

>I don't believe it returns an ascii code you can capture.
> I would suggest finding out what value the switch expects and see if you
[quoted text clipped - 25 lines]
>> > >
>> > > Mark

Reply to this Message

Stuart McCall - 20 Mar 2008 19:37 GMT

> I'm trying to send the command to a KVM switch. If you double press
> "Scroll
[quoted text clipped - 19 lines]
>> >
>> > Mark

1. Create a form and place a command button on it, called Command0
2. Paste the following code into the form's class module
3. Open the form and click the button
4. If it works (ie you switch ok) then fine. If not, play with the sleep
command till it works <g>

''' BEGIN CODE '''
Private Declare Sub keybd_event Lib "user32.dll" _
(ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Declare Sub Sleep Lib "kernel32" _
(ByVal dwMilliseconds As Long)

Const VK_SCROLL = &H91
Const KEYEVENTF_KEYUP = &H2

Private Sub Command0_Click()
keybd_event VK_SCROLL, 0, 0, 0 'Press Scroll Lock
keybd_event VK_SCROLL, 0, KEYEVENTF_KEYUP, 0 'Release Scroll Lock
Sleep 100 'Wait a bit
keybd_event VK_SCROLL, 0, 0, 0 'Press Scroll Lock
keybd_event VK_SCROLL, 0, KEYEVENTF_KEYUP, 0 'Release Scroll Lock
End Sub
''' END CODE '''

Reply to this Message