15-07-14, 02:10 PM
اتمنى ان يفيدك هذا الكود
[b]
Private Sub PictureBox1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.DoubleClick
If PictureBox1.Image Is Nothing Then Exit Sub
Dim filePath = Application.StartupPath + "\a.jpg"
If File.Exists(filePath) Then File.Delete(filePath)
PictureBox1.Image.Save(filePath)
Process.Start(filePath)
End Sub[/b]
[b]
Private Sub PictureBox1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.DoubleClick
If PictureBox1.Image Is Nothing Then Exit Sub
Dim filePath = Application.StartupPath + "\a.jpg"
If File.Exists(filePath) Then File.Delete(filePath)
PictureBox1.Image.Save(filePath)
Process.Start(filePath)
End Sub
قل إني نهيت أن أعبد الذين تدعون من دون الله
لما جاءني البينات من ربي وأمرت أن أسلم لرب العالمين
لما جاءني البينات من ربي وأمرت أن أسلم لرب العالمين
