在键盘中点击H，我想让他显示为00，不显示为H，在VB中怎么做啊？？？在线等！！！！

Question

在一个TEXT中我要输入12300123这个数字，其中有00这个数字我要在键盘上通过H键来实现在VB中的程序改怎么写啊？？？

Answer 1

Private Sub txtDepositMny_KeyPress(KeyAscii As Integer)
   'check只能输入数字键和回车
    Select Case KeyAscii
         Case vbKey0 To vbKey9, vbKeyDecimal, vbKeyDelete, vbKeyBack, vbKeyF1 To vbKeyF12
      程序要写在这里的
       
         Case vbKeyReturn
             Me.txtDepositMny.Text = Format(Me.txtDepositMny.Text, "#0.00")
             SendKeys "{Tab}"
             KeyAscii = 0
         Case Else
               KeyAscii = 0
    End Select
    
End Sub

Answer 2

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If UCase(Chr(KeyAscii)) = "H" Then
        KeyAscii = 0
        Text1.Text = Text1.Text & "00"
        Text1.SelStart = Len(Text1.Text)
    End If
End Sub