Foxtable(狐表)用户栏目专家坐堂 → 小儿科问题之三:来自我想显示图片


  共有1969人关注过本帖树形打印复制链接

主题:小儿科问题之三:来自我想显示图片

帅哥哟,离线,有人找我吗?
czy66ds
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1691 积分:16472 威望:0 精华:0 注册:2013/7/31 13:03:00
小儿科问题之三:来自我想显示图片  发帖心情 Post By:2017/5/17 10:30:00 [只看该作者]

Dim fl As String = "d:\web\" & e.path '合成含路径的文件名
If filesys.FileExists(fl) '如果是请求一个已经存在的文件
    e.WriteFile(fl) 
'
则发送此文件

Else

    Dim sb As New StringBuilder
    sb.Appendline(
"
我想显示一个图片<br/><br/>")
    sb.AppendLine("<img src='abc.jpg'>")
    e.WriteString(sb.ToString())

End
 If 



我想不通的是如果代码中红的部分为真,那么粉的部分还能执行吗?

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111726 积分:568772 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/5/17 10:37:00 [只看该作者]

这个是用来发送请求的文件的,如果不是文件那就不为真了。

 回到顶部
帅哥哟,离线,有人找我吗?
czy66ds
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1691 积分:16472 威望:0 精华:0 注册:2013/7/31 13:03:00
  发帖心情 Post By:2017/5/17 10:49:00 [只看该作者]

if 后边怎么没有Then

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/17 10:51:00 [只看该作者]

 Then 可以写可以不写。

 

 Then 是VB的语法,vb.net里面兼容vb的语法。


 回到顶部
帅哥哟,离线,有人找我吗?
hgzvip
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:77 积分:826 威望:0 精华:0 注册:2015/9/5 18:02:00
  发帖心情 Post By:2017/11/9 20:10:00 [只看该作者]

我把代码该了一下来测试(增加了四个MessageBox):
Dim fl As String = "d:\web\" & e.path '合成含路径的文件名
    MessageBox.Show(fl) '显示路径
If filesys.FileExists(fl) '如果是请求一个已经存在的文件
    MessageBox.Show("1")
    e.WriteFile(fl) '则发送此文件
Else
    MessageBox.Show("2")
    Dim sb As New StringBuilder
    sb.Appendline("我想显示一个图片<br/><br/>")
    sb.AppendLine("<img src='abc.jpg'>")
    e.WriteString(sb.ToString())
    MessageBox.Show("3")
End If

然后在浏览器中加载的时候,弹窗是这样一个顺序:
d:\web\【浏览器空白】 → 2【浏览器空白】 → 3 【浏览器出现文字‘我想显示一个图片’,没有图片】 → d:\web\abc.jpg 【浏览器只有文字】 → 1 【只有文字】 → 【浏览器出现图片】

照这样看,代码是先合并了一个不完整的路径“d:\web\”,然后执行了“Else”,出现了文字,没有图片,然后获取了一个完整的路径“d:\web\abc.jpg”,最后又执行一次,在“If”中结束。

看帮助确实看不太明白。


 回到顶部