文本框控件问题

leijiqiang

我在文本框中输入内容,如何获取当前文本框的内容数据.

不用change事件获取.
比如,
me.txtno 文本框.

我输入123后,还没有失去焦点的情况下,利用msgbox显示当前文本框的信息.

效果如下,
我希望输入*或x或X统一改为X(双字节的)

Henry D. Sy

为什么不用change？

leijiqiang

2# Henry D. Sy

因为用change,还要排除  回车及删除符及插入符等功能符的问题

Henry D. Sy

2# Henry D. Sy  

因为用change,还要排除  回车及删除符及插入符等功能符的问题
leijiqiang 发表于 2009-8-14 11:58

不明白

Henry D. Sy

你只要判断*，x 的keycode即可。

leijiqiang

2# Henry D. Sy

输入的顺序"1234*"
private sub txtno_keypress()
if chr(keyascii) = "*" then
    msgbox me.txtno.value
endif
end sub

他的值为何为NULL,为什么不是1234

Henry D. Sy

Private Sub Text0_Change()
    Dim intCode As Long
    If Not IsNull(Me.Text0.Text) Then
        intCode = Asc(Right(Me.Text0.Text, 1))
        If intCode = 42 Or intCode = 120 Then
            Me.Text0.Text = Left(Me.Text0.Text, Len(Me.Text0.Text) - 1) & "X"
            Me.Text0.SelStart = Len(Me.Text0.Text)
        End If
    End If
End Sub

leijiqiang

7# Henry D. Sy

再次,非常的感谢版主的支持