VB .NET Help

Hi guys,
This question is not exactly about Genesys API but related to a Softphone requirement.

I usually develop on VB6 but now I’m trying to make a parallel version of my App on Vb.Net, i’m just starting to learn about it.

I want my application to capture keyboard combinations so it allows the agents to put themselves Ready/NotReady more fast.

On VB6 this is my code:

Private Declare Function GetAsyncKeyState Lib “User32” _
(ByVal vKey As KeyCodeConstants) As Long

Private Function KeyDown(ByVal vKey As KeyCodeConstants) As Boolean
KeyDown = GetAsyncKeyState(vKey) And &H8000
End Function

And a timer that keeps reading the users input:

Private Sub Timer1_Timer()

If KeyDown(vbKeyControl) And KeyDown(vbKeyF11) Then 'Ready
    TExtension1.TReady
    Exit Sub
End If

End Sub

On VB.Net i tried this:

Private Declare Function GetAsyncKeyState Lib “User32” (ByVal vKey As Keys) As Long

Private Function KeyDown1(ByVal vKey As Keys) As Boolean
KeyDown1 = GetAsyncKeyState(vKey) And &H8000
End Function

But doesn’t work

Any help please as many users here have more experience on Vb.Net

Thanks a lot

Hi,

Please take a look at the following article http://www.codeproject.com/csharp/globalhook.asp. It is written in C# but can be easily used in VB .Net. Solution provided by this library will create system level shortcuts - no matter which application is active.

Regards

Paul

Hi cavagnaro,

If you don’t need global/system level shortcuts then most of the graphical components (Form, TextBox etc.) do support the event “KeyPressed”. You can assign your own handler to that Event and check which keys were pressed.

René

Well the main idea is that agent can be on any application (CRM, email, internet, etc) and change it status without going to CTI Application itself.
It seems i’ll have to learn C# now, no VB.Net library of this? Seems .NET is still very young then.
Thanks

Yay! It works!

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Keys) As Long

Private Function KeyDownStatus(ByVal vKey As Keys) As Boolean
    KeyDownStatus = GetAsyncKeyState(vKey) And &H8000
End Function

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    If KeyDownStatus(Keys.ControlKey) And KeyDownStatus(Keys.F10) Then
        Debug.Print("ok")
    End If
End Sub</blockquote>

Not sure why now but it works like a charm Marvelous Google Code Search

In .NET You can use C# libraries under VB.NET and vice versa - that how .NET works - for example Genesys .NET libraries are written in C# but can be easily used under VB

Uh..how? I have found an excellent idea (deskbank) and would like to implement that on my application but all code is on C#.
Is there a Tool or something to import directly from C# to Vb.Net?
Thanks a lot

It works like this - You must create C# project of type “Class library” or “Windows Control library” with code You need. Compile it. You will receive dll. Then You just need to add this dll to references of Your VB application and You can access class or controls stored in this dll. If You need help with creating this file feel free to send this C# code to convert into library.

Paul

HI guys,
I found this:
http://www.codeproject.com/csharp/BandObjects20.asp

It’s very cool.
I have tried to make it VB.Net compatible but without any success.
Can anybody please try to do a very simple thing on Vb.Net with it?
Thanks in advance for any help ;D

Hi

In attached file You will find modified project from CodeProject with sample VB.Net application - I hope it helps. Important thing is to set minimum and maximum size to values other then 0,0.

Paul

Hi bublepaw,

Thanks a lot for the help.
A question when i build the Lib i get this:
RegAsm : warning RA0000 : No types were registered

What else do i need to modify?
Thanks

It works now like a charm
Thanks a lot! Hope i can return help someday