Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click OpenFileDialog1.Title = "Choix du fichier image" OpenFileDialog1.Filter = "JPEG (*.JPG)|*.JPG|All files (*.*)|*.*" OpenFileDialog1.RestoreDirectory = True OpenFileDialog1.FilterIndex = 2 OpenFileDialog1.Multiselect = False ' OpenFileDialog1.FileName = "" If OpenFileDialog1.ShowDialog = DialogResult.OK Then Try Me.Phot1Label1.Text = OpenFileDialog1.FileName 'Dim image As Bitmap = Bitmap.FromFile(OpenFileDialog1.FileName) PictureBox1.Load(Me.Phot1Label1.Text) Me.Label10.Text = "1" Catch ex As Exception MsgBox("L'image doit être de format :" & vbLf & "JPG, GIF, BMP, EXIF, PNG, TIFF" & vbLf & "Remédier !", vbExclamation) End Try End If OpenFileDialog1.Dispose() End Sub
je me sers de Phot1Label1 pour enregistrer dans la BDD le chemin d'acces.[quote]
quand je crée un report, le contrôle image doit charger l'image du chemin qui est dans la BDD.Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked Form2.Oeuvre_localeTableAdapter.FillByNom(Form2.TestVirtualDataSet.Oeuvre_locale, Me.Label13.Text & "%") Form2.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout) Form2.ReportViewer1.RefreshReport() Form2.ReportViewer1.ZoomMode = ZoomMode.Percent Form2.ReportViewer1.ZoomPercent = 25 Form2.StartPosition = FormStartPosition.CenterScreen Form2.Show() End Sub
j'ai sa comme message dans le report.
[quote]une erreur s'est produite lors du traitement du rapport local.
le rapport << report1>> contient des images externes. la propriété EnableExtemalImages n'a pas été définie pour ce rapport
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question