Please consider this sample:
- Code: Select all Expand view
#include "FiveWin.ch"
FUNCTION Main()
LOCAL oWnd, oActiveX
DEFINE WINDOW oWnd
@ 50, 10 ACTIVEX oActiveX OF oWnd ;
SIZE 380, 170;
PROGID "Shell.Explorer"
@ 1,2 BUTTON "Fire 'Send' button" OF oWnd;
SIZE 150,20;
ACTION MsgInfo("Submit")
ACTIVATE WINDOW oWnd;
ON INIT oActiveX:Do("Navigate", "http://www.winfakt.be/form_test_1.htm" )
RETURN NIL
How can I let the BUTTON on the Window fire the "Send" button IN the ActiveX web page?
This is the source of form_test_1.htm is :
- Code: Select all Expand view
<html>
<body>
<form name="frm_test" action="form_test_2.asp" method="post">
Text: <textarea name="f_text"></textarea><br />
<input type="submit" name="f_submit" value="Send" />
</form>
</body
form_test_1.asp is :
- Code: Select all Expand view
form_test_2.asp
----------------------
<hrtml>
<body>
Test OK!<br /><br />
Input was: <%= request.form("f_text") %>
</body>
</html>
Patrick
