Boa tarde galera!
Alguém pode por gentileza, verificar o meu código abaixo e me dizer onde estou errando?
É o seguinte:
Criei uma função que verifica o texto digitado em uma Textbox. Caso o texto tenha carácter não permitido envia um balão que informa o erro para o usuário.
O problema é que o balão não aparece no lugar certo, ou seja, quero que o balão apareça no final da Textbox que esta com o carácter errado...
Segue código:
'EVENTO Leave DA CAIXA DE TEXTO
Private Sub txtEstado_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtEstado.Leave
Dim vTexto As String = Me.txtEstado.Text.Trim()
Dim vCaracterPermitido As String = "ABCÇDEFGHIJKLMNOPQRSTUVWXYZabcçdefghijklmnopqrstuvwxyz"
Dim vTextoValido As Boolean = cOMPARAR_cARACTER_tEXTO(vTexto, vCaracterPermitido, txtEstado)
End Sub
' FUNÇÃO USADA PARA COMPARAR O TEXTO DIGITADO
Function cOMPARAR_cARACTER_tEXTO(ByVal Texto As String, ByVal CaracterPermitido As String,
ByVal Objeto As TextBox)
Dim vTextoValido As Boolean = True
Const Msg As String = "Caracter não permitido foi encontrado!"
Dim vQtdeCaracterTexto As Integer = Len(Texto)
Dim vCaracter As String = Nothing
For i = 1 To vQtdeCaracterTexto
vCaracter = Mid$(Texto, i, 1)
If InStr(CaracterPermitido, vCaracter) = 0 Then
Dim obj_Messagem_Systema As New class_MENSSAGENS_SYSTEMA()
obj_Messagem_Systema.MsgBalao(Objeto, Msg, vCaracter)
vTextoValido = False
Return vTextoValido
Exit For
End If
Next
Return vTextoValido
End Function
'CLASS MENSSAGEM EM BALÃO
Public Class class_MENSSAGENS_SYSTEMA
Public Function MsgBalao(ByVal Objeto As TextBox, ByVal MsgText As String, ByVal Caracter As String) As Boolean
Dim MsgStatus As Boolean
Dim x As Integer = Objeto.Location.X
Dim y As Integer = Objeto.Location.Y
Dim Ctrl As New ToolTip()
With Ctrl
.IsBalloon = True
.ShowAlways = True
.ToolTipIcon = ToolTipIcon.Warning
.AutoPopDelay = 2
.UseAnimation = True
.ToolTipTitle = "Atenção!"
.Show(MsgText, Objeto, y, x - 250, 3000)
.ForeColor = Color.Black
End With
Return MsgStatus
End Function
End Class
Qualquer dica é valida!!!
Desde já agradeço
Att,
Reinaldo
