以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]窗口web地址是否可用ftp  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87229)

--  作者:yzxdz750626
--  发布时间:2016/7/6 10:30:00
--  [求助]窗口web地址是否可用ftp
窗口中的WebBrowser,与目录树节点相连。
1、我用的是局域网服务器,看帮助文件里,web.address只介绍了网址和本地路径;
2、试着服务器里建立了一个网站,但内网IP地址不可行;
3、也试过地址“ftp://用户名:密码@地址/”,也不可行,现在用的是本地路径作为地址。
我的代码如下:
Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim bweb = web.basecontrol
Select Case e.node.name
    Case "封面"
        Dim tm As String  = ProjectPath & "Attachments\\封面.htm"
        web.Address = tm
        bweb.isWebBrowserContextMenuEnabled = False
        bweb.WebBrowserShortcutsEnabled = False
    Case "前言"
        Dim tm As String  = ProjectPath & "Attachments\\前言.htm"
        web.Address = tm
        bweb.isWebBrowserContextMenuEnabled = False
        bweb.WebBrowserShortcutsEnabled = False
    Case "第一章 职业准则"
        Dim tm As String  = ProjectPath & "Attachments\\第一章职业准则.htm"
        web.Address = tm
        bweb.isWebBrowserContextMenuEnabled = False
        bweb.WebBrowserShortcutsEnabled = False
    Case "第二章 行为准则"
        Dim tm As String  = ProjectPath & "Attachments\\第二章行为准则.htm"
        web.Address = tm
        bweb.isWebBrowserContextMenuEnabled = False
        bweb.WebBrowserShortcutsEnabled = False
end select
这个代码是否还可以再简洁一点?
web.address =  如果用ftp,代码怎么写?或者其他解决方式?

还请老师解惑!谢谢!

--  作者:大红袍
--  发布时间:2016/7/6 10:36:00
--  

1、我测试这个路径可以

 

ftp://test:test@127.0.0.1/

 

2、建了网站,那就直接用网址访问啊

 

3、ftp://test:test@127.0.0.1/test.jpg  测试没问题


--  作者:yzxdz750626
--  发布时间:2016/7/6 14:42:00
--  
感谢大红袍老师,ftp路径解决了,还是用的以前大红袍老师教的,我做了两ftp,搞混了密码!