[Tajaldeen]

(24-12-22, 06:06 PM)أبووسم كتب :

ضع الكود التالي في الفورم

جزاك الله خير اخي ابو وسيم .... ولكن ما زال الخطأ التالي يظهر في الكود الخاص بزر التعديل 

كود :

Public Sub ChoosePicture(Pbox As PictureBox)
Dim a As New OpenFileDialog
With a
.AddExtension = True
.CheckPathExists = True
.CheckFileExists = True
.Title = "Choose Image"
.Filter = "Choose Image (*.PNG; *.JPG; *.GIF; *.JPEG)| *.PNG; *.JPG; *.GIF; *.JPEG | All Files (*.*)|*.*"
If .ShowDialog = DialogResult.OK Then
PBox.Image = Image.FromFile(.FileName)
End If
End With
End Sub

ثم احذف الكود الموجود في زر استعراض وضع  التالي

كود :

ChoosePicture(Pic)