-1

私はこれを数日やっています。私がやりたかったのは、Enterキーを押したときです。txtbox1に入力した数値に12を掛けて、txtbox2に出力を表示します。しかし、運はありません。誰かが私を助けてくれますか？これが私のコードです：

Private Sub txt1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txt1.KeyDown
    Dim a, b, c As Integer
    txt1.Text = a
    b=a*12
    If e.KeyCode = Keys.Enter Then
      txt2.text = b
    End If
End Sub
4

1 に答える 1

1

そのはず

a = txt1.Text

それ以外の

txt1.Text = a

それ以外の場合は、 に設定txt1.Textするだけ0です。

ところで、TryParseテキストボックス内のテキストに有効な数値が含まれていない場合に期待がスローされないようにするために、このメソッドを適切に使用する必要があります。

Dim number = 0
If e.KeyCode = Keys.Enter AndAlso Int32.TryParse(txt1.Text, number) Then
    txt2.Text = (number * 12).ToString()
End If
于 2012-08-23T10:32:43.537 に答える