(Resolvido) Probleminha com MaskEdBox.

[Danleonhart]

Pessoal, tou com um problema em MaskEdBox...

fiz um script para não permitir deixá-las vazias...

If mk1.Mask = "##:##" Then
MsgBox "Informe a Hora Inicial."
mk1.SetFocus
Exit Sub
ElseIf mk2.Mask = "##:##" Then
MsgBox "Informe a Hora Final."
mk2.SetFocus
Exit Sub
Else
.....

porém, mesmo digitando as horas nas caixas a mensagem para "Informar a Hora..." surge...

sei que é porque o valor digitado fica no evento Ttexto (Text) da MasEdBox...então como posso fazer para impedir que deixem as Mask's vazias ???

Editado Janeiro 14, 2011 por Danleonhart

[Danleonhart]

Pessoal,

Problema resolvido :).

O que aconteceu foi que ao colocar o script na condição, esquecí de mencionar que há "dois" sinais de "_" (under line) na MaskEdBox...

Então coloquei assim:

If mk1.Mask = "__:__" Then
MsgBox "Informe a Hora Inicial."
mk1.SetFocus
Exit Sub
ElseIf mk2.Mask = "__:__" Then
MsgBox "Informe a Hora Final."
mk2.SetFocus
Exit Sub
Else
....

E está funcionando...:D

[Matheus-vb6]

Se em todas condições você estiver usando exit sub... você pode coloca-lo fora do IF... na minha opiniao fica mais simples :D

[kuroi]

ainda não entendi porque não podia usar a propriedade .Text ou, melhor ainda, a .ClipText.

e se eu entendi o q você quer, não sabia q funcionava com a propriedade .Mask, deu certo mesmo pra vc??

[Matheus-vb6]

Nossa, eu não tinha reparado que você usou .mask.... funcionou assim?

Porque geralmente eu uso .text="__" pra checar campos vazios, .cliptext eu nunca usei, então já n sei usar...

Abraços

[kuroi]

o .ClipText considera o texto sem a mascara. se ele comparar .ClipText = "" ele já deve checar se esta vazio. assim se você precisar alterar a mascara, não vai precisar alterar o codigo.

[Matheus-vb6]

Interessante esse cliptext, porem eu ainda prefiro um contador para verificar se esta totalmente preenchido... se eu quiser limpar campo o cliptext=empty não serve não é??

Codigo que uso para verificar:

dim branco as boolean
branco=false
x = 1
Do While x <= Len(NOME.Text)
If Mid(NOME.Text, x, 1) = "_" Then branco=true
x = x + 1
Loop

Abraços

[kuroi]

matheus, se você quer procurar por um "_" no meio do texto, pode usar a funcao InStr().

[Matheus-vb6]

Poderia postar um exemplo? Não consegui fazer :S

[Danleonhart]

Poderia ser assim?

If InStr(mk1.Text, "_") Then
....

não tenho certeza... :D

[Matheus-vb6]

foi uma das formas q eu tentei, não deu :S

[kuroi]

o InStr() retorna a posicao onde esta a string procurada. se não encontrar, retorna 0:

If InStr(mk1.Text, "_") <> 0 Then

[Matheus-vb6]

Consegui... bem menos complicado que o contador, para verificar todas mascaras eu poderia fazer um for com essa checagem, reduziria em umas 40+- linhas de codigo...

Vlws pessoal

[Danleonhart]

:rolleyes: Realmente, facilita bastante ! :closedeyes: