aaabade قام بنشر يوليو 29, 2020 مشاركة قام بنشر يوليو 29, 2020 لدى برنامج لعرض الصور والمستخدم يقوم بادراج الصور من اي مكان من على الجهاز. ومن ثم يقوم بحذفها من الجهاز. فلا يتعرف البرنامج على الصورة فهل هناك فكرة لجعل البرنامج يقوم باخذ نسخة من الصور بعد ادراجها ووضعها في ملف بجانب البرنامج. test.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد أبوعبدالله قام بنشر يوليو 29, 2020 أفضل إجابة مشاركة قام بنشر يوليو 29, 2020 تفضل اخي الكريم With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Add "Pic Files", "*.jpg ; *.bmp" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then IMG = .SelectedItems(1) Dim varFile As Variant For Each varFile In .SelectedItems Me.IMG = Application.CurrentProject.Path & "\" & "image" & "\" & Me.SER & "." & Right$(varFile, Len(varFile) - InStrRev(varFile, ".")) FileCopy varFile, Me.IMG Next End If End With test.rar تحياتي 2 رابط هذا التعليق شارك More sharing options...
aaabade قام بنشر يوليو 29, 2020 الكاتب مشاركة قام بنشر يوليو 29, 2020 12 دقائق مضت, محمد أبوعبدالله said: تفضل اخي الكريم With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Add "Pic Files", "*.jpg ; *.bmp" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then IMG = .SelectedItems(1) Dim varFile As Variant For Each varFile In .SelectedItems Me.IMG = Application.CurrentProject.Path & "\" & "image" & "\" & Me.SER & "." & Right$(varFile, Len(varFile) - InStrRev(varFile, ".")) FileCopy varFile, Me.IMG Next End If End With test.rar 47.69 kB · 0 تنزيلات تحياتي مشالله عليك استاذ محمد مبدع وشغل معلمين الله يعطيك العافية اشكرك رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر يوليو 29, 2020 مشاركة قام بنشر يوليو 29, 2020 بالتوفيق اخي الكريم وبارك الله فيك تحياتي 1 رابط هذا التعليق شارك More sharing options...
حربي العنزي قام بنشر يوليو 29, 2020 مشاركة قام بنشر يوليو 29, 2020 السلام عليكم ورحمة الله وبركاته بعد اذن صاحب الموضوع الله يحفظه يارب استاذ محمد ابو عبدالله الله يحفظك ويحميك من كل شر يارب هل بالامكان شرح الكود سطر سطر لكي نتعلم ونستفيد الله يبارك في جهودك يا طيب تحياتي لصاحب الموضوع رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر يوليو 29, 2020 مشاركة قام بنشر يوليو 29, 2020 5 ساعات مضت, حربي العنزي said: استاذ محمد ابو عبدالله الله يحفظك ويحميك من كل شر يارب هل بالامكان شرح الكود سطر سطر الكود التالي لفتح مربع حوار لاستعراض مكان الصورة مع عمل فلتر بانواع الملفات المطلوب اظهارها With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Add "Pic Files", "*.jpg ; *.bmp" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then حقل الصورة = مسار ةاسم الملف المجدد IMG = .SelectedItems(1) نسخ الملف الى المجلد الذي بجوار البرنامج وتحديد اسم جديد له Dim varFile As Variant For Each varFile In .SelectedItems Me.IMG = Application.CurrentProject.Path & "\" & "image" & "\" & Me.SER & "." & Right$(varFile, Len(varFile) - InStrRev(varFile, ".")) FileCopy varFile, Me.IMG تحياتي 1 رابط هذا التعليق شارك More sharing options...
حربي العنزي قام بنشر يوليو 29, 2020 مشاركة قام بنشر يوليو 29, 2020 Me.IMG = Application.CurrentProject.Path & "\" & "image" & "\" & Me.SER & "." & Right$(varFile, Len(varFile) - InStrRev(varFile, ".")) استاذي الفاضل الله يبارك فيك ويحفظك وكل عام وانت بألف خير وصحة وسلامة يارب اي ان : Me.IMG = حقل بالجدول image = المجلد الي بجوار البرنامج Me.SER = ماذا يمثل رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر يوليو 29, 2020 مشاركة قام بنشر يوليو 29, 2020 Me.SER = يمثل حقل موجود في الجدول وهو ترقيم تلقائي يستخدمه صاحب الموضوع ككود للسجل وحيث انه ترقيم تلقائي أي انه لا يتكرر اخترت ان يكون هو اسم الملف الجديد حتى لا يتكرر اسم الملف مرة اخرى ويحدث استبدال للملف تحياتي 1 رابط هذا التعليق شارك More sharing options...
حربي العنزي قام بنشر يوليو 29, 2020 مشاركة قام بنشر يوليو 29, 2020 استاذ محمد الغالي الله لايحرمنا من شخصك الكريم والطيب يا طيب ممنون منك جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.