2016-10-21 3 views

答えて

1

にNumericUpDownをの最大値を設定しますそのイベントのNumericUpDownのMaximumプロパティ

Sub AB_Leave(sender As Object, e As EventArgs) 

    Dim value As Decimal 
    ' Safety check, the user can type anything in the textbox, 
    ' we accept only a decimal number 
    If Decimal.TryParse(AB.Text, value) Then 
     numericUpDown1.Maximum = value 
    End If 
End Sub 
+0

これは機能します!答えをありがとう、私の問題は、NumericUpDownにAB.Textの値を超える数値を入力すると、メッセージのエラーが表示されるはずです。 – User2341

+0

このように:numberUpDown.value> AB.Text MsgBox( "Invalid Data"、MsgBoxStyle.Critical、 "Inventory System"というエラーが表示されない理由を知りません。値 – User2341

+0

私はこの文脈で使用する準備ができていることに気づいていません。おそらく、この回答で説明されているようなキーボードイベントで直接作業する必要があります。http://stackoverflow.com/questions/17369670/how-to-validate-numericupdown-コピーやペーストの操作はどうでしょう?コントロール自体の直接的なサポートなしには、このレベルのコントロールに到達することは容易ではありません。コントロールをサブクラス化してください。これはもう1つのワームの可能性がありますし、先に進む前に実装するためのコストを重くする必要があります。 – Steve

関連する問題