0

messageboxbuttons.yesno を使用してテキスト ボックスをクリアしようとしています。彼が別の変換を開始することを選択した場合は、テキスト ボックスをクリアします。何が悪いのかわからない。パブリック クラス 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
            MessageBox.Show(intFah.ToString & ControlChars.CrLf & "Would you like to start another temp conversion?", "Result", MessageBoxButtons.YesNo)
            If intFah = Windows.Forms.DialogResult.Yes Then
                TxtBoxTemp.Clear()
            ElseIf intFah = Windows.Forms.DialogResult.No Then

            End If
        Catch
            MessageBox.Show("Would you like to start another temp conversion?", "System Error", MessageBoxButtons.YesNo)

        End Try
    End Sub
End Class
4

3 に答える 3

0

メッセージボックスからの結果を保存していません....次の行：

If intFah = Windows.Forms.DialogResult.Yes

計算している温度をダイアログの結果と比較しようとしているため、不正解です。

ここの例に従えば、メッセージ ボックスから結果を取得して適切なアクションを実行する方法がわかります。

Clear() メソッドの使用は、VB コンテキストでも問題ありません。他の方法は次のようになります。

TxtBoxTemp.Text = String.Empty

でも、どちらでもOKです。

HTH、ネイサン

于 2013-03-20T03:08:08.147 に答える
0

MessageBox.Show()直接入れるだけIf

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) = Windows.Forms.DialogResult.Yes Then
            TxtBoxTemp.Text = String.Empty
        Else

        End If
    Catch
        MessageBox.Show("Would you like to start another temp conversion?", "System Error", MessageBoxButtons.YesNo)
    End Try
End Sub
于 2013-03-20T03:22:52.503 に答える
0

のように表示されMessageBox.Text = ""ますが、Visual Basic にアクセスできないため、確信が持てません。

于 2013-03-20T03:05:12.973 に答える