الصورة صغيرة

[b]أين عمالقة البرمجة

المشاهده 22 والردود صفر

الله المستعان

الأمل لا يزال في ابطال هذا المنتدى .فائق التحايا

aliali

هل نفذت ما هو موجود في الملف النصي المرفق في المجلد المضغوط ؟؟

أولا بعد فك الضغط ، نذهب إلى الملف المسمى : ocxdllreg.reg

ثانيا نضغط عليه ونشغله ، ومن ثم نضغط ok

ثالثا نذهب إلى الملف المسمى : DBPix20.ocx

رابعا نضغط عليه بزر الماوس الأيمن ونختار من القائمة : Register ( نلاحظ أنه لو لم نفعل الخطوة الأولى فلن يظهر خيار register عند النقر بزر الماوس الأيمن على هذا الملف )

خامسا أصبحنا الآن نقدر على التحكم في الصور وطريقة عرضها في النموذج أو التقرير

وكيف ذلك ؟؟

نذهب إلى الخطوة السادسة ،

سادسا عند فتح التقرير على طريقة " عرض التصميم " وبعد النقر بزر الماوس الأيمن على الكونترول الذي يعرض لنا الصورة ( ActiveXCtl0 ) نجد أنه يوجد هناك خيار جديد !! إسمه : DBPIX 2.0Control Object ( إن لم نفعل الخطوات من 1 إلى 5 فلن يظهر هذا الخيار )

سابعا وأخيراً نضغط على هذا الخيار الجديد ونختار منه : Properties ، عندها نجد نموذج جديد يمكننا التحكم بطريقة عرض الصور من داخله

مع التنويه إلى أن الصورة حتى تكبر وتعرض بحجمها الحقيقي يجب أن يكون حجم الكونترول الذي يعرض لنا الصورة ( ActiveXCtl0 ) كبير !! ، وبعدها من ضمن الخصائص يمكننا أن نختار : Auto Fit إلى ما هنالك من خصائص .

الحل بسيط أخى

1- افتح وحدة نمطية جديدة وضع بها هذا الكود

Public Const SW_SHOWNORMAL As Long = 1

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
  (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
  ByVal lpParameters As String, ByVal lpDirectory As String, _
  ByVal nShowCmd As Long) As Long

Function OpenFile(fileName As String)
  ShellExecute 0, "open", fileName, vbNullString, "", SW_SHOWNORMAL
End Function

2- ضع زر فى النموذج لعرض الصورة المختارة

و ضع فى حدث عند الضغط للزر هذا الكود

OpenFile CurrentProject.Path & "\archive\" & Me.piclist.Column(1) & "\" & Me.piclist.Column(3)

الان اذا اردت عرض الصورة بحجمها العادى اختار الصورة و اضغط على الزر ستفتح لك الصورة كما لو فتحتها من الويندوز

السلام عليكم ورحمة الله وبركاته....

عندي نموذج فيه خارطة بحجم كبير ، وفي الخارطة اسماء مدن

وعندي حقل بحث

اريد من اكتب اسم المدينة في حقل البحث فتتحرك الخارطة وتذهب تلقائيا الى اسم تلك المدينة

تحياتي....