文本框录入数字形式 I II III IV ？

[bitzl210]

如题，文本框中录入数字形式I II III 等

与汉字一起，要求保存内码

怎么做到？

[cangwu_lee]

demo

Sub main()
Dim text As String, Data() As Long
Dim i As Integer

text = "ⅠⅡⅢⅣⅤⅥⅦⅧⅨⅩⅪⅫnnd咋这么难"

ReDim Data(Len(text) - 1)

For i = 0 To Len(text) - 1
Data(i) = AscW(Mid(text, i + 1, 1))
Next


End Sub

[zhykhld]

下面的代码离你要解决的问题还有一段距离,仅供参考

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case Chr(KeyAscii)
Case "1"
Me.Text1.SelText = "I"
Case "2"
Me.Text1.SelText = "II"
Case "3"
Me.Text1.SelText = "III"
Case "4"
Me.Text1.SelText = "IV"
Case "5"
Me.Text1.SelText = "V"
Case "6"
Me.Text1.SelText = "VI"
Case "7"
Me.Text1.SelText = "VII"
Case "8"
Me.Text1.SelText = "VIII"
Case "9"
Me.Text1.SelText = "IX"
Case "0"
Me.Text1.SelText = "O"
Case Else
Exit Sub
End Select
Me.Text1.SelStart = Me.Text1.SelStart + Len(Me.Text1.SelText)
Me.Text1.SelLength = 0
KeyAscii = 0
End Sub

[yachong]

还有就是怎样直接能往文本框中插入III？
我现在是从word里选符号，然后粘贴到文本框中，但我不能要求客户也这样做啊
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
中文输入法的软键盘都可以直接输入的ⅠⅡⅢⅣⅤⅥⅦⅧⅨⅩ

[zhykhld]

Me.Text1.SelText = "IX" 当中的"IX",请你直接在Word当中复制并粘贴并替换到这里,把我的这些字符串换过来就行了

[zhykhld]

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case Chr(KeyAscii)
Case "1"
Me.Text1.SelText = "Ⅰ"
Case "2"
Me.Text1.SelText = "Ⅱ"
Case "3"
Me.Text1.SelText = "Ⅲ"
Case "4"
Me.Text1.SelText = "Ⅳ"
Case "5"
Me.Text1.SelText = "Ⅴ"
Case "6"
Me.Text1.SelText = "Ⅵ"
Case "7"
Me.Text1.SelText = "Ⅶ"
Case "8"
Me.Text1.SelText = "Ⅷ"
Case "9"
Me.Text1.SelText = "Ⅸ"
Case "0"
Me.Text1.SelText = "Ⅹ"
Case Else
Exit Sub
End Select
Me.Text1.SelStart = Me.Text1.SelStart + Len(Me.Text1.SelText)
Me.Text1.SelLength = 0
KeyAscii = 0
End Sub

我已经把字符串替换了,但仍然需要你把它完善了才可用

[bitzl210]

这样不行啊，因为也需要输入数字的１，２，３

[bitzl210]

而且我试了从Ｗord里直接粘贴了
我这样取文本框中每个字的内码Asc(Mid(Trim(txtQieQu.Text), j, 1))，j是循环的
但这样取出来的不对

[zhykhld]

本人只是给你提供一个思路,具体的解决方法还是要看你自己的,如果也需要输入数字的123,那你让用户输入什么去显示罗马数字?

[bitzl210]

这种方法好象不太合适

比如我录入　＂北京枢纽III＂

内码应该是　：B1B1BEA9CAE0C5A62163

[bitzl210]

还有就是怎样直接能往文本框中插入III？
我现在是从word里选符号，然后粘贴到文本框中，但我不能要求客户也这样做啊

[bitzl210]

现在问题就是怎样把＂I II III ＂这些字符录入到文本框中