Usuário com melhor resposta
Menssagem Balão VB.NET

Pergunta
-
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
Respostas
-
Ola Reinaldo Tenta assim:
.Show(MsgText, Objeto, y, x - 250, 3000)
Nessa parte aew esta a localização do balão como y e x (acredito se você mudar os lugares
Colocando onde você que o balão, resolverá o problema)
Tenta isso.
__________
Att,
Felipe
- Editado Felipe Meghi terça-feira, 12 de fevereiro de 2013 18:18
- Marcado como Resposta Ricardo RussoModerator terça-feira, 19 de fevereiro de 2013 12:14
Todas as Respostas
-
Ola Reinaldo Tenta assim:
.Show(MsgText, Objeto, y, x - 250, 3000)
Nessa parte aew esta a localização do balão como y e x (acredito se você mudar os lugares
Colocando onde você que o balão, resolverá o problema)
Tenta isso.
__________
Att,
Felipe
- Editado Felipe Meghi terça-feira, 12 de fevereiro de 2013 18:18
- Marcado como Resposta Ricardo RussoModerator terça-feira, 19 de fevereiro de 2013 12:14
-