none
Menssagem Balão VB.NET RRS feed

  • 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

    segunda-feira, 11 de fevereiro de 2013 19:50

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




    terça-feira, 12 de fevereiro de 2013 18:17

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




    terça-feira, 12 de fevereiro de 2013 18:17
  • Olá 
    Cara, tente isso, acredito ira resolver seu problema =)

    ToolTip.SetToolTip(Control, Texto)
    ToolTip.Show(Texto, Control, CInt(Control.Width / 2), Control.Height, 5000)
    quarta-feira, 14 de maio de 2014 02:04