📄 17354.html
字号:
<html> <head> <title>Re: 请问有没有将阿拉伯数字转成英文字的程式？</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>Re: 请问有没有将阿拉伯数字转成英文字的程式？</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:stupids@ms5.url.com.tw">小瓜瓜</a> on August 16, 1999 at 16:33:59:<p>In Reply to: <a href="17348.html">请问有没有将阿拉伯数字转成英文字的程式？</a> posted by Michael Owen on August 16, 1999 at 15:45:50:<p>: 请问有没有将阿拉伯数字转成英文字的程式？thanks<p>Private Sub Text1_KeyDown(KeyAscii As Integer, Shift As Integer)<br> Select Case Chr(KeyAscii)<br> Case "0"<br> KeyAscii = 0<br> Text1.SelText = "Zero"<br> Case "1"<br> KeyAscii = 0<br> Text1.SelText = "One"<br> Case "2"<br> KeyAscii = 0<br> Text1.SelText = "Two"<br> Case "3"<br> KeyAscii = 0<br> Text1.SelText = "Three"<br> Case "4"<br> KeyAscii = 0<br> Text1.SelText = "Four"<br> Case "5"<br> KeyAscii = 0<br> Text1.SelText = "Five"<br> Case "6"<br> KeyAscii = 0<br> Text1.SelText = "Six"<br> Case "7"<br> KeyAscii = 0<br> Text1.SelText = "Seven"<br> Case "8"<br> KeyAscii = 0<br> Text1.SelText = "Eight"<br> Case "9"<br> KeyAscii = 0<br> Text1.SelText = "Nine"<br> End Select<br>End Sub<p><p><p><p><p><br><ul><li><a href="http://www.hello.com.tw/~stupids">小瓜瓜VB调理包</a></ul><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 17354--><!--top: 17357--><li><a href="17357.html">Re: 请问有没有将阿拉伯数字转成英文字的程式？</a> <b>Michael Owen</b> <i>16:42:52 8/16/99</i>(<!--responses: 17357-->2)<ul><!--insert: 17357--><!--top: 17358--><li><a href="17358.html">Re: 请问有没有将阿拉伯数字转成英文字的程式？</a> <b>小瓜瓜</b> <i>17:11:54 8/16/99</i>(<!--responses: 17358-->1)<ul><!--insert: 17358--><!--top: 17385--><li><a href="17385.html">有一个元件可以满足您的需求...</a> <b>帅帅阿柳</b> <i>23:52:01 8/16/99</i>(<!--responses: 17385-->0)<ul><!--insert: 17385--></ul><!--end: 17385--></ul><!--end: 17358--></ul><!--end: 17357--></ul><!--end: 17354--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -