Office中国论坛/Access中国论坛

标题: 文本框控件问题 [打印本页]

作者: leijiqiang 时间: 2009-8-14 10:23
标题: 文本框控件问题
我在文本框中输入内容,如何获取当前文本框的内容数据.

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

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

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

作者: Henry D. Sy 时间: 2009-8-14 11:29
为什么不用change？

作者: leijiqiang 时间: 2009-8-14 11:58
2# Henry D. Sy

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

作者: Henry D. Sy 时间: 2009-8-14 12:39

2# Henry D. Sy

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

不明白

作者: Henry D. Sy 时间: 2009-8-14 12:40
你只要判断*，x 的keycode即可。

作者: leijiqiang 时间: 2009-8-14 14:14
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 时间: 2009-8-14 15:56
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 时间: 2009-8-14 16:03
7# Henry D. Sy

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)