小编BUR*_*OHN的帖子

我需要一个在其中保留美元符号的文本框。我不希望允许用户不在文本框中使用它。

这是我的代码，效果非常好。现在我只需要以某种方式在开头硬编码一个 $ 。

 Private Sub txtPriceAmount_KeyDown(ByVal sender As Object, ByVal e As  System.Windows.Forms.KeyEventArgs) Handles txtPriceAmount.KeyDown
    If (e.KeyCode >= Keys.D0 And e.KeyCode <= Keys.D9) OrElse (e.KeyCode >= Keys.NumPad0 And e.KeyCode <= Keys.NumPad9) OrElse e.KeyCode = Keys.Back Then
        acceptableKey = True
    Else
        acceptableKey = False
    End If

End Sub

Private Sub txtPriceAmount_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPriceAmount.KeyPress


    ' Check for the flag being set in the KeyDown event.
    If acceptableKey = False Then
        ' Stop the character …