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

简

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


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

chuang0321

acsii代码值好像是158

wang1950317

很久以前向老师请教过自定义模块，你可试试：
Public Function ReplaceType(strReplaceType)     
    Dim intTemp As Integer
   If TypeOf Screen.ActiveControl Is TextBox Or TypeOf Screen.ActiveControl Is ComboBox Then
    With Screen.ActiveControl
        intTemp = .SelStart
        .Text = Left(.Text, .SelStart) & strReplaceType & Mid(.Text, .SelStart + 1 + .SelLength)
        .SelStart = intTemp + 1
    End With
    End If
End Function
按钮单击事件：
ReplaceType ("×")

ynjxw

当点击按钮时，文本框里应该没有光标了吧

简

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

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

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

简

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

todaynew

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

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

wang1950317

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

简

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