www.tuxapuntes.com

Esto puede ser util en algun momento, simplemente le pasaremos como parametros el objeto, y la cadena de busqueda.

<strong>Option Explicit</strong>
 
<strong>Public Function</strong> SearchCboBox _
( _
  <strong>ByVal</strong> CboBox <strong>As</strong> ComboBox, _
  <strong>ByVal</strong> sText <strong>As String</strong> _
) _
<strong>As Boolean</strong>
 
<strong>Dim</strong> i <strong>As Long</strong>
<strong>Dim</strong> bSuccess <strong>As Boolean</strong>
 
  i = 0
  bSuccess = <strong>False</strong>
  <strong>Do While</strong> ((i <= (CboBox.ListCount - 1)) <strong>And</strong> (bSuccess = <strong>False</strong>))
    <strong>If</strong> (CboBox.List(i) = sText) <strong>Then</strong>
      bSuccess = <strong>True</strong>
   <strong> End If</strong>
 
    i = (i + 1)
  <strong>Loop</strong>
 
  SearchCboBox = bSuccess
<strong>End Function</strong>

Para usarlo de la siguiente forma, por ejemplo para este test hacemos el llamo si el objeto pierde el foco :

  <strong>If</strong> (SearchCboBox(cboCode, cboCode.Text) = <strong>False</strong>) <strong>Then</strong>
    MsgBox &ldquo;El codigo no existe&rdquo;
  <strong>End If</strong>

Comparteme:

Revisado el: 01-09-2007 05:18