Função que retorna falso quando o controle estiver preenchido ou selecionado; ou retorna verdadeiro caso o campo naum esteja selecionado ou preenchido.

´Função que retorna falso quando o controle estiver preenchido ou selecionado; ou retorna verdadeiro caso o campo naum esteja selecionado ou preenchido. 'Pra chamar a função: ehvazio Nomedacombo ou nomedo textbox Public Function ehVazio(ctrControl As Control) As Boolean     ehVazio = False     If TypeOf ctrControl Is ComboBox Then          If ctrControl.ListIndex = -1 Then             MsgBox ("O Campo " & ctrControl.Tag & " não foi selecionado"), vbExclamation             ctrControl.SetFocus             ehVazio = True         End If     Else         If ctrControl.Text = "" Then             MsgBox ("O Campo " & ctrControl.Tag & " está em branco"), vbExclamation             ctrControl.SetFocus             ehVazio = True         End If     End If End Function

Quebra-Linha

Colaborador..: Emerson Silva Oliveira
Categoria(s).: Visual Basic;
Versão.......: 6.0
Data.........: 10/09/2004 11:53:12
Visualizado..: 4564 vezes
Fonte........: Emerson