使用Gallery
Gallery
用于实现图片的展示或幻灯片播放。
我们之前介绍的Uploader,其图片浏览窗口就是一个Gallery。
Gallery也可以单独创建和使用。
一个例子
HttpRequest事件代码:
Select Case
e.Path
Case "test.htm"
Dim
wb As new
WeUI
With
wb.AddGallery("","gla1")
.AddImage("./images/001.jpg","./images/002.jpg","./images/003.jpg","./images/004.jpg")
End
With
e.WriteString(wb.Build)
'生成网页
End Select
下图是通过手机访问的效果,点击图片的右侧切换到下一副图片,单击图片左侧切换到上一副图片:
AddGallery
AddGallery用于添加AddGallery,语法:
AddGallery(ParentID,
ID)
AddGallery(ParentID, ID, Visible)
AddGallery(ParentID, ID, Visible, AutoHide)
ParentID | 父容器的ID,如果是顶层对象,设置为""即可。 |
ID | Gallery的ID。 |
Visible | 逻辑型,可选参数,Gallery初始是否可见,默认为True |
AutoHide | 逻辑型,可选参数,默认为False,当需要和其他组件配合使用时,可将此属性设置为True,这样点击图片中央位置,会自动隐藏Gallery。 |
AddImage
AddImage用于向Gallery添加图片,语法:
AddImage(Images)
AddImage(Image1, Image2, Image3...)
Images | 图片文件的集合或数组。 |
Image1, Image2, Image3 | 要添加的多个图片文件。 |