Codigo Plus

Descargar Archivo
Titulo	Buscar en ComboBox
Descripcion	Codigo para buscar una cadena en un ComboBox mientras escribes
Descargas	956
Codigo Fuente
<pre><font face='Verdana,Tahoma'><span style="color: #0000FF">Dim</span> KeyBack <span style="color: #0000FF">As</span> <span style="color: #0000FF">Boolean</span>
<span style="color: #0000FF">Dim</span> ListPos <span style="color: #0000FF">As</span> <span style="color: #0000FF">Integer</span>


<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Form_Load()


    <span style="color: #0000FF">With</span> Combo1
        .AddItem <span style="color: #B22222">"www.planet-source-code.com"</span>
        .AddItem <span style="color: #B22222">"www.google.com"</span>
        .AddItem <span style="color: #B22222">"www.hotmail.com"</span>
        .AddItem <span style="color: #B22222">"www.mypage.com"</span>
    <span style="color: #0000FF">End</span> <span style="color: #0000FF">With</span>
<span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span>


<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Combo1_Change()
    <span style="color: #0000FF">Dim</span> Index <span style="color: #0000FF">As</span> <span style="color: #0000FF">Integer</span>
    <span style="color: #0000FF">Dim</span> StartSel <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
    <span style="color: #008000">' First: validate keyback or deletekey</span>


    <span style="color: #0000FF">If</span> KeyBack = <span style="color: #0000FF">True</span> <span style="color: #0000FF">Or</span> Combo1.Text = "" <span style="color: #0000FF">Then</span>
        ListPos = -1
        KeyBack = <span style="color: #0000FF">False</span>
        <span style="color: #0000FF">Exit</span> <span style="color: #0000FF">Sub</span>
    <span style="color: #0000FF">End</span> <span style="color: #0000FF">If</span>
    <span style="color: #008000">'Searh in combo items</span>
    ListPos = -1


    <span style="color: #0000FF">For</span> Index = 0 <span style="color: #0000FF">To</span> Combo1.ListCount - 1
        <span style="color: #0000FF">If</span> InStr(1, Combo1.List(Index), _
        Combo1.Text, _
        vbTextCompare) = 1 <span style="color: #0000FF">Then</span>
        <span style="color: #008000">'Change SelStart and SelLength</span>
        <span style="color: #008000">'property</span>
        StartSel = Combo1.SelStart
        Combo1.Text = Combo1.List(Index)
        Combo1.SelStart = StartSel
        Combo1.SelLength = <span style="color: #0000FF">Len</span>(Combo1.Text) - StartSel
        ListPos = Index
        <span style="color: #0000FF">Exit</span> <span style="color: #0000FF">For</span>
    <span style="color: #0000FF">End</span> <span style="color: #0000FF">If</span>
<span style="color: #0000FF">Next</span> Index
<span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span>


<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Combo1_KeyDown(KeyCode <span style="color: #0000FF">As</span> <span style="color: #0000FF">Integer</span>, Shift <span style="color: #0000FF">As</span> <span style="color: #0000FF">Integer</span>)
    <span style="color: #0000FF">If</span> Combo1.Enabled = <span style="color: #0000FF">False</span> <span style="color: #0000FF">Or</span> _
    Combo1.Locked = <span style="color: #0000FF">True</span> <span style="color: #0000FF">Then</span>
    <span style="color: #0000FF">Exit</span> <span style="color: #0000FF">Sub</span>
<span style="color: #0000FF">End</span> <span style="color: #0000FF">If</span>
<span style="color: #0000FF">If</span> KeyCode = vbKeyBack <span style="color: #0000FF">Or</span> _
KeyCode = vbKeyDelete <span style="color: #0000FF">Then</span>


<span style="color: #0000FF">If</span> Combo1.Text <> "" <span style="color: #0000FF">Then</span>
    <span style="color: #008000">' if user press KeyBack or Deletekey</span>
    <span style="color: #008000">' change event will not execute</span>
    KeyBack = <span style="color: #0000FF">True</span>
<span style="color: #0000FF">End</span> <span style="color: #0000FF">If</span>
<span style="color: #0000FF">End</span> <span style="color: #0000FF">If</span>
<span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span>


<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Combo1_KeyPress(KeyAscii <span style="color: #0000FF">As</span> <span style="color: #0000FF">Integer</span>)


    <span style="color: #0000FF">If</span> KeyAscii = 13 <span style="color: #0000FF">Then</span>
        <span style="color: #008000">' leave focus if user press ENTER key</span>
        SendKeys <span style="color: #B22222">"{TAB}"</span>
        KeyAscii = 0
    <span style="color: #0000FF">End</span> <span style="color: #0000FF">If</span>
<span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span>


<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Combo1_LostFocus()
    MsgBox <span style="color: #B22222">"Listindex is "</span> & ListPos
    Combo1.ListIndex = ListPos
<span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span></font></pre>