Sub 输出对话框()
Dim dt As Date = Today
Dim wd As Integer
Dim wn As String
wd = Weekday(Today, DayOfWeek:=FirstDayOfWeek.Monday)
wn = WeekdayName(Weekday:=wd, Abbreviate:=False, FirstDayOfWeekValue:=FirstDayOfWeek.Monday)
Dim ss As String = "今天是：" & dt & vbNewLine & "数字星期是：" & wd & vbNewLine & "星期名称是：" & wn
'Dim arr() As Integer = New Integer() {0, 1, 2, 3, 4, 5, 16, 32, 48, 64, 0, 256, 512, 0, 4096, 65536, 524288, 1048576}
'For Each s In arr
' MsgBox(Prompt:=ss, Buttons:=s, Title:="日期报告")
'Next
Dim callback As MsgBoxResult
callback = MsgBox(Prompt:=ss, Buttons:=MsgBoxStyle.OkCancel + MsgBoxStyle.Question + MsgBoxStyle.DefaultButton2, Title:="日期报告")
Select Case callback
Case = MsgBoxResult.Ok
Console.WriteLine("你点击确认按钮")
Case = MsgBoxResult.Cancel
Console.WriteLine("你点击取消按钮")
Case = MsgBoxResult.No
Console.WriteLine("你点击x按钮")
End Select
End Sub
循环出来各个button样式–依次按照顺序
OKOnly
OKCancel
AbortRetryIgnore
YesNoCancel
YesNo
RetryCancel
Critical
Question
Exclamation
Information
MsgBoxRight
MsgBoxRtlReading
微软文档链接
https://docs.microsoft.com/zh-cn/dotnet/api/microsoft.visualbasic.interaction.msgbox?f1url=https%3A%2F%2Fmsdn.microsoft.com%2Fquery%2Fdev15.query%3FappId%3DDev15IDEF1%26l%3DZH-CN%26k%3Dk(Microsoft.VisualBasic.Interaction.MsgBox);k(TargetFrameworkMoniker-.NETFramework,Version%3Dv4.0);k(DevLang-VB)%26rd%3Dtrue&view=netframework-4.8
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。
文章由极客之音整理，本文链接：https://www.bmabk.com/index.php/post/107160.html
