With wb.AddInputGroup("form1", "ipg1", "列表项目")
.AddInput("店名", "店名", "text")
End With
With wb.AddButtonGroup("form1", "btg1", True)
.Add("btn1", "查询", "button").Attribute = ""
End With
可以把上面代码放下面弹窗不
With wb.AddButtonGroup("","bng2",True)
.Add("btn1","Dialog1").Attribute = """
End With
With wb.AddDialog("","dlg1", "提示","您的订单正在派送,请注意查收!")
.AddButton("btnOK","确定").Attribute = """
End With
[此贴子已经被作者于2024/9/22 22:05:37编辑过]