send message problem

[westconn1]

Hey Tec

This seems to work

visual basic code:Me.Hide
DoEvents
gethwnd
Me.Show



It doesn't have time to hide your application and set focus to the notepad or whatever application you expect to have focus. I think

Thanks manavo, this cretainly fixes the reliability problem for using to notepad or to my copiled vb program.
if MS word or a different project vbide window nothing pastes, but i will compile this now and test a lot more.

thanks again

[manavo11]

Thanks manavo, this cretainly fixes the reliability problem for using to notepad or to my copiled vb program.
if MS word or a different project vbide window nothing pastes, but i will compile this now and test a lot more.

thanks again

You're welcome

Actually I just tried Word and I couldn't get it to work either... Weird though, I expected it would

Hey Manavo! I owe you one

[westconn1]

hahaha

the program i mainly wanted to use this with (which isn't on my computer) doesn't get the paste, like Word, can i try to sendmessage the listbox text, instead of using sendmessage paste, (bypass the clipboard) and what would be the sendmessage command to do it.

p.

[manavo11]

Well, the other option would be to use the WM_SETTEXT although that would cause all the data in that textbox (if it is a simple textbox or richtextbox at least) to be lost... I'll have to see if there is another way. SendKeys somes to mind although I don't think it's the best way...

[Dmitri K]

Your sendmessage declaration is wrong, that's why it doesn't work, but the syntax is right.

If you're using WM_, you must change sendmessage declaration. Last parameter (lParam as any) must be ByVal lParam As String.

The modified sendmessage is often refered to as SendMessageByString

Original sendmessage:
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Modified sendmessage:
Public Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

[westconn1]

dmitri

Modified sendmessage:
Public Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

i changed my program to use the modified send message,

it still pastes fine into notepad, but nothing pastes to msword

thanks peter

[Dmitri K]

Hmm, maybe wm_settext doesn't work with msword.

As far as I can think right now, keyb_event is your only option, but someone may know a way.

Post the code if not a problem. I'll tinker with it.