Shoutbox

I have one dialog (made in VB6) wich have one textbox... I'd like to send the text I wrote on this textbox to the chat window... can anyone help me???

tnks

Well, if that dialog is shown in the ParseCommand, ParseTag or ReceiveNotify functions of the plus api, then you just have to copy the text in the textbox into the sResult (or similar name,  don't remember) variable of those functions.

However if you need to send any text when you want, you should use the messenger api, although you can also use the sendkeys function simulate that the user has pressed the keys in the conversation window.

yes, the dialog is show in the ParseCommand (/xcoder)... but I don't have any idea how to copy the text of the textbox.... can you explain me?

tnks

sResult = Form.TextBox.Text tends to work. Of course, you'd have to change 'textBox' to the name of your text control, and Form to the name of the form.
Can't guarantee this will work though: if you close the form and then try to access one of its controls, it may not work.
So, try it and see.

well.... it works.... but first I have to close the dialog to send the text of the textbox.... Is there anyway to send the text without close the dialog?? please, help me =/

tnks for the help

Not that I know of I'm afraid.

well.... I'll change my project....

tnks for the replies and the help....

quote:

---

Originally posted by LiMãØ
Is there anyway to send the text without close the dialog??

---

yes, you can, however it's a bit more complex. You have to show the dialog and wait until you press some button or whatever at the dialog. Then copy the sresult and return from the function.

text in the textbox is automaticly saved, /coder opens the file as text and its sent

quote:

---

Originally posted by LiMãØ
can you show me an example???

---

it'd be something like this: (now i don't have VB here, so this will be a mix between VB code and pseudocode)

' inside parsecommand...
not_yet=true ' this is a global variable
form1.show vbmodal, screen.activeform
while not_yet
wend
sResult = Form1.text1.text
return

'inside form1...
sub commandbutton_enter_onclick()
not_yet = False
end sub


that's all, however that's a dodgy thing of doing it. There are much better ways (and also more complicated) but that should work