以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [建议]建议Uploader增加个链接参数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=103599)
--  作者：18523982317
--  发布时间：2017/7/12 15:03:00
--  [建议]建议Uploader增加个链接参数
官方，能否把Uploader图片框架增加个两个参数，默认情况下为false，false情况下，点击就打开 Gallery， 开启情况下为true，为true的时候，增加个链接属性，可以放置链接，能否采纳？Gallery真的有时候不好用!
--  作者：有点甜
--  发布时间：2017/7/12 15:22:00
--  

变通绑定onclick事件

 

        Dim wb As New WeUI
        wb.AddForm("","form1","test.htm")
       
        With wb.AddInputGroup("form1","ipg22","文件上传") \'带图片浏览的文件上传
            With .AddUploader("up2","图片",True) \'True表示允许一次上传多个文件
                .AddImage("./images/001.jpg\' onclick=\'alert(123)")
                .AddImage("./images/002.jpg")
                .AddImage("./images/003.jpg")
            End With
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) \'生成网页

[此贴子已经被作者于2017/7/12 15:22:11编辑过]
--  作者：18523982317
--  发布时间：2017/7/12 15:51:00
--  
onclick=\'alert(123)" = 网址就可以了?
--  作者：有点甜
--  发布时间：2017/7/12 15:59:00
--  
以下是引用18523982317在2017/7/12 15:51:00的发言：
onclick=\'alert(123)" = 网址就可以了?

 

里面可以定义一个js函数；也可以直接写js代码

 

location = \'www.baidu.com\'
--  作者：18523982317
--  发布时间：2017/7/12 17:10:00
--  
关键是JS不会啊。。。蛋疼。。。
--  作者：有点蓝
--  发布时间：2017/7/12 17:26:00
--  
学呗。做网页js是绕不过的坎。
--  作者：18523982317
--  发布时间：2017/7/12 17:55:00
--  
JS一天两天怕是学不会的吧。。
--  作者：有点甜
--  发布时间：2017/7/12 21:42:00
--  
以下是引用18523982317在2017/7/12 17:55:00的发言：
JS一天两天怕是学不会的吧。。

 

那就直接写

 

Dim wb As New WeUI
        wb.AddForm("","form1","test.htm")
       
        With wb.AddInputGroup("form1","ipg22","文件上传") \'带图片浏览的文件上传
            With .AddUploader("up2","图片",True) \'True表示允许一次上传多个文件
                .AddImage("./images/001.jpg\' onclick=\'location=""http://www.baidu.com""")
                .AddImage("./images/001.jpg")
                .AddImage("./images/003.jpg")
            End With
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) \'生成网页