主题：[求助]使用Preview为什么同一界面不能放入其它的控件呢？

使用Preview为什么同一界面不能放入其它的控件呢？

使用Preview控件A显示内容。下面有两个按钮B。希望在AB中间加入一个图片浏览Uploader。可是无论如何这个Uploader就是无法加入。

加入在AB之间，B就不显示了；加入到B之后，Uploader根本就不显示。中间加入了表单也不行。

Preview和其它控件可以在同一屏幕上使用么？问题出在哪里呢？谢谢

不好意思!那是切图时打开封闭时多打开一条.,实际情况如下,程序和实际打开的窗口如下!谢谢

此主题相关图片如下：qq图片20200527093145.png

全部程序在这里,上端显示不下的就是一些取参数之类的

此主题相关图片如下：qq图片20200527094249.png

Dim e As RequestEventArgs = args(0)
Dim wb As New  weui
Dim PageNumber As Integer '=  e.GetValues("page")
Integer.TryParse(e.GetValues("page"), PageNumber)
Dim PrimaryKey As String = e.GetValues("key")
Dim rh As DataRow
Dim dhhm As String = e.Cookies("PhoneNum")
Dim ycid As String = e.Cookies("ycId")  '从cookie中获取 随机ID
Dim xzzd As String = e.Cookies("xzzd")  '从cookie中获取 随机ID
Dim _UserName As String=e.cookies("UserName")
Dim _UserBm As String=e.cookies("UserBm")

Dim   PageURL1 As String= "yc_sj_sqd.htm?page=" &  PageNumber & "&key=" & PrimaryKey & "&xzzd=" & xzzd
wb.AppendCookie("PageNumber",PageNumber) '将用户名和密码写入cookie
wb.AppendCookie("PrimaryKey",PrimaryKey)

wb.AppendHTML("<script src='./lib/table.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
Return 0

最新测试结果.如果加上   If rh.Isnull("图片")=False Then......End If 这段就什么也不显示了

 Dim  lsts As  New  List(of  String)
                lsts =   rh.Lines("图片")

问题找到了。是红色字体部分漏了。

这个问题找到了，新的问题出现了。图片没有显示。下面程序看到确认图片的绝对路径是正确的。程序运行也不出错了。但是在该显示图片的地方是一片空白没有缩图。点击后就一片黑。

  With wb.AddInputGroup("","ipg1","图片浏览")
       
        With .AddUploader("up2","照片浏览",True)
            .AllowAdd = False  '关闭文件上传功能
            Dim  lsts As  New  List(of  String)
            lsts =  rh.Lines("图片")
           
            For Each lst As String In lsts              
                Dim lsml As String=tpml & lst
                If FileSys.FileExists(lsml) Then
                    Functions.Execute("加入调测","sjcxxx",lsml,lst,"文件存在","","")
                Else
                    Functions.Execute("加入调测","sjcxxx",lsml,lst,"文件不存在","","")
                End  If
                .AddImage(lsml)
            Next
        End With
    End With

网页说的绝对路径是假的。一定要基于它的根目录？

但是在加入图片是可以使用真的绝对路径！显示就要相对路径了？

我的问题是：台式机的存图片是A，手机存放图片也放到了A里。网页的根目录是B，且是动态的程序COPY到哪根目录就到哪 是基于  HttpServer.WebPath = ProjectPath &  "web"  动态设定的。AB没有隶属关系。

希望两方上传的图片是共享的。我找该怎么办？

感谢！现在想了一个办法就是在给手机浏览如果找到这张图片就把他Copy到指定的一个目录，这个目录可以用相对路径表示。

实践证明都是按照要求实现决，但是手机上仍然看不到这三个文件？

此主题相关图片如下：qq图片20200527163626.png

 这是服务器上的记录。请老师看看是哪个地方又错了？

HttpServer.Close

HttpServer.Prefixes.Add("http://*/")
HttpServer.WebPath = ProjectPath &  "web"   '指定静态文件存储位置
HttpServer.Start()

'通用事件头
Dim fl As String
Dim path As String

Dim bt As String="营口维修调度管理系统"

If filesys.FileExists(path) Then
    Dim idx As Integer = path.LastIndexOf(".")
    Dim ext As String  = path.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(path)
            Return '这里必须返回
    End Select
End If