Ajuda! Será que há uma saida e simplificar o codigo?

[Eloi Cardoso]

Alguém tem uma dica de como simplificar o seguinte:

Em uma combobox tenho a função:

Private Sub ComboBox1_Change()
If ComboBox1 = "SIM" Then
Else
  If ComboBox1 = "NÃO" Then
  Else
      If ComboBox1 = "N.A." Then
      Else
MsgBox "TERMO ERRADO PARA ESTA CAMPO, USE CONFORME AS OPÇÕES DISPONIVEIS!"
ComboBox1.SetFocus
  ComboBox1 = ""
     End If
  End If
End If
End Sub

O fato é que tenho no formulario pelo menos 25 comboboxes. Tenho que repetir o codigo acima em cada combobox ou há uma maneira mais simples de fazer um codigo para todas as comboboxes?

[LNW]

Cardoso,

O fato é que tenho no formulario pelo menos 25 comboboxes. Tenho que repetir o codigo acima em cada combobox ou há uma maneira mais simples de fazer um codigo para todas as comboboxes?

Não programo em VB, mas vou lhe indicar por onde começar suas pesquisas. Em Delphi, eu já fiz coisa parecida e procurei algo equivalente em VB. Ao que indica, você vai precisar criar um procedimento exclusivo para realizar aqueles testes condicionais e que responda ao evento Change.

Dê uma lida:

http://msdn.microsoft.com/en-us/library/vstudio/6k46st1y.aspx (Os últimos exemplos são os mais relevantes.)

outro bom exemplo:

http://stackoverflow.com/questions/13929529/what-are-the-event-arguments-sender-and-e

LNW

[Matheus Maldi]

Passe um combo box como parametro, depois é só chamar o metodo com o parametro do combo que quer trocar.