WPF8消息框

Question

我想实现这个代码：

Dim result As MessageBoxResult = _ 
MessageBox.Show("Would you like to see the simple version?", _ 
"MessageBox Example", MessageBoxButton.OKCancel) 

If (result = MessageBoxResult.OK) Then 
    MessageBox.Show("No caption, one button.") 
End If 

但得到一个错误：类型“MessageBoxResult”为什么发生没有定义 ？

我使用的是：微软的Visual Studio 2013专业版12.0.30501.00更新2 Microsoft .NET Framework版本4.5.51641

Answer 1

如果System.Windows未解决，那么您的Windows Phone运行时应用程序（定位Windows Phone 8.1）而不是Windows Phone Silverlight应用程序（适用于8.0或8.1）。 Chubosaurus的步骤将创建一个Silverlight应用程序。

您可以在解决方案资源管理器中进行确认，该工具将显示项目的目标。要使用System.Windows和MessageBox，您需要Windows Phone Silverlight应用程序。

如果你有一款Windows Phone 8.1应用程序，你可以使用Windows.UI.Popups.MessageDialog代替

Async Function ShowMyDialog() As Task(Of Boolean) 
    Dim result As Boolean = False 
    Dim dialog As New Windows.UI.Popups.MessageDialog("Would you like to see the simple version?", "MessageDialog Example") 
    dialog.Commands.Add(New Windows.UI.Popups.UICommand("Ok", 
     Async Sub(command) 
      result = True 
      Dim okDialog As New Windows.UI.Popups.MessageDialog("No caption, one button.") 
      Await okDialog.ShowAsync() 
     End Sub)) 
    dialog.Commands.Add(New Windows.UI.Popups.UICommand("Cancel")) 
    dialog.DefaultCommandIndex = 0 
    dialog.CancelCommandIndex = 1 
    Await dialog.ShowAsync() 
    Return result 
End Function 

Answer 2

没有错，你的代码。它应该工作（我自己实现它）。所以它必须是一些链接错误/安装错误/或项目创建错误。

因此，让修复，所以让我们试试这个：

• 文件 - >新建 - >项目
• 选择模板 - > Visual Basic中 - > Store应用 - > Windows Phone的应用程序 - >空白应用程序（视窗电话的Silverlight）
  
• 选择作为目标8.0

---

应该为你生成一个空白的应用程序，然后让ŧ RY并在页面加载事件

Imports System 
Imports System.Threading 
Imports System.Windows.Controls 
Imports Microsoft.Phone.Controls 
Imports Microsoft.Phone.Shell 
Imports System.Windows 

Partial Public Class MainPage 
    Inherits PhoneApplicationPage 

    ' Constructor 
    Public Sub New() 
     InitializeComponent() 

     SupportedOrientations = SupportedPageOrientation.Portrait Or SupportedPageOrientation.Landscape 

    End Sub 

    Private Sub PhoneApplicationPage_Loaded(sender As Object, e As RoutedEventArgs) 
     Dim result As MessageBoxResult = _ 
     MessageBox.Show("Would you like to see the simple version?", _ 
     "MessageBox Example", MessageBoxButton.OKCancel) 

     If (result = MessageBoxResult.OK) Then 
     ' Do whatever 
     End If 

    End Sub 
End Class 

---

创建一个消息如果不工作，那么我们需要确保System.Windows进口

• 右键单击项目 - >属性
• 点击参考
• 确保System.Windows有一个勾号