This.Object.Document.ActiveElement.style

$PBExportHeader$w_web.srw
forward
global type w_web from window
end type
type ole_1 from olecustomcontrol within w_web
end type
end forward

global type w_web from window
integer width = 2235
integer height = 1976
boolean titlebar = true
string title = ""
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
ole_1 ole_1
end type
global w_web w_web

on w_web.create
this.ole_1=create ole_1
this.Control[]={this.ole_1}
end on

on w_web.destroy
destroy(this.ole_1)
end on

event open;ole_1.Object.Navigate('C:\111.html')
end event

type ole_1 from olecustomcontrol within w_web
event statustextchange ( string text )
event progresschange ( long progress,  long progressmax )
event commandstatechange ( long command,  boolean enable )
event downloadbegin ( )
event downloadcomplete ( )
event titlechange ( string text )
event propertychange ( string szproperty )
event beforenavigate2 ( oleobject pdisp,  any url,  any flags,  any targetframename,  any postdata,  any headers,  ref boolean cancel )
event newwindow2 ( ref oleobject ppdisp,  ref boolean cancel )
event navigatecomplete2 ( oleobject pdisp,  any url )
event documentcomplete ( oleobject pdisp,  any url )
event onquit ( )
event onvisible ( boolean ocx_visible )
event ontoolbar ( boolean toolbar )
event onmenubar ( boolean menubar )
event onstatusbar ( boolean statusbar )
event onfullscreen ( boolean fullscreen )
event ontheatermode ( boolean theatermode )
event windowsetresizable ( boolean resizable )
event windowsetleft ( long left )
event windowsettop ( long top )
event windowsetwidth ( long ocx_width )
event windowsetheight ( long ocx_height )
event windowclosing ( boolean ischildwindow,  ref boolean cancel )
event clienttohostwindow ( ref long cx,  ref long cy )
event setsecurelockicon ( long securelockicon )
event filedownload ( boolean activedocument,  ref boolean cancel )
event navigateerror ( oleobject pdisp,  any url,  any frame,  any statuscode,  ref boolean cancel )
event printtemplateinstantiation ( oleobject pdisp )
event printtemplateteardown ( oleobject pdisp )
event updatepagestatus ( oleobject pdisp,  any npage,  any fdone )
event privacyimpactedstatechange ( boolean bimpacted )
event setphishingfilterstatus ( long phishingfilterstatus )
event newprocess ( long lcauseflag,  oleobject pwb2,  ref boolean cancel )
event redirectxdomainblocked ( oleobject pdisp,  any starturl,  any redirecturl,  any frame,  any statuscode )
event beforescriptexecute ( oleobject pdispwindow )
integer x = 37
integer y = 28
integer width = 2130
integer height = 1792
integer taborder = 20
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
string binarykey = "w_web.win"
integer textsize = -26502
integer weight = 700
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
boolean italic = true
long textcolor = 33554432
end type

event clicked;string				ls_url = ""
oleobject			ole_ilink

ole_ilink = This.Object.Document.ActiveElement
IF NOT IsNull(ole_ilink) THEN
	ls_url = Lower( string( This.Object.Document.ActiveElement.onclick))	
	ls_url = Lower( string( This.Object.Document.ActiveElement.style))	
	//ls_url = Lower( string( This.Object.Document.ActiveElement.href))	
	ls_url = Lower( string( ole_ilink.GetAttribute("onclick")))
END IF
end event

ls_url = string(ole_ilink.parentNode.InnerText)
ls_url = string(ole_ilink.parentNode.onclick)