Allez chercher une image

Version imprimable

bonjour a tout le monde
j'ai encore un petit problème en vb:oops:
en faite se code permet de charger une image dans une richtextbox

voila le code le 1er code

Code:

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

donc le soucis n'est pas la
voici le 2eme code

Code:

1
2
3
4
5
6
7
 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim a As New Class_DrawRtb()
 
        a.add_pictures_to_rtb(New Bitmap(""), RichTextBox1, RichTextBox1.SelectionStart)
 
    End Sub
End Class

voila le petit soucis
dans new bitmap ("") normallement entre "" je doit rajouté le chemin de l'image par ex: ("essai.bmp") et donc la sa marche l'image se charge bien dans la richtextbox
mais je voudrait pouvoir rajouter un openfileDialog pour pouvoir choisir au choix n'importe quelle image en bmp

comment puis-je faire ?

Bonjour,
le début devrait ressembler à ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
        Dim fichier As String = ""
        Dim openFileDialog1 As New OpenFileDialog()
 
        '*** boîte de dialogue " Ouvrir Fichiers"
        '    Initialisation du type de fichiers à ouvrir et du répertoire.
        openFileDialog1.Filter = "Fichiers XML (*.xml)|*.xml"
        openFileDialog1.InitialDirectory = xmlFacturesFilePath
 
        If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            Try
                fichier = openFileDialog1.FileName

Reste à adapter tes filtres aux extensions des fichiers images et remplacer les "" par fichier.
A voir, car pas testé.

merci pour la réponse

bon ne rigoler pas mais voici mon nouveau code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim a As New Class_DrawRtb()
        Dim fichier As String = ""
        Dim openFileDialog1 As New OpenFileDialog()
 
        '*** boîte de dialogue " Ouvrir Fichiers"
        '    Initialisation du type de fichiers à ouvrir et du répertoire.
        openFileDialog1.Filter = "Fichiers BMP (*.bmp)|*.bmp"
        openFileDialog1.InitialDirectory = "C:\"
 
        If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            Try
            Catch
                fichier = openFileDialog1.FileName
            End Try
        End If
        a.add_pictures_to_rtb(New Bitmap(fichier), RichTextBox1, RichTextBox1.SelectionStart)
    End Sub

je ne sais pas si se code a.add_pictures_to_rtb etc...... je l'ai mi au bonne endroit ?
en tout qu'a quand je lance le code aucune image se charge
il me dit toujours:

Citation:

Le chemin d'accès n'a pas une forme conforme.

et il souligne le code: a.add_pictures etc......

06/09/2010, 10h51
ctxnop

Il manque le using sur le OpenFileDialog.
On préfèrera la méthode static Bitmap.FromFile(string filename).
La position du try/catch est totalement inutile, aucune exception ne peut être lancée sur lecture de cette propriété.
Par contre une exception peut être lancée sur ouverture du bitmap.
Si l'utilisateur choisit d'annuler l'ouverture de la boite de dialogue tu auras un beau crash car tu n'a pas géré ce cas et du coup "fichier" ne sera pas initialisé correctement.

sa marche
voila le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 Dim a As New Class_DrawRtb()
        Dim fichier As String = ""
        Dim openFileDialog1 As New OpenFileDialog()
 
        '*** boîte de dialogue " Ouvrir Fichiers"
        '    Initialisation du type de fichiers à ouvrir et du répertoire.
        openFileDialog1.Filter = "Fichiers BMP (*.bmp)|*.bmp"
        openFileDialog1.InitialDirectory = "C:\"
 
        If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            fichier = openFileDialog1.FileName
        ElseIf MsgBox("vous n'avez sélectionné aucun fichier.") Then
 
        End If
        a.add_pictures_to_rtb(New Bitmap(fichier), RichTextBox1, RichTextBox1.SelectionStart)
    End Sub

par contre comme tu a dit quand l'utilisateur choisi une image mais clique sur annuler et bien tout plante
alors j'ai mais un Else If avec un méssage
mais comment lui dire d'arrêter de continuer de lire le code parce que il m'affiche le msgbox mais sa plante quand meme

Il manque toujours le using sur le OpenFileDialog ...

Bon ...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 public sub AddNewPicture() Dim a As New Class_DrawRtb() Dim fichier As String = "" Using ofd As New OpenFileDialog() ofd.Filter = "Fichiers BMP (*.bmp)|*.bmp" ofd.InitialDirectory = "C:\" If ofd.ShowDialog() = DialogResult.Ok Then Image img = Image.FromFile(ofd.FileName) a.add_pictures_to_rtb(img, RichTextBox1, RichTextBox1.SelectionStart) End If End Using End Sub
Je trouve quand même qu'il est inutile de créer une classe Class_DrawRtb vu l'utilisation que tu en fais, tu aurais pu directement en faire une méthode de ton formulaire.
Le minimum aurait été de passer ta fonction add_pictures_to_rtb en static (shared en VB) afin de ne pas avoir a instancier ta classe Class_DrawRtb vu que l'instance ne sert absolument à rien.

Faire Else If signifie "sinon si", ca veut dire que si la première condition n'est pas remplie (l'utilisateur n'a pas cliqué sur OK), alors tu va tester une autre condition. Ca n'a pas de sens, soit il clique sur OK, soit il ne le fait pas, il n'y a rien d'autre à tester. D'autant qu'un MessageBox ca s'utilise comme ca : MessageBox.Show("Mon Message")

Pour "ne pas continuer", il suffit tout simplement de placer le code correctement. Met l'appel de ta fonction DANS le If, si la condition n'est pas remplie, l'appel n'est donc pas effectué.

06/09/2010, 12h15
Invité

c'est tout bon merci
sa marche
oui je sais quelque fois c'est simple et je réfléchit pas assez :mrgreen:
sa viendra avec le temps