一个Form
一个TextBox
一个Label
这个修订後的程式是当使用者在TextBox中输入只包含0~9的数值後,在Label中就可看见被转换後的中文字,例如:1560890转成"壹佰伍拾陆万零捌佰玖拾"。程式限制为不可输入超过16个数字。
请建立一个新专案,并在表单中放入上述物件,再把以下程式码复制到表单的程式
码视窗,最後按下F5来执行。
PrivateSubForm_Load()
Text1.MaxLength=16
Text1.Text=""
Label1.Caption=""
Label1.AutoSize=True
Label1.BorderStyle=1
EndSub
PrivateSubText1_Change()
Label1.Caption=CChinese(Text1.Text)
EndSub
PrivateFunctionCChinese(StrEngAsString)AsString
IfNotIsNumeric(StrEng...[ 查看全文 ]