SelectCase e.PathCase "test.htm"Dim wb As NewWeUIWith wb.AddButtonGroup("","bng2",True).Add("btn1","内容1").Attribute = "FONT-FAMILY: 宋体; COLOR: brown">恭喜','恭喜您抽中大奖,记得及时领奖哦!')""".Add("btn2","内容2").Attribute = "FONT-FAMILY: 宋体; COLOR: brown">成功','增加记录成功,单击确定继续增加!')"""End WithWith wb.AddDialog("","dlg1","","").AddButton("btnOK","确定")EndWithe.WriteString(wb.Build)'生成网页End Select
上面示例中 showDialog('dlg1','恭喜','恭喜您抽中大奖,记得及时领奖哦!')是通过按钮触发的。可不可以不通过按钮直接运行呢?