04-22-2009, 01:43 PM
I don't have the control to test, but common code for ActiveX controls is
Function Dialog41
here we3 is ActiveX control variable, and you can call its functions like
we3.Function(arguments)
Function Dialog41
\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages
str controls = "3"
str ax3SHD
if(!ShowDialog("Dialog41" &Dialog41 &controls)) ret
;BEGIN DIALOG
;0 "" 0x90C80A44 0x100 0 0 223 135 "Dialog"
;1 Button 0x54030001 0x4 120 116 48 14 "OK"
;2 Button 0x54030000 0x4 170 116 48 14 "Cancel"
;3 ActiveX 0x54030000 0x0 26 16 96 48 "SHDocVw.WebBrowser"
;END DIALOG
;DIALOG EDITOR: "" 0x203000C "*" "" ""
ret
;messages
SHDocVw.WebBrowser we3
we3._getcontrol(id(3 hDlg))
sel message
,case WM_INITDIALOG
,
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1here we3 is ActiveX control variable, and you can call its functions like
we3.Function(arguments)
