文本框录入数字形式 I II III IV ?解决思路
文本框录入数字形式 I II III IV ?
如题,文本框中录入数字形式I II III 等
与汉字一起,要求保存内码
怎么做到?
------解决方案--------------------
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
------解决方案--------------------
下面的代码离你要解决的问题还有一段距离,仅供参考
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
------解决方案--------------------
还有就是怎样直接能往文本框中插入III?
我现在是从word里选符号,然后粘贴到文本框中,但我不能要求客户也这样做啊
===================================
中文输入法的软键盘都可以直接输入的ⅠⅡⅢⅣⅤⅥⅦⅧⅨⅩ
------解决方案--------------------
Me.Text1.SelText = "IX " 当中的 "IX ",请你直接在Word当中复制并粘贴并替换到这里,把我的这些字符串换过来就行了
------解决方案--------------------
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
我已经把字符串替换了,但仍然需要你把它完善了才可用
如题,文本框中录入数字形式I II III 等
与汉字一起,要求保存内码
怎么做到?
------解决方案--------------------
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
------解决方案--------------------
下面的代码离你要解决的问题还有一段距离,仅供参考
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
------解决方案--------------------
还有就是怎样直接能往文本框中插入III?
我现在是从word里选符号,然后粘贴到文本框中,但我不能要求客户也这样做啊
===================================
中文输入法的软键盘都可以直接输入的ⅠⅡⅢⅣⅤⅥⅦⅧⅨⅩ
------解决方案--------------------
Me.Text1.SelText = "IX " 当中的 "IX ",请你直接在Word当中复制并粘贴并替换到这里,把我的这些字符串换过来就行了
------解决方案--------------------
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
我已经把字符串替换了,但仍然需要你把它完善了才可用