Bestimmen eines leeren oder ganzzahligen oder dezimalen Textfelds

Question

Ich kann mein Programm nicht dazu bringen, die Daten im Textfeld zu nehmen und zu sagen, ob es leer ist, eine Ganzzahl oder Dezimalzahl enthält. Wenn es leer ist, möchte ich die Variable PropAmt zu 0.00 zuweisen. Wenn es eine ganze Zahl hat, möchte ich PropAmt einer Dezimalzahl zuweisen. Und wenn es eine Dezimalzahl ist, lassen Sie PropAmt in Ruhe.

Dies ist, was ich bisher:

Dim PropAMT = cdec(txtPropAMT.Text) 
If txtPropAMT.Text = "" Then 
    txtPropAMT.Text = 0.0 
Else txtPropAMT.Text = CInt(txtPropAMT.Text) Then 
    PropAMT = PropAMT & ".00" 
ElseIf txtPropAMT.Text = CDec(txtPropAMT.Text) Then 
    PropAMT = PropAMT 
End If 

Answer 1

john,

hier ist das, was Sie für suchen worden Wenn txtBox.Text = String.Empty Dann

ElseIf (txtBox.Text Is GetType(Integer)) Then 

    ElseIf (txtBox.Text Is GetType(Decimal)) Then 

    End If 

Answer 2

john hier ist es

Dim intvalue As Integer 
    Dim decValue As Decimal 
    If txtBox.Text = String.Empty Then 
     txtBox.Text = "0.0" 
    ElseIf Integer.TryParse(txtBox.Text, intvalue) Then 
     txtBox.Text += ".00" 

    ElseIf Integer.TryParse(txtBox.Text, decValue) Then 

    End If 

lassen Sie mich wissen, wenn Sie noch ein Problem haben.