Forums


Comfort Software :: Forums :: Development
<< Previous thread | Next thread >>   

How to MOVE the On-Screen Keyboard (VB6)

Author Post
multi
Fri Jun 25 2010, 02:36am
Registered Member #551
Joined: Thu Jun 24 2010, 05:30pm
Posts: 5
When I use the parameters "Left" and "Top", to move On Creen Keyboard, it does not works properly. Left position ist correct, but not the top.

My code (VB6) ist as follows:

Const WM_USER = &H400
Const WM_CSKEYBOARD = WM_USER + 192
Const WM_CSKEYBOARDMOVE = WM_USER + 193

Dim hWnd As Long
hWnd = FindWindow("TFirstForm", "CKeyboardFirstForm")
PostMessage hWnd, WM_CSKEYBOARDMOVE, 850, 850 'move
PostMessage hWnd, WM_CSKEYBOARD, 1, 0 'show

The second parameter of the MOVE function is decleard as type "AS ANY" instead of "LONG". Does VB6 these datatyp works correctly?

Ist that OK or had I make a mistake?

Thanks' for your assistance!

Klaus





[ Edited Fri Jun 25 2010, 03:03am ]
Back to top
Comfort
Sat Jun 26 2010, 03:34pm


Joined: Wed Sep 19 2007, 03:42pm
Posts: 617
As I know you have to declare function PostMessage in VB6:

Private Declare Function PostMessage Lib "user32" _
Alias "PostMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long


Have a nice day
Back to top
multi
Sat Jun 26 2010, 06:44pm
Registered Member #551
Joined: Thu Jun 24 2010, 05:30pm
Posts: 5
Thanks' for your support.

It was my mistake. The function was not correct declared.
at the TOP-parameter "lParam".

It works now korrectly.
Back to top
Moderators: Comfort

Jump:     Back to top

Syndicate this thread: rss 0.92 Syndicate this thread: rss 2.0 Syndicate this thread: RDF
Powered by e107 Forum System