请教：如何让“×”出现在光标后呢

简

因为access输入“×”，“※”等特殊字符不方便，所以我设定一个按钮来代替“×”，就像word符号栏那样，当点击这个“×”按钮时，“×”就出现在文本框控件的光标后。


为达到这个效果，在代码上我该怎么写呢？

红尘如烟

不错，这种需要对ActiveControl进行操作而焦点又不方便移开的情况，最好用一个不能获得焦点的控件来触发事件，也可以将这个功能加到菜单栏或工具栏中去，反正只要不会触发焦点的移动就随便弄

wang1950317

使用标签控件制作按钮，在单击或双击事件中加入后面的那一句代码。如果需要固定在某一控件内添加的话，可以加上一句获得焦点的代码。

简

哎，这个方法可行，又简单又省事，你怎么想出来的呢，平时看你的程序，就感觉你脑瓜子很灵活，如果你是女的，我都要热情拥抱你了，呵呵~~~

t小宝

有个简单的办法，用标签代替按钮，在标签的单击事件写代码：
SendKeys "×"

简

回wang1950317 ,三楼的代码我也试过的，但不知为什么点击按钮加“X”时控件上没有反应，看不到所加的“X”。
这种情况，原因又出现在哪呢。

wang1950317

三楼的代码是以光标为准，光标在哪，就在哪儿插入。用了很长时间，感觉不错。
谢谢todaynew 老师提供的6楼代码，给了另一思路，使用也很方便。只是在需要插入的控件中需要加入代码。

todaynew

你这段代码我的理解是，如果有一二十的文本框，组合框控件，我是不是在每个控件的LostFocus()事件中都要写上ctlname = Me.ActiveControl.Name这句代码呢？
否则就无法接收Command8的内容（X）呢？
简 发表于 2010-2-28 14:48

正是如此，其道理在于以下两点：
其一是，并非所有控件都需要输入特殊字符，所以只有那些经常需要输入特殊字符的控件才需要在失去焦点事件中，加上那么一句。
其二是，特殊字符插入的控件，以及插入控件值的位置均不确定，因此想要批量解决问题的思路万不可行。

简

你这段代码我的理解是，如果有一二十的文本框，组合框控件，我是不是在每个控件的LostFocus()事件中都要写上ctlname = Me.ActiveControl.Name这句代码呢？
否则就无法接收Command8的内容（X）呢？

todaynew

这个问题，也再请教下高手。

记得以前在哪个论坛上都见过这个问题，有个高手做过类似于word,excel符号栏的东西，光标在哪，插入的符号在哪，可惜找不到了。
简 发表于 2010-2-28 00:35

需要定义一个窗体模块级变量,该变量记录点击按钮前的ActiveControl 名称,这样就可以找到要将按钮的caption属性传递的对象了。




Option Compare Database
Dim ctlname As String

Private Sub Command8_Click()
Me.Form.Controls(ctlname).Value = Me.Form.Controls(ctlname).Value & ＿Me.Command8.Caption
End Sub

Private Sub Text0_LostFocus()
ctlname = Me.ActiveControl.Name
End Sub

Private Sub Text2_LostFocus()
ctlname = Me.ActiveControl.Name
End Sub