the menu to open Google

[win]

I want to use the menu to open Google from the browser, but the runtime prompts error

Just contact programming, I hope someone can help me, any opinions and suggestions are welcome, thank you

Macro Macro1

Code:

Copy      Help

str md=
;BEGIN MENU
;>&File
;,&open google :502 0x0 0x0 Cg
;,-
;,E&xit :2 0x0 0x0 Aq
;,<
;END MENU

str dd=
;BEGIN DIALOG
;0 "" 0x90CB0AC8 0x0 0 0 412 222 "Dialog"
;4 ActiveX 0x54030000 0x0 12 16 392 172 "SHDocVw.WebBrowser {8856F961-340A-11D0-A96B-00C04FD705A2}"
;1 Button 0x54030001 0x4 292 196 48 14 "OK"
;2 Button 0x54030000 0x4 356 196 48 14 "Cancel"
;END DIALOG
;DIALOG EDITOR: "" 0x2040700 "*" "" "" ""

str controls = "4"
str ax4SHD="www.quickmacros.com"

if(!ShowDialog(dd &sub.DlgProc &controls 0 0 0 0 0 0 0 0 md)) ret

#sub DlgProc
function# hDlg message wParam lParam

sel message
,case WM_INITDIALOG
,SHDocVw.WebBrowser-- we4
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
,case 502 ;;&open google
,we4.Navigate("http://www.google.com")
ret 1

[Gintaras]

before we4.Navigate or before sel wParam:

Code:

Copy      Help

,we4._getcontrol(id(4 hDlg))

[win]

before we4.Navigate or before sel wParam:

Code:

Copy      Help

,we4._getcontrol(id(4 hDlg))

Thank you for your help, I put the definition statement above

[Gintaras]

I would put it immediately before sel wParam. Calling _getcontrol on every received message is not good. If need it above sel wParam, insert it in all places where need.

[win]

I would put it immediately before sel wParam. Calling _getcontrol on every received message is not good. If need it above sel wParam, insert it in all places where need.

Thanks for reminding,

In addition, I would like to ask, how to insert a flash control in the dialog box? I tried several times and I can't display it in a dialog box. Can you give me an example? thank you very much

[Gintaras]

http://www.quickmacros.com/forum/viewtop...f=2&t=3368

download and search for
*flash*

[win]

http://www.quickmacros.com/forum/viewtop...f=2&t=3368

download and search for
*flash*

I have found an example, thank you very much  

[win]

http://www.quickmacros.com/forum/viewtop...f=2&t=3368

download and search for
*flash*

I found an example, the window full screen after the problem, I can not see the characters on the control, I adjust the parameters, can not be resolved

Function dlg_simple_web_browser

Code:

Copy      Help

\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

;BEGIN DIALOG
;0 "" 0x90CB0A48 0x100 0 0 565 386 "My Web Browser"
;3 ActiveX 0x54030000 0x0 4 22 558 358 "SHDocVw.WebBrowser"
;4 Edit 0x54030080 0x200 4 4 450 14 ""
;5 Button 0x54032000 0x0 458 4 48 14 "GO"
;6 Button 0x54032000 0x0 512 4 48 14 "BACK"
;END DIALOG
;DIALOG EDITOR: "" 0x2040700 "" "" "" ""

str controls = "3 4"
str ax3SHD e4
if(!ShowDialog("dlg_simple_web_browser" &dlg_simple_web_browser &controls)) ret

ret
;messages
sel message
,case WM_INITDIALOG
,DT_SetAutoSizeControls hDlg "0s 3s 4s 5s 6s"
,SHDocVw.WebBrowser c
,c._getcontrol(id(3 hDlg))
,
,int- t_hdlg; t_hdlg=hDlg
,c._setevents("c_DWebBrowserEvents2")
,
,c.Navigate("www.quickmacros.com"); err
,
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
c._getcontrol(id(3 hDlg))
sel wParam
,case 5 ;;Go
,str a.getwintext(id(4 hDlg))
,c.Navigate(a); err
,
,case 6
,c.GoBack; err

,case IDOK
,but 5 hDlg ;;on Enter press GO
,ret 0 ;;disable closing on Enter
,case IDCANCEL
,ifk(Z) ret 0 ;;disable closing on Esc
ret 1

;BEGIN PROJECT
;main_function  dlg_simple_web_browser
;exe_file  $my qm$\dlg_simple_web_browser.exe
;icon  <default>
;manifest  $qm$\default.exe.manifest
;flags  6
;guid  {A55F76DB-D45A-4213-A6F8-5D29FA99BB6E}
;END PROJECT

[Gintaras]

Probably "0s 3s 4s 5s 6s" is incorrect. Read DT_SetAutoSizeControls help.

[win]

Probably "0s 3s 4s 5s 6s" is incorrect. Read DT_SetAutoSizeControls help.

DT_SetAutoSizeControls hDlg "0sh 3s 4sh 5mh 6mh"

thanks