Visual Basic

Henry Minute13-May-09 4:58

13-May-09 4:58

The only way I know to do this is to use the API call GetKeyboardState(), unless someone knows of a simpler way.

Henry Minute

Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”

nlarson1113-May-09 8:02

nlarson11

13-May-09 8:02

write your own code using the key_down/key_up events - the below code writes out to the debug window each key has been pressed(down). once you lift up on a key it shows it has been released(up).

Private _KeyDown As New List(Of Int16)

  Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
      If Not _KeyDown.Contains(e.KeyCode) Then
          _KeyDown.Add(e.KeyCode)
          Debug.Print("d:" & Chr(e.KeyValue))
      End If
  End Sub

  Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
      If _KeyDown.Contains(e.KeyCode) Then
          _KeyDown.Remove(e.KeyCode)
          Debug.Print("u:" & Chr(e.KeyValue))
      End If
  End Sub

'Never argue with an idiot; they'll drag you down to their level and beat you with experience.' ~ anonymous

'Life's real failure is when you do not realize how close you were to success when you gave up.' ~ anonymous

JR21213-May-09 19:40

JR212

13-May-09 19:40

Nice code. I can use this to, but a question: It seem to me that the maximum numbre of simultanious keys is 3. Is this normal?

Dalek Dave13-May-09 21:38

Dalek Dave

13-May-09 21:38

Historical.

Ctrl Alt Delete
Ctrl Shift (a Key)
Shift AltGr (a Key)

Any more than three is deemed to be elbows on the keyboard.

I believe this can be altered, but alas not by me. Dave Kreskowiak may know this. Ask him,

------------------------------------

"Possessions make you poor, wealth is measurable only in experience."
Sun Tzu 621BC

Johan Hakkesteegt13-May-09 22:14

Johan Hakkesteegt

13-May-09 22:14

I adapted Larson's code just slightly (you need to disable TextBox1 by the way):

Private WithEvents _KeyDown As New List(Of Int16)

Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    If Not _KeyDown.Contains(e.KeyCode) Then
        _KeyDown.Add(e.KeyCode)
        TextBox1.Text &= Chr(e.KeyCode)
    End If
End Sub

Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
    If _KeyDown.Contains(e.KeyCode) Then
        _KeyDown.Remove(e.KeyCode)
        TextBox1.Text = TextBox1.Text.Remove(TextBox1.Text.IndexOf(Chr(e.KeyCode)), 1)
    End If
End Sub

I managed to press more than 2 keys, but not all combos work, and some combos act like alt+ctrl etc. and other combos somehow work without a hitch.

My advice is free, and you may get what you paid for.

Dave Kreskowiak14-May-09 1:59

Dave Kreskowiak

14-May-09 1:59

The is the normal max that will work reliably.

If you want more than that, you're going to have to go to DirectX and it's DirectInput library, or use the XNA Framework (C#) to simplify using all the DirectX stuff.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

JR21214-May-09 3:03

JR212

14-May-09 3:03

thanks

Get file path

rmedo13-May-09 2:32

13-May-09 2:32

Hi all,
i used the following code to get the registerd dll full path

Dim ins As RegistryKey
        ins = Registry.ClassesRoot.OpenSubKey("RuleProcessor.Processor")
        Dim clsid As String = ins.GetValue("").ToString
        ins.Close() 
        Dim clsidKey As RegistryKey = Registry.ClassesRoot.OpenSubKey(clsid)
        Dim manifestLocation As String = clsidKey.GetValue("CodeBase").ToString
        clsidKey.Close()

RuleProcessor.Processor is the progId
but it doesn't work, i want to know where is the error

Thanks

Henry Minute13-May-09 2:36

13-May-09 2:36

What do you mean by it doesn't work?
Does it throw an exception? Does it give an unexpected result?

rmedo13-May-09 2:44

13-May-09 2:44

yes at this line
Dim manifestLocation As String = clsidKey.GetValue("CodeBase").ToString it get this error
object reference to set to an instance of object

Henry Minute13-May-09 2:54

13-May-09 2:54

Almost certainly the error is referring to clsidkey, because it is null.

I could tell you why it is null, but you will learn far more by debugging this section of code. Step through it and observe where one of your variables becomes null, when you don't expect it to be.

rmedo13-May-09 20:13

13-May-09 20:13

i debug the code many and many times

<br />
ins = Registry.ClassesRoot.OpenSubKey("RuleProcessor.Processor")<br />
Dim clsid As String = ins.GetValue("").ToString<br />

the result of these lines is clsis = RuleProcessor.Processor
so i think that the ins will be equal to clsidkey

<br />
<br />
Dim clsidKey As RegistryKey = Registry.ClassesRoot.OpenSubKey(clsid)<br />

clsidkey not null
so it you know any other solution tell me please

Thanks for your help

Henry Minute13-May-09 23:13

13-May-09 23:13

OK.

And when you move the mouse pointer over the various terms in the error line:

Dim manifestLocation As String = clsidKey.GetValue("CodeBase").ToString

which one shows up as nothing?

rmedo14-May-09 0:13

14-May-09 0:13

clsidKey.GetValue("CodeBase").ToString
i think the property codebase is null

Henry Minute14-May-09 0:20

14-May-09 0:20

Check the registry manually for the existence of CodeBase.

rmedo14-May-09 0:23