[VB6] Settare index combobox

[ghiboz]

ciao!
ho questo problema:
ho una combo con X valori,

  With myCombo
    .AddItem "Arancia", 0
    .AddItem "Limone", 1
    .AddItem "Mela", 2
  End With

ora, da codice voglio fare in modo che la combo si posizioni su "limone" ma non passandoci come index 1, ma direttamente la stringa "limone"... come posso fare??
tnx!

[oregon]

Qualcosa del genere ...

Private Const CB_FINDSTRINGEXACT = &H158
Private Const CB_FINDSTRING = &H14C

Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long

Private Sub Form_Load()
With mycombo
.AddItem "Arancia"
.AddItem "Limone"
.AddItem "Mela"
End With
End Sub

Private Sub Form_Click()
Dim L As Long
L = SendMessage(mycombo.hWnd, CB_FINDSTRINGEXACT, -1, ByVal "Limone")
If L >= 0 Then mycombo.ListIndex = L
End Sub

[ghiboz]

azz....
che casino... pensavo fosse + facile.....

[oregon]

Pensavi male ...

[ghiboz]

azz...
cmq funziona!!!
tnX!

[Brainjar]

Usa la proprietà text della combo :

Option Explicit

Private Sub Command1_Click()
    myCombo.Text = "Limone"
End Sub

Private Sub Form_Load()
    With myCombo
        .AddItem "Arancia", 0
        .AddItem "Limone", 1
        .AddItem "Mela", 2
    End With
End Sub

Private Sub myCombo_Click()
    MsgBox myCombo.ListIndex
End Sub

Ciao,