| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 类似这样的确认框可以增加倒计时显示并在倒计时结束后默认确认吗 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=119221) |
| -- 作者：liufucan -- 发布时间：2018/5/20 17:48:00 -- 类似这样的确认框可以增加倒计时显示并在倒计时结束后默认确认吗 Dim Result As DialogResult Result = MessageBox.Show("你确定要删除当前行吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Result = DialogResult.Yes Then CurrentTable.Current.Delete MessageBox.Show("已经删除.","提示") End If |
| -- 作者：有点甜 -- 发布时间：2018/5/20 20:44:00 -- 参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=66974&skin=0
|
| -- 作者：liufucan -- 发布时间：2018/5/21 11:33:00 -- 谢谢老师 Dim Result As DialogResult Result = MessageBoxTimeout(BaseMainForm.Handle, "内容:两秒后关闭", "标题:", vbOKCancel, 0, 2000) If Result = DialogResult.OK Or Result = 32000 Then MessageBox.Show("已经删除111.","提示") ElseIf Result = DialogResult.Cancel Then MessageBox.Show("已经删除222.","提示") End If |