以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [建议]MessageBox增加个属性,可以设定消息窗打开时黙认的按钮选定  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72557)

--  作者:rightinfo2014
--  发布时间:2015/8/1 8:51:00
--  [建议]MessageBox增加个属性,可以设定消息窗打开时黙认的按钮选定

如题。我的一些客户希望能有这样的功能,一方面可减少多余的操作,同时也可减少误操作。

谢谢!


--  作者:逛逛
--  发布时间:2015/8/1 9:10:00
--  

Dim Result As DialogResult = MessageBox.Show("Visual Basic一点不难,是不是?", "提示", MessageBoxButtons.YesNo,MessageBoxIcon.Question ,MessageBoxDefaultButton.button2)

 

If Result = DialogResult.Yes Then
    Output.show("Yes")
Else
    Output.show("No")
End If

 

MessageBoxDefaultButton 枚举有三个   用于设置默认按钮

button1      0      第一个按钮

button2      256  第二个按钮

button3      512  第三个按钮


--  作者:有点蓝
--  发布时间:2015/8/1 9:19:00
--  
分享一下MessageBox各种用法

MessageBox("消息内容", "返回值 确定1",MessageBoxButtons.OK,MessageBoxIcon.Question);

MessageBox("消息内容",, "返回s值 确定1 取消2",MessageBoxButtons.OKCancel, MessageBoxIcon.Asterisk);

MessageBox("消息内容", "返回值 终止3 重试4 忽略5",MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Error);

MessageBox("消息内容", "返回值 是6 否7 取消2",MessageBoxButtons.YesNoCancel, MessageBoxIcon.Exclamation);

MessageBox("消息内容", "返回值 是6 否7",MessageBoxButtons.YesNo, MessageBoxIcon.Hand);

MessageBox("消息内容", "返回值 重试4 取消2",MessageBoxButtons.RetryCancel, MessageBoxIcon.Information);

MessageBoxIcon: 所有图标样式

MessageBoxIcon.Question

MessageBoxIcon.Asterisk

MessageBoxIcon.Information

MessageBoxIcon.Error

MessageBoxIcon.Stop

MessageBoxIcon.Hand

MessageBoxIcon.Exclamation

MessageBoxIcon.Warning

MessageBoxIcon.None

MessageBox函数MessageBox()函数MessageBox是标准的windows Api函数只能在CWnd类的继承类中使用,在C#中使用时,通常用MessageBox的show方法来实现对话框的弹出,命名空间System.Windows.Forms

应用实例: DialogResult r1 = MessageBox.Show ( "是否确定?" , "垃圾处理!" , MessageBoxButtons.AbortRetryIgnore , MessageBoxIcon.Question ) ;

int ss1=(int)r1 ;

if ( ss1==3 ){ }

if ( ss1==4 ){ }

if ( ss1==5){ }

===============================================================================================

实例1:MessageBox.Show("乐博网 VB.Net爱好者的组织" & vbCrLf & "期待您的加入!", "乐博网提示", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)

效果图1:

MessageBox.Show()的各种用法 - china_xuhua=

实例2: MessageBox.Show("乐博网 VB.Net爱好者的组织" & vbCrLf & "期待你的加入!", "乐博网提示", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button3)

效果图2:

MessageBox.Show()的各种用法 - china_xuhua=


--  作者:rightinfo2014
--  发布时间:2015/8/1 12:24:00
--  

又学习进步了。谢谢!!!@有点蓝,@逛逛