اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

  • 2 weeks later...
قام بنشر (معدل)

@بلال اليامين

بس غير الكود 

وللصور جمع فلتر 

عند حدث الزر :

Private Sub Command1_Click()
On Error GoTo ABC
'=======================
 Dim varFileX2 As Variant
    Dim destpathX2 As Variant
    '===========================
Dim X As Object
Set X = Application.FileDialog(msoFileDialogFilePicker) 'Application.FileDialog(3)
With X

.AllowMultiSelect = False
.Filters.Clear
.Title = "pleas Selcted item PHOTO .. File_IMG"
.Filters.Add "All png", "*.png;*.jpg"
.Filters.Add "All File", "*.*"

 If .Show = True Then
  For Each varFileX2 In .SelectedItems
   destpathX2 = varFileX2
       
          
       Me.ImgPath = destpathX2
           Me.Image0.Picture = Me.ImgPath
          Next
          Else
          If Me.ImgPath = "" Then
          Me.Image0.Picture = ""
          End If
          MsgBox " No selected File IMG"
End If
 End With
 Set X = Nothing
ABB:
Exit Sub
ABC:
Resume ABB
End Sub

 

تم تعديل بواسطه hanan_ms

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information