Olá, professor! No passo 8, não seria cmbNomedoCombo.List(iContador) e não cmbTipoVeiculo.List(iContador) ?
Olá, professor! No passo 8, não seria cmbNomedoCombo.List(iContador) e não cmbTipoVeiculo.List(iContador) ?
hoje, com a Alura e o Google Gemini
Olá Felipe, tudo bem com você?
Peço desculpas pela demora em obter um retorno.
O correto é cmbTipoVeiculo.List(iContador), pois estamos verificando o combobox exato do veículo para verificar se o veículo existe ou não na lista. Isso é mostrado no final da aula Criando um laço do tipo For-Next em torno do minuto 6:52 em diante e também, ao longo da aula Criando um laço do tipo Do-While.
Deixo abaixo como ficará a rotina completa fnVerificaVeiculoNaLista:
Function fnVerificaVeiculoNaLista(pTipoDeVeiculo As String) As Boolean
Dim iContador As Integer
fnVerificaVeiculoNaLista = False
If cmbTipoVeiculo.ListCount <> 0 Then
For iContador = 0 To cmbTipoVeiculo.ListCount - 1
If cmbTipoVeiculo.List(iContador) = pTipoDeVeiculo Then
fnVerificaVeiculoNaLista = True
End If
Next
End If
End Function
Espero ter ajudado. Continue mergulhando em conhecimento e não hesite em voltar ao fórum para continuar aprendendo e interagindo com a comunidade.
Em caso de dúvidas estou à disposição.
Abraços e bons estudos!