Ver Dato Completo En Combo

[sagma]

hola a todos, tengo un combo que cargo los datos desde una tabla, además le he puesto un autocomplete, pero no se ve toda la palabra completa. como verán en la imagen.

este es mi código que tengo para autocompletar es

Código:

   Private Sub cmb_nacionalidad_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_nacionalidad.KeyUp
       Dim sTypedText As String
       Dim iFoundIndex As Integer
       Dim oFoundItem As Object
       Dim sFoundText As String
       Dim sAppendText As String

       'Allow select keys without Autocompleting
       Select Case e.KeyCode
           Case Keys.Back, Keys.Left, Keys.Right, Keys.Up, Keys.Delete, Keys.Down
               Return
       End Select

       'Get the Typed Text and Find it in the list
       sTypedText = Trim(Me.cmb_nacionalidad.Text)
       iFoundIndex = Trim(Me.cmb_nacionalidad.FindString(sTypedText))

       'If we found the Typed Text in the list then Autocomplete
       If iFoundIndex >= 0 Then

           'Get the Item from the list (Return Type depends if Datasource was bound
           ' or List Created)
           oFoundItem = Me.cmb_nacionalidad.Items(iFoundIndex)

           'Use the ListControl.GetItemText to resolve the Name in case the Combo
           ' was Data bound
           sFoundText = Me.cmb_nacionalidad.GetItemText(oFoundItem)

           'Append then found text to the typed text to preserve case
           sAppendText = sFoundText.Substring(sTypedText.Length)
           Me.cmb_nacionalidad.Text = sTypedText & sAppendText

           'Select the Appended Text
           Me.cmb_nacionalidad.SelectionStart = sTypedText.Length
           Me.cmb_nacionalidad.SelectionLength = sAppendText.Length

       End If
   End Sub
   Private Sub cmb_nacionalidad_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_nacionalidad.Leave
       Dim iFoundIndex As Integer

       iFoundIndex = Me.cmb_nacionalidad.FindStringExact(Me.cmb_nacionalidad.Text)

       Me.cmb_nacionalidad.SelectedIndex = iFoundIndex
   End Sub

y con este, cargo mi combobox:

Código:

       Da = New OleDb.OleDbDataAdapter("SELECT adgrlsubg, adgrldesc FROM adgrl " & _
                                       " WHERE (adgrlgrup = 9) " & _
                                         " AND (adgrlsubg > 0) " & _
                                       " ORDER BY adgrlsubg", con.cnn)
       Da.Fill(Ds4, "adgrl")

       Me.cmb_nacionalidad.DataSource = Ds4.Tables("adgrl")
       Me.cmb_nacionalidad.DisplayMember = "adgrldesc"
       Me.cmb_nacionalidad.ValueMember = "adgrlsubg"

gracias por la colaboración.

[GeoAvila]

pero si el combo ya trae su propia opción de autocompletar porque hacer una nueva.. no te sirve la que trae por default..???

la opción de autocomplete y para decir que tipo de autocompletado queres es en autocompletemode

nos vemos..

[sagma]

Hola que tal, disculpa GeoAvila, ya que yo estoy trabajando con el Vbnet 2003, y veo que solo el VBnet 2005 traer ya en las propiedades el autocomplete.

gracias.