從Public Sub獲取DialogResult（模塊）

Question

我不知道要搜索什麼關鍵字。

這是在我的應用程序模塊。

Public Sub msgYNC(ByVal result As DialogResult) 
    result = MessageBox.Show("Are you sure you want to save and continue?", "RM Farms Confirmation", _ 
       MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) 
End Sub 

現在我想在窗體上使用它。所以，當我點擊確認：

Dim result As DialogResult 
    msgYNC(result) 
    If result = Windows.Forms.DialogResult.Yes Then 
     'yes 
    ElseIf result = Windows.Forms.DialogResult.No Then 
     'n 
    ElseIf result = Windows.Forms.DialogResult.Cancel Then 
     'ca 
    End If 

但它不會返回我什麼。我沒有得到迴應。我不確定如何編碼，你能指出什麼是錯的？

Answer 1

解決方案應該非常簡單。不要在你的Sub中使用byval，請使用byref

Public Sub msgYNC(ByRef result As DialogResult) 
    result = MessageBox.Show("Are you sure you want to save and continue?", 
          "RM Farms Confirmation", _ 
          MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) 
End Sub 

你能試試嗎？

Altough你可以用以下結構（如果你只想要顯示在您的sub-method msgYNC一個消息）

Select Case MessageBox.Show("", "", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) 
     Case Windows.Forms.DialogResult.Yes 
      'Do something 
     Case Windows.Forms.DialogResult.No 
      'Do something else 
     Case Windows.Forms.DialogResult.Cancel 
      'Cancel something 
     Case Else 
      'Do something unusefull 
    End Select