注册
登录
| 关键词： nbsp ActiveControl screen 文本 窗体 光标 组合 sellength selstart IntStart |
在access窗体中，一个窗体下有多个子窗体，而一个子窗体又有多个文本框。当在文本框输入时，往往需要插入一些字符（比如一些特殊的字符以组合框列表存放），类似于记事本的插入。但记事本由于只有一个窗口（即一个文本框），而窗体中有多个文本框，不可能对每个文本框进行编码，原来以为需要调用api等，但没有成功。摸索许久之后发现通过screen对象里的一些方法能很简单的解决上述问题。 前提：假设一个窗体中一个文本框(txt)，一个组合框(cbo)。文本框用于输入，组合框存放字符。目标：文本框输入时，点击组合框值，该值能插入到文本框已选中的位置。 基本思路： (1) 鼠标点击组合框前，用全局变量记录下光标的位置（selstart,sellength)。技巧：在鼠标移到组合框时发生事件，因为此时光标还停留在文本框的位置。 IntStart = Screen.ActiveControl.SelStart intSellength = Screen.ActiveControl.SelLength （2） 选中组合框后，将光标还回文本框，并且通过原来光标的位置对文本框重新选择。将选择值用组合框中的内容替换掉即可。 Screen.PreviousControl.SetFocus Screen.ActiveControl.SelStart = IntStart Screen.ActiveControl.SelLength = intSellength Screen.ActiveControl.SelText = cboSpecialChar Screen.ActiveControl.SelStart = IntStart + Len(cbo) Screen.ActiveControl.SelLength = 0 （3） 由于（1）是在mousemove时发生时，mousedown后光标已经转移到了组合框，所以需要在mousedown前就记录下光标位置。这需要一定的技巧。 具体讨论原代码在：http://www.office-cn.net/bbs/dispbbs.asp?boardid=2&id=28581 上，也非常感谢上面的各access高手（huanghai，cg1,海狸先生,tmtony等）提供的宝贵建议~~~ [email protected] 具体代码： Dim fN As Boolean, IntStart As Integer, intSellength As Integer Private Sub cbo_AfterUpdate() On Error GoTo err_txt Screen.PreviousControl.SetFocus Screen.ActiveControl.SelStart = IntStart Screen.ActiveControl.SelLength = intSellength Screen.ActiveControl.SelText = cboSpecialChar Screen.ActiveControl.SelStart = IntStart + Len(cbo) Screen.ActiveControl.SelLength = 0 err_exit: Exit Suberr_txt: Resume err_exit End Sub Private Sub cbo_LostFocus() fN = FalseEnd Sub Private Sub cbo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) fN = TrueEnd Sub Private Sub cbo_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)On Error GoTo err_cboSpecialChar_MouseMove If Not fN Then IntStart = Screen.ActiveControl.SelStart intSellength = Screen.ActiveControl.SelLength End If Exit Suberr_cboSpecialChar_MouseMove: Exit SubEnd Sub |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
