none
Mostar/Ocultar Painel quando o Mouse está encostado ao lado direito RRS feed

  • Pergunta

  • Meu objetivo é quando o mouse está encostado ao lado direito da form, mostar o Panel1.

    Addicionei 3 Labels.

    LabelX - Obtém a coordenada X do cursor na Form1

    LabelY - Obtém a coordena Y do cursor na Form1

    Largura - Obtém a largura da From1

    Private Sub Form1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
            LabelX.Text = e.X
            LabelY.Text = e.Y
    
            If LabelX.Text >= Largura.Text Then
                Panel1.Visible = True
            Else
                Panel1.Visible = False
            End If
    
        End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    Largura.Text = Me.Widht - "100"
        End Sub

    Funciona ? Sim funciona mas se eu mover o mouse para o lado esquerdo por vezes, com certas coordenadas, o painel fica visivel. Alguma sugestão?


    Meu novo programa (Bloco de Notas) http://hyrokumata-app.blogspot.pt/2012/07/notepad-3-beta.html


    segunda-feira, 17 de dezembro de 2012 19:31

Respostas

Todas as Respostas

  • Acredito que o problema seja porque você está fazendo as operações tudo com string, tente converter os valores para inteiros onde você faz o If e a subtração no Form_Load.

    Abraços!


    Thiago Coelho - Líder das Comunidades .NET Coders e Windows 8 Brasil
    thiagocoelho.net | @thiagokoelho

    terça-feira, 18 de dezembro de 2012 12:04
  • Consegui

    Private Sub Form1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
            Dim x As String = e.X
            Dim largura As String = Me.Width
    
            If x > largura - "100" Then
                Panel1.Visible = True
            Else
                Panel1.Visible = False
            End If
        End Sub


    Meu novo programa (Bloco de Notas) http://hyrokumata-app.blogspot.pt/2012/07/notepad-3-beta.html

    quinta-feira, 17 de janeiro de 2013 20:37