04-02-20, 01:51 AM
محتاج كود لتحميل الصورة من pbox الي مسار محدد علما بان الصورة تخش القاعدة باينر
04-02-20, 02:05 AM
(04-02-20, 01:51 AM)محمدالزند كتب : [ -> ]محتاج كود لتحميل الصورة من pbox الي مسار محدد علما بان الصورة تخش القاعدة باينر
تقصد تحفظ الصورة بمسار محدد
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error Resume Next
Dim SaveFileAs As New SaveFileDialog
SaveFileAs.Title = "Save File As"
SaveFileAs.FileName = "*.jpg"
SaveFileAs.Filter = "Jpeg |*.jpg"
If SaveFileAs.ShowDialog() = Windows.Forms.DialogResult.OK Then
PictureBox1.Image.Save(SaveFileAs.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
End If
End Subاو تحميل الصورة من مسار تختارة الطريقتين معاك .
كود :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim LOADFILE As New OpenFileDialog
Dim result As DialogResult = LOADFILE.ShowDialog
If result = Windows.Forms.DialogResult.OK Then
If (LOADFILE.FileName IsNot Nothing) Or (LOADFILE.FileName <> String.Empty) Then
PictureBox1.BackgroundImage = Nothing
PictureBox1.BackgroundImage = Image.FromFile(LOADFILE.FileName)
PictureBox1.BackgroundImageLayout = ImageLayout.Zoom
End If
End If
End Sub04-02-20, 02:18 AM
04-02-20, 02:21 AM
04-02-20, 02:22 AM
04-02-20, 02:25 AM
04-02-20, 02:28 AM
04-02-20, 02:42 AM
04-02-20, 11:05 PM
(04-02-20, 02:42 AM)egypt 2020 كتب : [ -> ]
االصورة بتنزل لا تعمل
خلية بوتن افضل داخل جملة تصيد الاخطاء .
وحذف الجزء دة من اعلي الكود.
كود :
On Error Resume Next
هل من خبير
هل من خبير :9