在Visual FoxPro 5.0中激活Internet Explorer

目前，Inte.net/ Intranet技术已日趋成熟，构造企业级Intranet已被越来越多的
企业所采纳。Intranet是采用Internet技术构造企业内联网络，它既可以实现企业
内部的信息共享，也可以通过Internet与外部世界交流信息，具有很大的灵活性。
当前，很多应用系统的开发建构在Intranet/Web结构上，这使得客户端的用户能够
通过浏览器查询或访问Web服务器端的数据库、浏览HTML页面。浏览器是与用户相
关的界面，虽然Web服务器后端应用程序与浏览器没有直接的交互，应用程序却通
过回送一个完整的HTML页面进行显示，以一种非交互的方式提供了界面。

Microsoft正在将Web浏览器界面直接并入将来的Windows操作系统版本中。在
Internet Explorer 4.0中，Web浏览器与其它用于文件浏览及显示桌面应用程序的
界面部件之间没有什么差别。浏览器正在成为无所不在的应用程序，它提供了漫游
Web、局域网、甚至是用户自己的计算机和应用程序所需的全部功能。

Visual FoxPro 使组织数据、定义数据库规则和建立应用程序等工作变得简单易行。
Visual FoxPro的集成化的开发环境不但拥有功能强大的面向对象程序设计工具以
及客户/服务器能力，而且支持 OLE 及 ActiveX。如果你在系统中安装了Internet
Explorer，而且它是缺省的浏览器，用下面的方法，就能通过Visual Foxpro控制
Web浏览器访问Web站点。

建立一个Visual Foxpro表单，其中，启动Internet Explorer的代码为：

oie = CreateObject("InternetExplorer.Application")，

CreateObject函数从一个OLE应用中创建一个对象。关闭Internet Explorer

的代码为：

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与Internet
Explorer的前进对应。

Oie类的主要成员变量为：oie.Top，oie.Left窗口左上角坐标；oie.Height窗口高度；
oie.Width窗口宽度；oie.StatusText窗口状态条显示信息；oie.StatusBar窗口是否
有状态条；oie.FullScreen窗口是否全屏显示；oie.ToolBar窗口是否有工具条；
oie.Visible窗口是否可见；oie.MenuBar窗口是否有菜单。通过设置这些成员变量，
可以控制Internet Explorer的窗口大小、位置及各种状态。

这样，我们就可以生成一个在Visual FoxPro中激活并控制Internet Explorer的程序，
该程序可以作浏览器用。在Visual Foxpro 5.0及Internet Explorer 4.0环境下实现。

原文转自：http://www.ltesting.net