سلام مجدد
توی این تاپیک یه نمونه دیدم
ولی نتونستم کد رو تفسیر کنم. از دوستان زحمت میکشن ببینم این چی بچی هست
Private Sub cmdOpenImage_Click()
Dim dlg As FileDialog, strFile As String
Set dlg = Application.FileDialog(msoFileDialogFilePicker)
With dlg
.AllowMultiSelect = False
.Filters.Add "Images", "*.gif; *.jpg; *.jpeg; *.png; *.bmp", 1
.Title = "ÇäÊÎÇÈ ÝÇíá"
.InitialFileName = MyPrj("Images")
.ButtonName = "ÇäÊÎÇÈ"
If dlg.Show = True Then
txtLogoPath = .SelectedItems(1)
Me.imgLogo.Picture = txtLogoPath
cmdSaveLogo.Enabled = True
End If
End With
Set dlg = Nothing
End Sub