Discussion :

[Cvbdev]

Hello !

Je travaille sous VB.net 2005, et je devellope un projet pour POCKET PC !

Mon soucis est le suivant, j'ai une image sur le disque que je charge dans un BitMap. Que j'envoie ensuite dans mon Contrôle Image (Pict_Dessin). Ceci fonctionne trés bien...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
                     If File.Exists(.sFileNameImage & "\dessin_" & _
                                    Format(.NumPieces, "0") & ".bmp") = True Then
                        Dim bitmapFile = New Bitmap(.sFileNameImage & "\dessin_" & _
                                    Format(.NumPieces, "0") & ".bmp")
                        dessin.CroBar_BitMap = bitmapFile
                        'Mettre l'image dans le dessin
                        PICT_Dessin.Image = bitmapFile
                        'Détruire l'objet
                        bitmapFile = Nothing
 
                     End If

Là ou les choses se compliquent c'est que j'ai besoin de suprimer le fichier image à un moment donné dans le code pour le recréer ensuite, avec les mises à jour qui vont bien...

Code :

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

1
2
3
4
5
6
7
8
9
10
          'Rechercher si le fichier existe
            If File.Exists(Piece.Dessin) = True Then
               'Supprimer le fichier et le récréer
               File.Delete(Piece.Dessin)
 
               'Le crée de nouveau
               'Enregister le fichier sur le disque
               Me.PICT_Dessin.Image = dessin.CroBar_BitMap
               Me.PICT_Dessin.Image.Save(.sFileNameImage & "\dessin_" & Format(.NumPieces, "0") _
                                                            & ".bmp", System.Drawing.Imaging.ImageFormat.Jpeg)

A ce moment là, j'obtien un message d'erreur comme quoi le fichier est utilisé par une ressource. Aprés un diagnostic, il semble à 99% que la ligne suivante (ci-dessous), m'ouvre le fichier en lecture mais ne le referme pas ensuite, provoquant ainsi l'erreur lorsque je veux supprimer ce dernier.

Code :

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

1
2
Dim bitmapFile = New Bitmap(.sFileNameImage & "\dessin_" & _
                                    Format(.NumPieces, "0") & ".bmp")

Ma question est simple :

Comment est-ce que je fais pour charger le fichier dans mon BitMap sans que celui-ci reste ouvert ? J'ai essaye avec les méthode StremReader aussi sans succès...

D'avance merci pour vos réponses
M.


ps :

Les Méthodes FromFile & FileClose n'existe pas . Je suis sous un environnement CompactPC ou de nombreuses méthodes sont absentes...

[Cvbdev]

Bonjour,

Y a t-il une personne qui peut me donner un début de solution à mon soucis ? Je cherche depuis 8 Jours sans succès.

@++