以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  加一个不再提示的按钮就好了  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169981)

--  作者:hbfnmxb
--  发布时间:2021/7/8 10:54:00
--  加一个不再提示的按钮就好了
加一个不再提示的按钮就好了,这个功能其实很实用!在其它错误提示时,也应该加上一个“不再提示的按钮”这样方便。
图片点击可在新窗口打开查看此主题相关图片如下:999999.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2021/7/8 11:04:00
--  
Dim Result As DialogResult
Do While True
    Result = MessageBox.Show("Visual Basic一点不难,是不是?(不再提示请点击取消)", "提示", MessageBoxButtons.OKCancel , MessageBoxIcon.Question)
    If Result = DialogResult.OK Then
        MessageBox.Show("不错,说明你已经认真学习了.","提示")
    Else
        Exit Do
    End If
Loop

--  作者:hbfnmxb
--  发布时间:2021/7/8 13:18:00
--  
这段代码放在哪里?
--  作者:有点蓝
--  发布时间:2021/7/8 13:44:00
--  
命令窗口!只是提供一个测试代码说明MessageBox可以怎么用,和您的业务没有半毛钱关系,看懂代码逻辑再搬到自己功能中
--  作者:hbfnmxb
--  发布时间:2021/7/8 16:16:00
--  
我的意思是系统内部直接加上这个取消提示的按钮!!默认向下执行。否则只有强行退出了!!大量数据无法保存,的确是个损失!!
--  作者:有点蓝
--  发布时间:2021/7/8 16:25:00
--  
哦,这暂时没有办法。行自己的提示,内部不知道到底还有多少行没有处理,也无法控制其它行