主题：[求助] 查看详细图片

老师，代码如下，如何做到，单击图片可以放大图片来浏览；

Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AddPageTitle("","pageheader","2020","春节联欢晚会")
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
wb.AddPage("","page1") '增加两个page
With wb.AddArticle("page1","ar1")
    .AddTitle("h1","关于节目评分标准")
    .AddContent("使用说明:评委按节目评分标准逐项打分,由计分员收集统计总分..")
    .AddImage("./images/score1.png")
End With
wb.AddForm("","form1","logon.htm")
With wb.AddButtonGroup("form1","btg1",True)  '垂直排列
    .Add("btn5", "返回", "", "homepage.htm") '单击这个按钮可以打开foxtable主页
End With
e.WriteString(wb.Build) '生成网页

老师，之前我也用了以下这行代码，但是图片没办法放大，跟在Article看的效果一样；

因为图片的内容有点多，能不能点击后像查看图片的效果 一样，可以拉着放大。

 .UseGallery = True '启用Gallery,必须放在第一行

老师，代码就是以下这么多，显示效果，在最后

Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AddPageTitle("","pageheader","2020","春节联欢晚会")
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
wb.AddPage("","page1") '增加两个page
With wb.AddArticle("page1","ar1")
    .UseGallery = True '启用Gallery,必须放在第一行
    .AddTitle("h1","关于节目评分标准")
    .AddContent("使用说明:评委按节目评分标准逐项打分,由计分员收集统计总分..")
    .AddImage("./images/score1.png")
End With
wb.AddForm("","form1","logon.htm")
With wb.AddButtonGroup("form1","btg1",True)  '垂直排列
    .Add("btn5", "返回", "", "homepage.htm") '单击这个按钮可以打开foxtable主页
End With
e.WriteString(wb.Build) '生成网页.

以下是原图

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

以下是生成网页的效果

 
此主题相关图片如下：无标题.png

点击图片的后的效果如下！
此主题相关图片如下：无标题21.png

老师，对，这个图片内容多，在手机上如果不放大，基本看不到信息，但如果要保存，再打开，这样不利于用户操作，有没有其它方法 。