支持拼音首字母的组合框函数及实例

kaven

原来是定义了一个模块 我在窗口代码里面找了好多次[em06][em06][em06]

xinbao

如果再发展到文本框 等就更好了

老中医

很实用的东西，先下载，明天一早试试。谢谢！！！

hyxwd

经典

xlonger

对“属”字好像判断不正确。大家试试。

DEBUG.Print HZ2PY("金属")
jz

xlonger

以下是引用Trynew在2005-1-19 13:31:00的发言：


Public Function ComboBoxKeyPress(KeyAscii As Integer) As String
'调用方法  在组合框的keypress方法中加入:
'--------------------------------------------
'    If ComboBoxKeyPress(KeyAscii) <> "" Then KeyAscii = 0
'--------------------------------------------
On Error GoTo Err
Dim i As Integer
With Screen.ActiveControl
    If .ControlType = acComboBox And (KeyAscii >= Asc("a") And KeyAscii <= Asc("z")) Then
    '只能由组合框输入小写字母时调用
        ComboBoxKeyPress = Nz(HZPY(Left(.Text, .SelStart))) & Chr(KeyAscii)
        While HZPY(Left(.ItemData(i), .SelStart + 1)) <> ComboBoxKeyPress And i < .ListCount - 1
            i = i + 1
        Wend
        If i <> .ListCount And Mid(.ItemData(i), .SelStart + 1, 1) <> Chr(KeyAscii) Then
            ComboBoxKeyPress = Left(.ItemData(i), .SelStart + 1)
            .Value = Null
            SendKeys ComboBoxKeyPress
        Else
            ComboBoxKeyPress = ""      '为英文时不代换，否则会进入死循环
        End If
    End If
End With
Exit Function
Err:
    ComboBoxKeyPress = ""
End Function

Function HZPY(hzstr As String) As String
Dim p0 As String, C As String, str As String
Dim i As Integer, j As Integer
p0 = "吖八嚓咑妸发旮铪讥讥咔垃呣拿讴趴七呥仨他哇哇哇夕丫匝咗"
For i = 1 To Len(hzstr)
    C = "z"
    str = Mid(hzstr, i, 1)
    If Asc(str) > 0 Then
        C = str
    Else
        For j = 1 To 26
            If Mid(p0, j, 1) > str Then
                C = Chr(95 + j)
                Exit For
            End If
        Next
    End If
    HZPY = HZPY + C
Next
End Function

下面是一个范例：

楼主的例子太好了，我还看过楼主的另一个更经典的例子，它是我ACCESS的启蒙老师，虽然我水平很低，只吸收了一点点，但已经让我的程序增色不少。

xlonger

以下是引用xlonger在2005-12-30 17:41:00的发言：


对“属”字好像判断不正确。大家试试。

DEBUG.Print HZ2PY("金属")
jz

这是多音字的原因。我知道了。

xinrenq

运用楼主的代码..改进一下...

wuaza

xinrenq巧妙的运用了动态列宽，方法很好，值得学习。

cwbwxf

老大的东东都很实用,顶