Combobox

[Angelo Augusto]

Pessoal ,

estou fazendo com que uma combobox receba um monte de itens , preciso que quando ela receber os itens o primeiro valor já apareça na combo.

DEU PARA ENTENDER???

AQUI EM ABAIXO É A COMBO

|-------------------------------------------------------------------------------------------|

| AQUI TEM que APARECER O PRIMEIRO VALOR ENCONTRADO NA PESQUISA |

A pequisa ta dando certo a combo recebe todos os itens pesquisado , a unica coisa e quando mostrar o primeiro valor mesmo. so pro cara saber que foi encontrado alguma coisa.

Me ajudem!!

Conto com todos!!!

Abraços

Editado Junho 26, 2007 por Angelo Augusto

[webdeveloper]

Visual Basic 6

Combo1.ListIndex = 0

Visual Basic .NET

ComboBox1.SelectedIndex = 0

;)

[Angelo Augusto]

Fera não deu . fiz aqui e o valor da combo continuou em branco !!!

não tem outro jeito não !!! é que to fazndo em VBA

muito obrigado

[kuroi]

acho que devia funcionar mesmo assim, não??

em todo caso, aqui a gente tem um forum de VBA, e você devia ter postado la.

mas to movendo seu tópico pra la

[Angelo Augusto]

Ai fiz isto mas não deu ?

Dim ITEMESC As String
Dim CONT41 As Integer
Dim CONT42 As Integer
Dim ESPECIFICACAOITEM  As String
Dim UNIDADE As String

ESPECIFICACAOITEM = ""
UNIDADE = ""
ITEMESC = ""
CONT41 = 0
CONT42 = 0

[b]CB_Item.ListIndex = 0[/b]

ITEMESC = CB_Item.Text

With Sheets("BD")

For CONT41 = 3 To 20000
    If .Cells(CONT41, 2).Text = ITEMESC Then
      ESPECIFICACAOITEM = .Cells(CONT41, 25).Value
      UNIDADE = .Cells(CONT41, 3).Value
Exit For
    End If
Next CONT41


If ESPECIFICACAOITEM = "" Then
  MsgBox "Não foi encontrada especificação para o item pesquisado.", vbCritical + vbOKOnly
  RTB_especificacao.Text = ""
Exit Sub
End If

[webdeveloper]

Tenta:

Combo1.ListIndex = -1

[Angelo Augusto]

Sinceramente não estou entendendo!! não deu certo agora ela da a mensagem

If ESPECIFICACAOITEM = "" Then
  MsgBox "Não foi encontrada especificação para o item pesquisado.", vbCritical + vbOKOnly
  RTB_especificacao.Text = ""
Exit Sub
End If

estranho não é Ai consegui aqui muito obrigado ! coloquei no evento click do botao que faz a pesquisa!!! muito obrigado era

combo1ListIndex = 0

mesmo