08-28-2010, 10:13 AM
In this code how can i scroll the control?
Function correctorweb
Function correctorweb
\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages
str controls = "3"
str ax3SHD
ax3SHD=""
if(!ShowDialog("correctorweb" &correctorweb &controls)) ret
;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 420 290 "Correctorweb"
;3 ActiveX 0x54030000 0x0 0 0 419 289 "SHDocVw.WebBrowser"
;END DIALOG
;DIALOG EDITOR: "" 0x2030208 "*" "" ""
ret
;messages
sel message
,case WM_INITDIALOG
,SHDocVw.WebBrowser we3
,we3._getcontrol(id(3 hDlg))
,we3.Navigate("http://revisor.com.ar/")
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1