How to move a RichTextBox with mouse

[TheTree]

Hi,

I would like to find out, how a RichTextBox can be moved by mouse. I have written some code for it, but it does not work well. The RTB does only move, when the mouse hits its border. The mouse is not really captured, too. It releases the RTB whenever it is moving outside RTB´s area.

Here´s the code:

XAML:

<Window x:Class="Window1"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="Window1" Height="300" Width="300">
    <Grid>
        <Canvas Margin="1" Name="Canvas1">
            <RichTextBox Canvas.Left="45" Canvas.Top="55" Height="100" Name="RichTextBox1" Width="200" />
        </Canvas>
    </Grid>
</Window>

VB:

Class Window1 
    Private mMouseDownPosition As Point
    
    Private Sub RichTextBox1_PreviewMouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles RichTextBox1.PreviewMouseDown
        RichTextBox1.CaptureMouse()
        mMouseDownPosition = e.GetPosition(Canvas1)
        Beep()
    End Sub

    Private Sub RichTextBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Input.MouseEventArgs) Handles RichTextBox1.MouseMove
        Dim x As Point = e.GetPosition(Canvas1)
        If (e.LeftButton = MouseButtonState.Pressed) Then
            Canvas.SetLeft(RichTextBox1, Canvas.GetLeft(RichTextBox1) + (x.X - mMouseDownPosition.X))
            Canvas.SetTop(RichTextBox1, Canvas.GetTop(RichTextBox1) + (x.Y - mMouseDownPosition.Y))
        End If
        mMouseDownPosition = x
    End Sub


    Private Sub RichTextBox1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles RichTextBox1.MouseUp
        RichTextBox1.ReleaseMouseCapture()
    End Sub

   
End Class

Greetings,

TheTree

[Hack]

Try this

Public Class Form1
    Private intXPos As Integer = 0
    Private intYPos As Integer = 0
    Private blnIsMoving As Boolean = False
 
    Private Sub RichTextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RichTextBox1.MouseDown
        intXPos = e.X
        intYPos = e.Y
        blnIsMoving = True
    End Sub
 
    Private Sub RichTextBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RichTextBox1.MouseMove
        If blnIsMoving Then
            RichTextBox1.Top = RichTextBox1.Top - (intYPos - e.Y)
            RichTextBox1.Left = RichTextBox1.Left - (intXPos - e.X)
        End If
    End Sub
 
    Private Sub RichTextBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RichTextBox1.MouseUp
        blnIsMoving = False
    End Sub
 
End Class

[TheTree]

Hi Hack,

thanks for your reply. Your code runs under WindowsForms.

I would like to code a WPF-app, so that RTBs, Lines and other controls can be added and moved by mouse.

Greetings,

TheTree

[bflosabre91]

take a look at this link.

http://blogs.msdn.com/marcelolr/arch...02/542641.aspx

[TheTree]

Hi bflosabre91,

thank you for that link. Good code.

Greetings,

Michael