在VFP里全屏幕开启一个IE窗口

在VFP里全屏幕开启一个IE窗口

---

oie = CreateObject("InternetExplorer.Application")
*oie.Top=0
*oie.Left=0
*oie.Height=500
*oie.Width=500
oie.MenuBar=.f.
oie.StatusBar=.f.
oie.Navigate("http://rts.coolbel.com")
oie.FullScreen=.t.
oie.ToolBar=.f.
oie.Visible=.t.
*If Type('oie') = "O"
*oie.Quit
*Release oie
*EndIf

*Oie类的主要成员函数为：oie.Navigate(String URL)联向URL指定的某个接点；
*oie.GoHome与Internet Explorer的主页对应；oie.GoSearch与Internet Explorer的搜索对应；
*oie.GoBack与Internet Explorer的后退对应；oie.GoForward与InternetExplorer的前进对应。
*Oie类的主要成员变量为：oie.Top，oie.Left窗口左上角坐标；oie.Height窗口高度；oie.Width窗口宽度；
*oie.StatusText窗口状态条显示信息；oie.StatusBar窗口是否有状态条；
*oie.FullScreen窗口是否全屏显示；
*oie.ToolBar窗口是否有工具条；
*oie.Visible窗口是否可见；
*oie.MenuBar窗口是否有菜单。