# Re: 请问有没有将阿拉伯数字转成英文字的程式？

Posted by 小瓜瓜 on August 16, 1999 at 16:33:59:

In Reply to: 请问有没有将阿拉伯数字转成英文字的程式？ posted by Michael Owen on August 16, 1999 at 15:45:50:

: 请问有没有将阿拉伯数字转成英文字的程式？thanks

Private Sub Text1_KeyDown(KeyAscii As Integer, Shift As Integer)
Select Case Chr(KeyAscii)
Case "0"
KeyAscii = 0
Text1.SelText = "Zero"
Case "1"
KeyAscii = 0
Text1.SelText = "One"
Case "2"
KeyAscii = 0
Text1.SelText = "Two"
Case "3"
KeyAscii = 0
Text1.SelText = "Three"
Case "4"
KeyAscii = 0
Text1.SelText = "Four"
Case "5"
KeyAscii = 0
Text1.SelText = "Five"
Case "6"
KeyAscii = 0
Text1.SelText = "Six"
Case "7"
KeyAscii = 0
Text1.SelText = "Seven"
Case "8"
KeyAscii = 0
Text1.SelText = "Eight"
Case "9"
KeyAscii = 0
Text1.SelText = "Nine"
End Select
End Sub

- 小瓜瓜VB调理包

Follow Ups:

- Re: 请问有没有将阿拉伯数字转成英文字的程式？ Michael Owen 16:42:52 8/16/99 (2)
  - Re: 请问有没有将阿拉伯数字转成英文字的程式？ 小瓜瓜 17:11:54 8/16/99 (1)
    - 有一个元件可以满足您的需求... 帅帅阿柳 23:52:01 8/16/99 (0)