none
Como mostrar uma janela no lugar a onde o esta o cursor? RRS feed

  • Pergunta

  • Boa Noite!

    Criei uma form como BorderStyle = None e vou usa-la como se fosse um ContextMenuStrip. Não quero usar o ContextMenuStrip porque não atende todas as minhas necessidades. Então quero que quando o usuário clicar com o botão direito em uma textbox é mostra essa form no local a onde foi clicado como se fosse uma contextmenustrip. Tem como fazer isso?

    Obrigado desde já!

    sexta-feira, 7 de novembro de 2014 22:12

Respostas

  • Caso tenha conseguido a solução finalize sua Thread marcando a resposta

    GTSA vantagem de ser inteligente é que podemos fingir que somos imbecis enquanto ao contrario é completamente impossivel

    • Marcado como Resposta Marcos SJ quinta-feira, 17 de setembro de 2015 18:53
    domingo, 28 de junho de 2015 14:52

Todas as Respostas

  • Boa tarde Edison,

    Como assim, você quer que abra uma janela pra mostrar onde está o cursor do mouse?

    Att,


    Ricardo Cortes Microsoft Contingent Staff

    Esse contedo e fornecido sem garantias de qualquer tipo, seja expressa ou implicita.

    MSDN Community Support

    segunda-feira, 10 de novembro de 2014 16:23
  • Edison,

    Tem sim...tente o seguinte código:

    Public Sub New()
    	InitializeComponent()
    
    	Me.MouseClick += New MouseEventHandler(AddressOf Form1_MouseClick)
    End Sub
    
    Private Sub Form1_MouseClick(sender As Object, e As MouseEventArgs)
    	Dim t1 As New teste1()
    	t1.StartPosition = FormStartPosition.Manual
    	t1.Location = GetCursorPosition()
    	t1.Show()
    End Sub
    
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure POINT
    	Public X As Integer
    	Public Y As Integer
    
    	Public Shared Widening Operator CType(point As POINT) As Point
    		Return New Point(point.X, point.Y)
    	End Operator
    End Structure
    
    <DllImport("user32.dll")> _
    Public Shared Function GetCursorPos(ByRef lpPoint As POINT) As Boolean
    End Function
    
    Public Shared Function GetCursorPosition() As Point
    	Dim lpPoint As POINT
    	GetCursorPos(lpPoint)
    
    	Return lpPoint
    End Function

    Espero ter ajudado e boa sorte!


    Não esqueça de marcar como útil uma resposta que te ajude.
    "A diversão é a alma do negócio"

    segunda-feira, 10 de novembro de 2014 16:45
  • Caso tenha conseguido a solução finalize sua Thread marcando a resposta

    GTSA vantagem de ser inteligente é que podemos fingir que somos imbecis enquanto ao contrario é completamente impossivel

    • Marcado como Resposta Marcos SJ quinta-feira, 17 de setembro de 2015 18:53
    domingo, 28 de junho de 2015 14:52