Image dynamic avec crystal reports (Vb.net)
Fermé
sek2008
Messages postés
38
Date d'inscription
vendredi 18 avril 2008
Statut
Membre
Dernière intervention
19 août 2008
-
19 juin 2008 à 10:31
cool_ismael Messages postés 1 Date d'inscription lundi 20 juin 2016 Statut Membre Dernière intervention 3 août 2016 - 3 août 2016 à 17:27
cool_ismael Messages postés 1 Date d'inscription lundi 20 juin 2016 Statut Membre Dernière intervention 3 août 2016 - 3 août 2016 à 17:27
A voir également:
- Image dynamic avec crystal reports (Vb.net)
- Crystal reports download - Télécharger - Présentation
- Crystal disk - Télécharger - Informations & Diagnostic
- Image iso - Guide
- Crystal disk mark - Télécharger - Divers Utilitaires
- Acronis true image - Télécharger - Sauvegarde
5 réponses
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cool_ismael
Messages postés
1
Date d'inscription
lundi 20 juin 2016
Statut
Membre
Dernière intervention
3 août 2016
3 août 2016 à 17:27
3 août 2016 à 17:27
Private Sub capturePhoto
dim ImPhoto() as byte 'représente par le type image dans une BD
If Not Me.PictureBox1.Image Is Nothing Then
If System.IO.File.Exists(ME_Context.Nom_Fich_Image) Then
Try
Dim fs As New IO.FileStream(ME_Context.Nom_Fich_Image, IO.FileMode.Open)
Dim br As New IO.BinaryReader(fs)
ImPhoto = br.ReadBytes(CInt(fs.Length))
br.Close()
Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
End Try
End If
End If
end sub
Private Sub affiche_Photo(ByVal Photo() As Byte)
If Not Photo Is Nothing Then
Dim ms As New IO.MemoryStream(Photo)
Me.PictureBox1.Image = Image.FromStream(ms)
End If
End Sub
dim ImPhoto() as byte 'représente par le type image dans une BD
If Not Me.PictureBox1.Image Is Nothing Then
If System.IO.File.Exists(ME_Context.Nom_Fich_Image) Then
Try
Dim fs As New IO.FileStream(ME_Context.Nom_Fich_Image, IO.FileMode.Open)
Dim br As New IO.BinaryReader(fs)
ImPhoto = br.ReadBytes(CInt(fs.Length))
br.Close()
Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
End Try
End If
End If
end sub
Private Sub affiche_Photo(ByVal Photo() As Byte)
If Not Photo Is Nothing Then
Dim ms As New IO.MemoryStream(Photo)
Me.PictureBox1.Image = Image.FromStream(ms)
End If
End Sub
