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

#2

sdta2021-03-22 15:21

..............

[此贴子已经被作者于2021-3-22 17:30编辑过]

#3

lygcw96032021-03-22 19:15

只有本站会员才能查看附件，请登录

#4

wengjl2021-03-22 20:23

sdta 我刚到家准备发你，你这么把邮箱给删了。哎

#5

wengjl2021-03-22 20:24

lygcw9603好，这是用的什么办法？

#6

wengjl2021-03-22 20:29

只有本站会员才能查看附件，请登录

#7

sdta2021-03-22 21:15

以下是引用wengjl在2021-3-22 20:23:20的发言：

sdta 我刚到家准备发你，你这么把邮箱给删了。哎

以为你的文档保密，故此删除了回帖内容

#8

bccn2012032021-03-22 21:19

程序代码：

Public oform1
oform1=Newobject("form1")
oform1.Show
Return
Define Class form1 As Form
    Top = 0
    Left = 0
    Height = 700
    Width = 1024
    ShowWindow = 2
    DoCreate = .T.
    Caption = "Form1"
    WindowState = 2
    WindowType = 1
    Name = "form1"

    Add Object olewebbrowse As OleControl With ;
        Top = 6, ;
        Left = 5, ;
        Height = 960, ;
        Width = 1270, ;
        Name = "OleWebBrowse", ;
        OleClass = "Shell.Explorer.2", ;
        OleLCID = 1033

    Procedure olewebbrowse.Init
        This.Navigate(SYS(5) + SYS(2003) + "/171.html")
    Endproc

Enddefine

#9

wengjl2021-03-23 08:16

谢谢BCCN201203，我晚上回家试试

#10

wengjl2021-03-23 13:27

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

#11

吹水佬2021-03-23 14:11

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

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

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

#12

wengjl2021-03-24 09:45

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

只有本站会员才能查看附件，请登录

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

#13

吹水佬2021-03-24 10:42

只有本站会员才能查看附件，请登录

程序代码：

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

#14

wengjl2021-03-24 13:42

谢谢！非常感谢！
今天　下班回家　继续试

#15

wengjl2021-03-24 19:05

功力不够，弄不好。哎！
谢谢各位大伽！

#16

whinda2021-04-05 03:33

Help WorkShop编译成chm不好吗？折腾。