Discussion :

[Dr.F.G.]

Bonjour à tous
j'ai créé un programme en Visual Basic 2010 qui génère une conclusion qui s'affiche dans une richtextbox.
je voudrais à un endroit précis de la conclusion insérer une image enregistrée sur le disque dur au format JPG.

j'ai ajouté une classe qui me permet de retrouver une séquence particulière dans la string de ma conclusion et d'insérer le graphique à cet endroit.
Tout fonctionnait parfaitement bien mais plus depuis 48 h Aucune mise à jour, aucun bidouillage particulier ...

message d'erreur : L'exceptionNotSupportedException n'a pas été gérée ... Le format du chemin d'accès donné n'est pas pris en charge.
voilà le bout de programme

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
Imports System.IO
Public Class Form1
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
 
        RichTextBox1.Find("123", RichTextBoxFinds.MatchCase)
 
        Dim RetourImage As New essai()
 
        RetourImage.insertion(New Bitmap("‪C:\Users\Frédéric\Documents\1.PNG"), RichTextBox1, RichTextBox1.SelectionStart)
 
    End Sub
End Class

et voilà la class :

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
20
21
22
Public Class essai
 
    Public Sub insertion(ByVal pic As Image, ByVal rtb As RichTextBox, ByVal index As Integer)
 
        Dim ADebut As Integer
        Dim BFin As Integer
        Dim tmpobj As Object
        tmpobj = Clipboard.GetDataObject
        Clipboard.SetDataObject(pic)
        ADebut = rtb.SelectionStart
        BFin = rtb.SelectionLength
        rtb.SelectionLength = 0
        rtb.SelectionStart = index
        rtb.Paste()
        Clipboard.SetDataObject(tmpobj)
        If index >= ADebut Then ADebut += 1
        rtb.SelectionStart = ADebut
        rtb.SelectionLength = BFin
 
    End Sub
 
End Class

Merci à la communauté pour ses conseils avisés ...

[Dr.F.G.]

L'exemple ci dessus utilise une image PNG au lieu de JPG, mais cela fonctionnait parfaitement bien avec les deux formats...

[Sankasssss]

Tu es sûr de New Bitmap("‪C:\Users\Frédéric\Documents\1.PNG") ? car ça doit être sur ça qu'il plante. Moi j'aurais mis New Bitmap("C:\Users\Frédéric\Documents\1.PNG")

[Dr.F.G.]

Je viens de m'apercevoir que le copier coller ajoutait des caractères supplémentaires :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RetourImage.insertion(New Bitmap("‪C:\Users\Frédéric\Documents\1.PNG"), RichTextBox1, RichTextBox1.SelectionStart)

en fait, "‪esperluettediése8234;"‪ n'existe pas dans mon code.

[Sankasssss]

Tu es sûr qu'il n'y a pas un caractère spécial invisible qui passe mal? Essaie de supprimer et de retaper le chemin manuellement (sans copier/collé).

[AbsoluteLogic]

Une autre hypothèse que je peux faire: essaie de remplacer les "\" par des "/". Même si théoriquement, ça devrait être "\", des fois, ça passe mal...

[Dr.F.G.]

Bonsoir,

j'ai été très intrigué par l'apparition de l'esperluette dièse - chiffres
J'ai retapé le code avec chemin d'accès => plus de problème
en fait j'ai recréé l'erreur en tapant le chemin d’accès sans les guillemets, le c:\ a été corrigé automatiquement en 'char(\' et en validant la ligne sans la relire j'ai généré ce code 'invisible' dans ma ligne. En copiant cette ligne je l'ai diffusé dans tout mon document ...
Merci beaucoup pour votre réactivité

Affaire résolu !
...
a une petite chose prêt : dès que je copie : colle un path je recrée une erreur => la "dll copier-coller" diot être affectée (??) dans ce cas là comment faire pour normaliser les choses ?

en tout cas Merci beaucoup !