表单上如何显示HTML文档的内容 - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 表单上如何显示HTML文档的内容

标题：表单上如何显示HTML文档的内容

只看楼主

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 11 楼

得分:13

以下是引用wengjl在2021-3-23 13:27:19的发言：

我想实现，表单的右侧显示查询得到文档名称列表，然后点击文档名称，将文档的内容　显示在表单的左。

在表单的左侧放个WebBrowser控件，在表单的右侧放个ListBox控件（RowSourceType=7）

2021-03-23 14:11

wengjl

等　级：贵宾
威　望：108
帖　子：2175
专家分：3785
注　册：2007-4-27

第 12 楼

得分:0

BCCN201203你好：
我的ＶＦ8.0试试，出现这样一个提示

再是如何弄到我的表单上？

只求每天有一丁点儿的进步就可以了

2021-03-24 09:45

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 13 楼

得分:0

程序代码：

SET DEFAULT TO ADDBS(JUSTPATH(SYS(16)))
of = CREATEOBJECT("form1")
of.show(1)
RETURN

DEFINE CLASS form1 as Form
    width = 800
    height = 400
    ADD OBJECT list1 as listbox WITH left=10,top=10,width=200,height=380,RowSourceType=7
    ADD OBJECT wb as OleControl WITH left=220,top=10,width=570,height=380,OleClass="Shell.Explorer.2"
    PROCEDURE list1.click
        cHtml = this.list(this.ListIndex)
        IF UPPER(JUSTEXT(cHtml))=="HTML"
            thisform.wb.Navigate(this.list(2)+cHtml)
        ENDIF
    ENDPROC
ENDDEFINE