Dim buttonclicked as Integer
DECLARE SUB Label1Click (Sender AS QLABEL)
DECLARE SUB FormSize (Sender AS QFORM)
DECLARE SUB Escape
$Include "Rapidq.Inc"
DIM Label1.Clicked AS QLABEL
CREATE Form AS QFORM
Caption = "Viewer"
Width = 400
Height = 400
Center
OnClick = Escape
AutoScroll=0
OnResize = FormSize
CREATE Label1 AS QLABEL
Caption="C:\BAS\RAPIDQ\RQDPhlp\htm\RQDP Release 01\examples\ole\ide.htm"
Left = 100
Top = 50
OnClick=Label1Click
END CREATE
CREATE Explorer AS QOLECONTAINER
Top=100
Width=Form.ClientWidth
Height = Form.ClientHeight
END CREATE
END CREATE
'Insert your initialization code here
IF Form.ShowModal THEN
Form.Close
If label1clicked>0 then
Explorer.Free
END IF
END IF
'--------- Subroutines ---------
SUB Label1Click (Sender AS QLABEL)
Label1clicked=1
If Label1.Clicked=1 Then
Explorer.Width=Form.Width
Explorer.Height=Form._
ClientHeight
Explorer.CreateObject ("WebBrowser")
html$=Label1.Caption
Explorer.Navigate "C:\BAS\RAPIDQ\RQDPhlp\htm\RQDP Release 01\examples\ole\ide.htm"
End IF
END SUB
SUB Escape
Explorer.Navigate("c:")
END SUB