[求助]短信输入框问题种种
感谢Griefforyou提供的“单字符Undo/Redo代码”，通过引用，我在项目中已经基本能够实现撤消上一步操作的功能，但是又遇到了一个新问题：
由于我想实现的功能不是通过"点击按钮"等来触发"撤消上一步操作"的动作，而是在输入的英文字符数超过70的时候，如果在后面接着“输入中文”或“粘贴含有中文的字符串”，则自动撤消上一步操作（即回到输入中文的前一个状态），以满足“文本框中最多只有70个中文字符或160个英文字符”的原则。
现在的问题就是：虽然我在70个英文字符之后输入了中文，但是并不会主动触发撤消上一步操作的动作，而是在文本框中照常显示了我所输入的中文，一定要等我再按下任意键后才触发撤消动作，不知如何才能解决这个问题?
我所用的相关代码如下：
Private Sub Text1_KeyPress(KeyAscii As Integer)
......
'当字符数大于70时，判断70->160个字符之间是否有中文,如有则删除之 If Len(Text1) > 70 And Len(Text1) <= 160 Then For j = 71 To Len(Text1) strtemp2 = Mid((Text1), j, 1) If Asc(strtemp2) < 0 Then '撤消上一步操作 Undo Text1 Exit Sub End If Next '当输入的英文字符超过70个字符时，如果在前70个字符之间插入了中文，则截取前70
个字符 For k = 1 To 70 strtemp3 = Mid((Text1), k, 1) If Asc(strtemp3) < 0 Then '截取前70个字符 Text1.Text = Mid((Text1), 1, 70 ) Exit Sub End If Next End If
...... 附： '单字符Undo/Redo代码 'By:Griefforyou
Option Explicit
Dim OldText As String, OldSelStart As Long, OldSelLength As Long
Dim UndoArray() As String, MyChangeFlag As Boolean
Dim UndoStep As Long
Private Sub Command1_Click()
Undo Text1
End Sub
Private Sub Command2_Click()
Redo Text1
End Sub
Private Sub Form_Load()
Init Text1
Command1.Caption = "Undo"
Command2.Caption = "Redo"
End Sub
Private Sub Init(Obj As TextBox)
ReDim UndoArray(0) As String
OldText = Obj.Text
OldSelStart = Obj.SelStart
OldSelLength = Obj.SelLength
UndoArray(0) = OldText
UndoStep = 0
End Sub
Private Sub Change(Obj As TextBox)
If MyChangeFlag = False Then
ReDim Preserve UndoArray(UBound(UndoArray) + 1) As String
UndoArray(UBound(UndoArray)) = Obj.Text
UndoStep = UBound(UndoArray)
Debug.Print UndoStep & " " & Text1.Text
End If
End Sub
Private Sub Undo(Obj As TextBox)
If UndoStep > 0 Then
MyChangeFlag = True
UndoStep = UndoStep - 1
Obj.Text = UndoArray(UndoStep)
MyChangeFlag = False
End If
End Sub
Private Sub Redo(Obj As TextBox)
If UndoStep < UBound(UndoArray) Then
MyChangeFlag = True
UndoStep = UndoStep + 1
Obj.Text = UndoArray(UndoStep)
MyChangeFlag = False
End If
End Sub
Private Sub Text1_Change()
Call Change(Text1)
End Sub
[此贴子已经被作者于2005-4-13 15:41:52编辑过]
其实我现在试图做的是一个手机短信平台的发送文本框，由于最终的短信内容的长度是 “我做的这个文本框中所输入文本的长度” + “另一块可选择添加的文本长度”，如果我这边的文本超出约定的长度，则另一块在选择添加时有可能出现死循环，为了避免这种循环的出现，我这边必须严格限制输入字符的长度。
由于短信内容中“有中文字符”和“无中文字符”在发送时用的是不同编码 ：因为手机短消息的发送是以PDU串的形式发送出去的，中文字符以Unicode码来表示，所以在发送中文短消息之前必须首先将中文字符转换为Unicode码(其中英文字符亦用双字节表示)；而在发送不含中文的短信时用的是“7位码”。
因此发送含中文的短信时最多可发送70个字符；而在发送不含中文的短信时最多可发送160个字符（注意：比发送中文短信时的2倍还要多！）。