[VB6] Popolamento di una ComboBox e lettura dei dati tramite le funzioni API

[Gianluca Frati]

Ciao ragazzi!

Sto popolando una combobox in questo modo per ottenere performance migliori rispetto al metodo AddItem:

Public Sub subPopolaComboAPI(cmbNomeCombo As ComboBox, _
    strNomeTabella As String, _
    strNomeCampo)
    
    Dim strValore As String
    
    cmbNomeCombo.Visible = False

    Call SendMessage(cmbNomeCombo.hwnd, CB_RESETCONTENT, 0&, ByVal 0&)
    cmbNomeCombo.AddItem ""
    ' *************************************************************
    ' Popolo la lista delle aziende
    ' *************************************************************
    Dim rsPopolaCombo As Recordset
    Set rsPopolaCombo = New Recordset
    rsPopolaCombo.Open "SELECT ID," & strNomeCampo & " FROM " & strNomeTabella & _
        " ORDER BY " & strNomeCampo, Connessione
    
    Do While Not rsPopolaCombo.EOF

        ' ********************************************************
        ' Assegno l'indice all'elemento della list box uguale
        ' all'ID che trovo all'interno della tabella.
        ' ********************************************************
        strValore = rsPopolaCombo(strNomeCampo)
        Call SendMessage(cmbNomeCombo.hwnd, CB_ADDSTRING, _
ByVal rsPopolaCombo!ID, ByVal strValore)
        
        rsPopolaCombo.MoveNext
    Loop

    rsPopolaCombo.Close
    Set rsPopolaCombo = Nothing
    ' *************************************************************
    
    cmbNomeCombo.Visible = True

End Sub

Quando però vado ad interpellare la combo per vedere quale valore è stato selezionato dall'utente, ovvero:

msgbox cmbNomeCombo.ItemData(cmbNomeCombo.ListIndex)

l'applicazione mi restituisce sempre e solo 0.
Dove sto sbagliando?

Sicuramente l'inghippo sta qua:

Call SendMessage(cmbNomeCombo.hwnd, CB_ADDSTRING, _
ByVal rsPopolaCombo!ID, ByVal strValore)

Io credevo che con

ByVal rsPopolaCombo!ID

si potesse passare alla combobox il valore da assegnare ad ogni singola selezione, ma così non è.

Qualcuno mi può aiutare?

Ciao!

[oregon]

Mi sfugge qualcosa ... perche' controlli ItemData e non la List ...? Ovvero

msgbox cmbNomeCombo.List(cmbNomeCombo.ListIndex)

[Gianluca Frati]

Perchè io non voglio ottenere il testo di ciò che ho selezionato ma il suo valore.

[Gianluca Frati]

Faccio un esempio:
la combo ha 2 item.

"Item 1" il cui valore è 1909
"Item 2" il cui valore è 8321

Io con msgbox cmbNomeCombo.List(cmbNomeCombo.ListIndex) ottengo "Item 1" ma io voglio ottenere 1909.

Mi sono spiegato?

[oregon]

Originariamente inviato da Gianluca Frati
Faccio un esempio:
la combo ha 2 item.

"Item 1" il cui valore è 1909
"Item 2" il cui valore è 8321

Io con msgbox cmbNomeCombo.List(cmbNomeCombo.ListIndex) ottengo "Item 1" ma io voglio ottenere 1909.

Mi sono spiegato?

Okay ... ma a questo punto ti chiedo, il tuo codice, oltre ad inserire i vari "Item 1" ... dove inserisce i valori 1909 ...? Ho l'impressione che tu abbia frainteso il funzionamento del comando inviato con la SendMessage ...

[Gianluca Frati]

E' proprio questo il punto:

Tale valore pensavo di averlo inserito in questo modo:

Call SendMessage(cmbNomeCombo.hwnd, CB_ADDSTRING, _
ByVal rsPopolaCombo!ID, ByVal strValore)

Dentro a rsPopolaCombo!ID c'è il valore 1909, ma non è questo il modo giusto per inserire il valore nella combo.

Come inserirlo quindi?

[oregon]

No ... infatti, come puoi leggere in

CB_ADDSTRING Message

il parametro

(WPARAM) wParam, // = 0; not used, must be zero

non viene usato e quindi non puoi passare nessun valore, tanto meno questo finisce nella collection ItemData.

Come avevo pensato, hai frainteso il funzionamento di CB_ADDSTRING. Devi usare il messaggio

CB_SETITEMDATA Message

i cui parametri saranno


Parameters

wParam
Specifies the item's zero-based index.
lParam
Specifies the new value to be associated with the item.

[Gianluca Frati]

Mhh..ancora non mi torna qualcosa.

Questo è quello che ho fatto:

Private Const CB_ADDSTRING = &H143
Private Const CB_SETITEMDATA = &H151
.....
.....
lngAddIndex = SendMessage(cmbNomeCombo.hwnd, CB_ADDSTRING, 0, ByVal strValore)
SendMessage cmbNomeCombo.hwnd, CB_SETITEMDATA, lngAddIndex, ByVal rsPopolaCombo!ID
....
....

Quando però vado a fare:

MsgBox cmbNomeCombo.ItemData(cmbNomeCombo.ListIndex)

Mi restituisce un numero molto alto che non è sicuramente uguale a rsPopolaCombo!ID

Dove sbaglio?
Nella sintassi di CB_SETITEMDATA oppure in MsgBox cmbNomeCombo.ItemData(cmbNomeCombo.ListIndex) ?

Ah..dimenticavo...grazie...

[oregon]

A "prima vista" se il numero e' "alto" allora puo' essere un puntatore ... quindi

ByVal lngAddIndex

[Gianluca Frati]

Intendi di cambiare questo:

SendMessage cmbNomeCombo.hwnd, CB_SETITEMDATA, lngAddIndex, ByVal rsPopolaCombo!ID

in questo:

SendMessage cmbNomeCombo.hwnd, CB_SETITEMDATA, ByVal lngAddIndex, ByVal rsPopolaCombo!ID

Perchè se è così non cambia nulla...