vb.net - MessageBoxのはいボタンを使用してTextBoxをクリアします

Question

Noテキストボックスをクリアする方法を見つけましたが、MessageBoxを押すとクリアされます。ユーザーが選択した場合にクリアしたいYes。ユーザーが選択した場合、No私は何もしたくありません。

    Private Sub BtnFah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFah.Click
        Try
            Dim intFah As Integer
            intFah = CInt(TxtBoxTemp.Text)
            intFah = (intFah * 9) / 5 - 32
            If MessageBox.Show(intFah.ToString & ControlChars.CrLf & "Would you like to start another temp conversion?", "Result", MessageBoxButtons.YesNo) Then
                TxtBoxTemp.Text = String.Empty
            End If
        Catch
            MessageBox.Show("Would you like to start another temp conversion?", "System Error", MessageBoxButtons.YesNo)

        End Try
    End Sub

Answer 1

を比較する必要があります。DialogResult

 Public Class Form1    
    Private Sub BtnFah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFah.Click
        Try
            Dim intFah As Integer
            intFah = CInt(TxtBoxTemp.Text)
            intFah = (intFah * 9) / 5 - 32
            If MessageBox.Show(intFah.ToString & ControlChars.CrLf & "Would you like to start another temp conversion?", "Result", MessageBoxButtons.YesNo) = DialogResult.Yes Then
                TxtBoxTemp.Text = String.Empty
            End If
        Catch
            MessageBox.Show("Would you like to start another temp conversion?", "System Error", MessageBoxButtons.YesNo)

        End Try
    End Sub
End Class

Answer 2

MessageBox.Showを返しますDialogResult。以下を確認する必要がありますDialogResult.Yes。

If MessageBox.Show(...) = DialogResult.Yes Then
   TxtBoxTemp.Text = String.Empty
End If

Answer 3

Qを変数として使用し、dimをmsgboxresultとして使用して、msgboxに結果を表示します。[はい]を押すと、テキストボックスがクリアになり、そうでない場合は、戻るか、何もしません。

 Dim q As MsgBoxResult
            q = MsgBox("Your Question", vbYesNo)
            If q = vbYes Then
                TextBox1.Clear()
            Else
                Return
            End If

Answer 4

これを試して...

If MessageBox.Show("Your Message", "Title", MessageBoxButtons.YesNo) = DialogResult.Yes Then
textbox.clear()
End If