[VB.NET] ComboBox...

[Dave83]

Vorrei sapere se c'è un modo e se sì quale di far sì ke quando x esempio clicco 'c' e 'o' in rapida successione sul combobox mi vada sul primo elemento ke inizi x 'co' e non prima sul primo elemento ke inizia x 'c' e dopo su quello ke inizia x 'o'
Ho notato ke se s imposto come DropDown lo fa cm dico io ma a me serve ke sia dropdown list xkè non voglio ke sia editabile (la dropdown purtroppo è editabile)

[Dave83]

Nessuno ha qualke consiglio?

[new]

interessa pure me ...hai trovato il modo?

[Dave83]

No, x ora l ho impostato semplicemente come DropDown ma nn è proprio quello ke volevo ottenere.
Eppure un modo c deve essere xkè x esempio le combobox delle opzioni di internet explorer sn come le voglio ottenere io

[Mychy]

Nel forum avevo visto questa funzione per VB6, rimaneggiandola..., adesso se la trovo la posto

[xegallo]

per vb6

Sub DigitCTRL(prmo_CTRL As Control, prmi_Digit As Integer)

'##################################################################
'# Parametri:                                                     #
'#     prmo_CTRL: controllo sul quale eseguire la ricerca         #
'#     prmi_Digit: codice ascii dell' ultimo carattere digitato   #
'# Effetto:                                                       #
'#     posiziona l'indice del controllo sull'elemento cercato     #
'#                                                                #
'# la routine necessita di:                                       #
'#                                                                #
'# Private Oggetto_KeyPress(KeyAscii As Integer)                  #
'#     Call DigitCTRL(Oggetto, KeyAscii)                          #
'#     KeyAscii = 0 ' per evitare ricorsività                     #
'# End Sub                                                        #
'##################################################################

On Error GoTo lblError
Static Time As Single
Dim newTime As Single
Dim sFind As String
Dim l As Long
Dim bFound As Boolean
    
    Screen.MousePointer = vbHourglass
    If TypeOf prmo_CTRL Is ComboBox Or TypeOf prmo_CTRL Is ListBox Then
        bFound = False
        newTime = Timer
        If Time = 0 Or (newTime - Time) > 1 Then
            sFind = Chr(prmi_Digit)
        Else
            sFind = prmo_CTRL.Tag & Chr(prmi_Digit)
        End If
        Time = newTime
        prmo_CTRL.Tag = sFind
        For l = 0 To prmo_CTRL.ListCount - 1
            If sFind = Mid$(Trim$(prmo_CTRL.List(l)), 1, Len(sFind)) Then
                prmo_CTRL.ListIndex = l
                bFound = True
                Exit For
            End If
        Next l
        If bFound = False Then
            prmo_CTRL.Tag = ""
        End If
    End If
    Screen.MousePointer = vbDefault
Exit Sub
lblError:
    prmo_CTRL.Tag = ""
    prmo_CTRL.ListIndex = -1
    Call GestErrore("digitCTRL")
End Sub

[Mychy]

oggetto è il nome delle combo

Private Sub oggetto_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles oggetto.KeyPress
        Call DigitCTRL(oggetto, oggetto.Text)

    End Sub
    
    Sub DigitCTRL(ByVal combo As ComboBox, ByVal varRicerca As String)
        Dim i As Integer
        i = combo.Text.Length
        combo.SelectedIndex = combo.FindString(varRicerca)
        combo.Select(i, (combo.Text.Length - i))


    End Sub