كيف ابرمج زر استعراض لاختيار الصور

[aaabade]

مرحبا

كيف ابرمج زر استعراض لادراج مسار صورة في حقل ال IMG

بحيث عندما اضغط عليه يستعرض الصور واختار منها ويقوم بادراج مسار الصورة في حقل الصور

FAILURE.accdb

[أبوبسمله]

وعليكم السلام

اتفضل ان شاء الله يكون ما تريد

 

FAILURE.accdb

[aaabade]

15 دقائق مضت, الفلاحجى said:

وعليكم السلام

اتفضل ان شاء الله يكون ما تريد

 

FAILURE.accdb 452 kB · 3 تنزيلات

الله يعطيك العافية استاذ الفلاحجي. مية بالمية هذا المطلوب

 

ياليت تشرح لي الكود من فضلك

[أبوبسمله]

شرح ع قد حالى

قمنا باستدعاء المكتبه كما بالصوره والرقم 16 يتغير على حسب الاوفيس لديك

 

ثم

On Error Resume Next
Dim f As FileDialog
Set f = Application.FileDialog(msoFileDialogFilePicker)
f.Show
Me.IMG = f.SelectedItems(1)
Me.Image64 = Me.IMG

قمنا بعمل متغير لفتح مربع الحوار  f والذى تم تعريفه بالمكتبه السابقه

ثم قمنا باسناد قيمه للمتغير f تساوى قيمه فايل

ثم جعلنا حقل الباث يساوى المتغير ثم عرضنا الصوره

واليك رابط للاستفاده ويوجد العديد من الشروحات القيمه هنا بالموقع ابحث عنها

https://analystcave.com/vba-application-filedialog-select-file/

بالتوفيق اخى

 

 

[محمد أبوعبدالله]

بالاضافة الى ما تفضل به استاذنا الفاضل @الفلاحجى وله الشكر

تفضل اخي الكريم

Private Sub Command65_Click()

    With Application.FileDialog(3)
        .Title = "Choose File"
        .Filters.Clear
        .Filters.Add "Pic Files", "*.jpg ; *.bmp"
        .AllowMultiSelect = False
        .InitialFileName = ""
        If .Show = -1 Then
          Me.IMG = .SelectedItems(1)
        End If
    End With

End Sub

FAILURE.rar

تحياتي

[أبوبسمله]

جزاك الله خيرا اخى واستاذى @محمد أبوعبدالله 💐

احسنت بالاستغناء عن المكتبه

[aaabade]

3 ساعات مضت, الفلاحجى said:

شرح ع قد حالى

قمنا باستدعاء المكتبه كما بالصوره والرقم 16 يتغير على حسب الاوفيس لديك

 

ثم

On Error Resume Next
Dim f As FileDialog
Set f = Application.FileDialog(msoFileDialogFilePicker)
f.Show
Me.IMG = f.SelectedItems(1)
Me.Image64 = Me.IMG

قمنا بعمل متغير لفتح مربع الحوار  f والذى تم تعريفه بالمكتبه السابقه

ثم قمنا باسناد قيمه للمتغير f تساوى قيمه فايل

ثم جعلنا حقل الباث يساوى المتغير ثم عرضنا الصوره

واليك رابط للاستفاده ويوجد العديد من الشروحات القيمه هنا بالموقع ابحث عنها

https://analystcave.com/vba-application-filedialog-select-file/

بالتوفيق اخى

 

 

اشكرك. اخي الفلاحجي. لقد استفدت كثيرا من شرحك. 

 

2 ساعات مضت, محمد أبوعبدالله said:

بالاضافة الى ما تفضل به استاذنا الفاضل @الفلاحجى وله الشكر

تفضل اخي الكريم

Private Sub Command65_Click()

    With Application.FileDialog(3)
        .Title = "Choose File"
        .Filters.Clear
        .Filters.Add "Pic Files", "*.jpg ; *.bmp"
        .AllowMultiSelect = False
        .InitialFileName = ""
        If .Show = -1 Then
          Me.IMG = .SelectedItems(1)
        End If
    End With

End Sub

FAILURE.rar 26.49 kB · 0 تنزيلات

تحياتي

عمل ممتاز جدا. اشكرك استاذ محمد.