Private Sub BtnancLogo_Click(sender As Object, e As EventArgs) Handles BtnancLogo.Click Dim file_name As String = Application.ExecutablePath file_name = file_name.Substring(0, file_name.LastIndexOf("\bin")) & "\LogoSociete." PicBoxLogo.Image = Image.FromFile(file_name & "bmp") End Sub
Private Sub FormDevis_Load(sender As Object, e As EventArgs) Handles Me.Load Dim file_name As String = Application.ExecutablePath file_name = file_name.Substring(0, file_name.LastIndexOf("\bin")) & "\LogoSociete." PicBoxLogo2.Image = Image.FromFile(file_name & "bmp") End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Class Form1 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim file_name As String = Application.StartupPath 'chemin du dossier de l'exe PictureBox1.Image = Image.FromFile(file_name & "\Guadeloupe 189.jpg") 'adapter le nom de l'image avec l'extension End Sub Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim file_name As String = Application.StartupPath 'chemin du dossier de l'exe PictureBox1.Image = Image.FromFile(file_name & "\Guadeloupe 189.jpg") 'adapter le nom de l'image avec l'extension End Sub End Class
MsgBox(Application.StartupPath)
MsgBox(Application.ExecutablePath)