bonjour a tousse

voila mon problème
dans ma richtextbox je peut ouvrir une image et je peut meme la redimensionné le seul soucis c'est que le curseur de ma souris de change pas
vous savez quand on écrit du texte le curseur de la souris c'est un très vertical avec deux petite ligne en haut et en bas
mais quand j'ouvre mon image et que je redimensionne mon image et bien se curseur ne change pas et donc je ne sais pas trop se qu'il faut faire
avez vous une idée ?

ceci est le code qui permet de mettre mon image sur la richtextbox
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Class Class_DrawRtb
        Public Sub add_pictures_to_rtb(ByVal pic As Image, ByVal rtb As RichTextBox, ByVal index As Integer)
            Dim x As Clipboard
            Dim a As Integer
            Dim b As Integer
            Dim tmpobj As Object
            tmpobj = x.GetDataObject
            x.SetDataObject(pic)
            a = rtb.SelectionStart
            b = rtb.SelectionLength
            rtb.SelectionLength = 0
            rtb.SelectionStart = index
            rtb.Paste()
            x.SetDataObject(tmpobj)
            If index >= a Then a += 1
            rtb.SelectionStart = a
            rtb.SelectionLength = b
        End Sub
    End Class
et le code qui permet d'ouvrir mon image
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 Private Sub ImageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImageToolStripMenuItem.Click
        Dim a As New Class_DrawRtb()
        Dim fichier As String = ""
        Dim openFileDialog1 As New OpenFileDialog()
 
        openFileDialog1.Filter = "Images BMP (*.bmp)|*.bmp|JPG (*.JPG)|*.JPG|GIF (*.GIF)|*.GIF"
        openFileDialog1.InitialDirectory = "C:\"
 
        If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            fichier = openFileDialog1.FileName
            a.add_pictures_to_rtb(New Bitmap(fichier), RichTextBoxFR1, RichTextBoxFR1.SelectionStart)
        End If
    End Sub