1

目前，我有一个代码可以让我直接从我的 Progress 应用程序中打开 Web 浏览器。

DEFINE VARIABLE cProgramName  AS CHARACTER  NO-UNDO.
DEFINE VARIABLE cPageAddress  AS CHARACTER  NO-UNDO.
DEFINE VARIABLE iReturnResult AS INTEGER    NO-UNDO.

ASSIGN
    cProgramName = "C:\Program Files\Internet Explorer\iexplore.exe"
    cPageAddress    = "http://www.progress.com".

RUN WinExec (INPUT cProgramName + CHR(32) + cPageAddress , INPUT 1, OUTPUT iReturnResult).

PROCEDURE WinExec EXTERNAL "KERNEL32.DLL":
    DEFINE INPUT  PARAMETER ProgramName AS CHARACTER.
    DEFINE INPUT  PARAMETER VisualStyle AS LONG.
    DEFINE RETURN PARAMETER StatusCode  AS LONG.
END PROCEDURE.

现在我想在对话框、弹出窗口或框架中打开浏览器。我找不到任何代码来帮助我！

4

1 回答 1

2

在 AppBuilder 中，从面板中选择“OCX”。然后将“Microsoft Web 浏览器”Active X 控件拖到您的框架上。

要导航到某个网页，请使用：

chCtrlFrame:WebBrowser:Navigate ("http://www.progress.com").
于 2017-01-05T11:18:39.810 回答