12、奇怪的事件头:以下是“我想显示一个图片”中的代码,按正常的逻辑这个图片是显示不了的,但实际上if—else—endif中的两段代码都执行了,而帮助文档没做任何解释(是否每次请求都要从事件头开始执行吗?流量、效率、手机费电情况如何?辛辛苦苦开发的软件是否会因流量大、效率低、费电大而遭到抵触?),相信小白都会看得云里雾里。
Dim fl As String = "d:\web\" & e.path ’执行两次
MessageBox.Show(e.path) '第一次是空白,第二次是abc.jpg
If filesys.FileExists(fl) '如果是请求一个已经存在的文件
MessageBox.Show(2) ‘后显示2
MessageBox.Show(e.path) 'abc.jpg
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
Select Case ext
Case ".jpg",".gif",".png",".bmp",".wmf" '只允许请求图片文件
e.WriteFile(fl)
End Select
Else
MessageBox.Show(1) '先显示1
Dim sb As New StringBuilder
sb.Appendline("我想显示一个图片<br/><br/>")
sb.AppendLine("<img src='abc.jpg'>")
e.WriteString(sb.ToString())
End If
[此贴子已经被作者于2017/5/27 10:24:43编辑过]