欢迎讨论程序代码优化的问题——请教版主和各位朋友

简

先谢谢chenwm1973和红尘如烟两位朋友。

问题一明白了。
问题二看来我达不到预想的如图的结果了。
问题三明白了。
问题四chenwm1973朋友的例子我也看了，我要输入的位数并不一定是三位，也可能是两位呢。

另外，能否做成函数或过程之类的模块，有没有朋友能帮我以这个数据库做个例子呢？

红尘如烟

自定义快捷键输入的例子

简

谢谢红尘如烟，你的例子基本是我想要的效果，但有一点就是，如果我输错了或者是输漏了，你这个快捷键的内容就总是放在最后，而不能放在光标指定的位置上。比如说，我本来说应该输入“35X34X34”，结果我输成“3534X34”，于是我把光标放在5后按下快捷键，结果插入的“X”被放在最后，即“3534X34X”。

另外我想再问问，这个例子能不能做成函数模块之类的，在各个窗体中多次调用呢？如果可以，又该如何做呢？

goto2008

向红尘如烟学习。。。。

goto2008

原帖由 简 于 2008-5-1 23:52 发表
另外我想再问问，这个例子能不能做成函数模块之类的，在各个窗体中多次调用呢？如果可以，又该如何做呢？ ...

我也很想知道。。。。

xuwenning

我也很想学习；本来还有2个金钱下载7楼的附件只下载了attachment.php文件后金钱为0了

好无奈啊[:27]

xuwenning

慢慢苦金钱吧

红尘如烟

原帖由 简 于 2008-5-1 23:52 发表
谢谢红尘如烟，你的例子基本是我想要的效果，但有一点就是，如果我输错了或者是输漏了，你这个快捷键的内容就总是放在最后，而不能放在光标指定的位置上。比如说，我本来说应该输入“35X34X34”，结果我输成“3534X3 ...

函数如下：
Function CustomerShortcutKey(KeyCode As Integer, Shift As Integer)
On Error Resume Next
    Dim intOldSelStart As Integer
    Dim ctl As Control
    Set ctl = Screen.ActiveControl
   
    If Shift = acAltMask Then
        intOldSelStart = ctl.SelStart
        Select Case KeyCode
            Case vbKeyQ
            ctl.SelText = "Φ"
            Case vbKeyX
            ctl.SelText = "×"
        End Select
        ctl.SelStart = intOldSelStart + 1
    End If
End Function

在窗体的KeyUp事件中调用：
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    CustomerShortcutKey KeyCode, Shift
End Sub

chenwm1973

学习..........[:50] [:50] [:50]