Select Case e.Path Case "test.htm", "" Dim wb As New WeUI With wb.AddButtonGroup("","bng2",True) .Add("btn1","Toast1").Attribute = """ '参数2000表示2秒后隐藏 .Add("btn2","Toast2").Attribute = """ .Add("btn3","Toast3").Attribute = """ End With wb.AddToast("","t1", "操作完成",0) wb.AddToast("","t2", "正在加载",1) wb.AddToast("","t3", "操作完成",0).Icon= "success" wb.InsertHTML("<style>.weui_toast{min-height: 1px;padding-top: 12px;}.weui_icon_toast{display:none}</style>") e.WriteString(wb.Build) End Select
|