هل يكن وضع صورة متحركة (لوجو متحرك)

الاخ الكريم yassin123

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

ارسل لكم هذا الملف لعلك تستفيد منه -- مع احترامي

___________.zip

واااااااااااو

أخي الكريمhttp://""' target="_blank">ABUELYAS

مثال رائع جداً والله هذا المثال عجبني جداً فقد نسنطيع بواسطته إضفاء جو المرح والفائدة على برامجنا خصوصاً عندما يتجول ذلك العجوز في أرجاء الشاشة بعصاته السحرية فعلا أنت والأخ عبد المنانع رائعين .

اخي الفاضل

لا يمكن وضع صور متخركه في خانة تسمية النموذج العلوية ( الشريط الازرق ) ولكن يمكن وضع صور ثايته مثل Bmp او Ico او Cur وهذه غير متحركه بل ثابته اذا رغبت في وضع مثال لتغيير ايقونة النموذج فلا يوجد لدينا مانع من ذلك

شكرا على الاستجابة والرد

وشكرا أخي الكريمABUELYAS

على الشيئ الجميل الذى قدمه

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

مثل كلمة بسم الله الرحمن الرحيم الموجودة أعلى صفحة المنتدى

أختي الغالية زهرة

أنا أريد بعد اذنك معرفة تغيير الايقونة الخاصة بالنموذج مع الشرح وأيضاً معرفة وضع نص متحرك في الشريط الازرق للنموذج

شكراً

حسنا اعزائي الكرام

سنقوم الان بشرح انشاء نص متحرك في اعلى النموذج في خانة الـ Caption التسمية

و شرح نص متحرك في مربع نص في النموذج

وشرح نص متحرك في اسفل شاشة الاكسيس في خانة الـ Status

وايضا سنقوم بإدراج صوره على شكل ايقونه للنموذج بدلا من الصوره الافتراضيه الموجوده في خانة الـ Caption التسمية

واخيرا سنقوم بإدراج صوره متحركة من نوع GIF في وسط النموذج

1. نقوم بإنشاء نموذج جديد او ( اذا رغبت في تطبيقها على نموذجك الجاهز ) فقم بإتباع الطريقة

2. نضع مربع نص غير منضم ونسميه مثلا lblScrollingLabel ثم نقوم بوضع خلفية لونية مناسبة له واختيار لون مناسب للنص بمعنى اذا كان النص فاتح تكون خلفية النص غامقه .

3. ننتقل الى محرر الفيجول بيسك من خلال الضغط على المفتاحين ALT + F11 من لوحة المفاتيح ثم نضع هذا الكود ( يشمل الكود حدث عند تحميل النموذج وحدث عند عداد الوقت )

Option Compare Database  ' قم بحذفه اذا كان موجود لديك
Option Explicit  ' قم بحذفه اذا كان موجود لديك

Public txtScrollStatus As String

' يوضع هذا في حدث عند التحميل للنموذج 
Private Sub Form_Load()
' شريط متحرك بأعلى النموذج
Me.Caption = "....... ضع نصك المطلوب هنا في اعلى النموذج ......."

' شريط متحرك في وسط النموذج
Me.lblScrollingLabel.Caption = "ضع نصك المطلوب هنا .............. "

' شريط متحرك في اسفل شاشة الاكسيس
txtScrollStatus = "ضع نصك المطلوب هنا بإسفل شاشة الاكسيس " & Space(25)

End Sub

' ضع في حدث عداد الوقت الرقم 100
Private Sub Form_Timer()

' هذا خاص بالشريط المحرك بأعلى النموذج
Me.Caption = Mid(Me.Caption, 2, (Len(Me.Caption) - 1)) & Left(Me.Caption, 1)

' هذا خاص بتحريك النص في مربع النص في وسط النموذج
Me.lblScrollingLabel.Caption = Mid(Me.lblScrollingLabel.Caption, 2, _
 (Len(Me.lblScrollingLabel.Caption) - 1)) & Left(Me.lblScrollingLabel.Caption, 1)

' هذا خاص بالنص المتحرك في الشريط السفلي لشاشة الاكسيس
SysCmd acSysCmdSetStatus, txtScrollStatus
txtScrollStatus = Mid(txtScrollStatus, 2, (Len(txtScrollStatus) - 1)) & Left(txtScrollStatus, 1)

End Sub

لاتنسى وضع الفاصل الزمنى لعداد الوقت على الرقم 100 ( خصائص النموذج ثم تبويب حدث ثم الفاصل الزمني لعداد الوقت )

انتهينا الان من الكلام المتحرك سواء في اعلى النموذج او في وسط النموذج او في اسفل شاشة الاكسيس قم بالتجربة وستجدها جميعها تعمل بدون مشكلة .

ننتقل الان الى شرح وضع ايقونه او صوره خاصة بنا للنموذج

1. نحاول احضار صور من نوع Bmp او Ico لان برنامج الاكسيس لا يتعرف على بقية الانواع من الصور عند وضعها في خانة التسمية Caption ولا يدعم الصور المتحركه في هذه الخانة ونحاول تجميع الصور في نفس المجلد التي تكون فيه القاعدة .

2. نقوم بإنشاء وحدة نمطية جديده ونضع بها هذا الكود

Private Declare Function LoadImage Lib "user32" _
   Alias "LoadImageA" _
   (ByVal hInst As Long, _
   ByVal lpsz As String, _
   ByVal un1 As Long, _
   ByVal n1 As Long, _
   ByVal n2 As Long, _
   ByVal un2 As Long) _
   As Long

Private Declare Function SendMessage Lib "user32" _
   Alias "SendMessageA" _
   (ByVal hWnd As Long, _
   ByVal wMsg As Long, _
   ByVal wParam As Long, _
   LParam As Any) _
   As Long

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Private Const WM_SETICON = &H80
Private Const IMAGE_ICON = 1
Private Const LR_LOADFROMFILE = &H10
Private Const SM_CXSMICON	As Long = 49
Private Const SM_CYSMICON	As Long = 50

Public Function SetFormIcon(hWnd As Long, strIconPath As String) As Boolean
	Dim lIcon As Long
	Dim lResult As Long
	Dim X As Long, Y As Long

	X = GetSystemMetrics(SM_CXSMICON)
	Y = GetSystemMetrics(SM_CYSMICON)
	lIcon = LoadImage(0, strIconPath, 1, X, Y, LR_LOADFROMFILE)
	lResult = SendMessage(hWnd, WM_SETICON, 0, ByVal lIcon)
End Function

3. نقوم بفتح النموذج في وضع التصميم ونختار حدث عند الفتح ونضع هذا الكود الخاص بإستدعاء الوحدة النمطية لوضع الصوره الخاصة بنا من نفس مجلد القاعدة

' هذا الكود يوضع عند حدث الفتح للنموذج وهو يستدعي '
' الوحدة النمطية لوضع الصوره في اعلى النموذج
Private Sub Form_Open(Cancel As Integer)
SetFormIcon Me.hWnd, CurrentProject.Path & "\X3D.ico", 0  ' لا تنسى تغيير اسم الصوره هنا
End Sub

اسم الصوره هنا في الكود X3D.ico هي نفس اسم الصوره في المجلد الذي به القاعدة

ملاحظة : من خصائص النموذج يجب ان يكون مربع عنصر التحكم على الوضع الطبيعي ( نعم ) والا لن تظهر الصوره

انتهينا من ادراج الصوره الخاصة بالنموذج

لو رغبنا بوضع صوره ايقونه خاصة لكامل التطبيق نختار من شريط قوائم الاكسيس

ادوات

بدء التشغيل

رمز التطبيق

ثم نستعرض الصوره المطلوب وضعها ويفضل ان تكون على شكل صوره ICON ( وضعت لكم عدة صور مع المثال )

ننتقل الان لشرح ادراج صوره متحركه من نوع GIF في وسط النموذج

طبعا كا يعلم الجميع ان برنامج الاكسيس من 97 وحتى 2003 لا يدعم هذا النوع من الصور اما اكسيس 2007 الجديد فبه هذه الامكانية فقد تم اضافة مكتبات اضافية تدعم هذا النوع من الصور المتحركه .

اذا نحتاج نحن هنا الى مكتبة خاصة بتحريك الصور المتحركه من نوع GIF واسم المكتبة هي AniGIF.ocx وهي لا تحتاج الى رقم سري وانما تحتاج نسخها الى مجلد النظام في الويندوز ومن ثم تسجيلها بهذه الطريقة :

1. نقوم بنسخ الاداه الى مجلد النظام C:\WINDOWS\system32 ثم نغلق المجلد

2. نضغط على زر امر بدء تشغيل الويندوز ونختار امر تشغيل ونضع هذا الأمر لتسجيل الاداه

C:\Windows\System32\Regsvr32.exe C:\Windows\System32\AniGIF.ocx

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

ملاحظة : تأكد من اسم مجلد النظام الذي لديك فقد يكون C:\Windows\System وليس C:\Windows\System32 لان هذا خاص بالويندوز XP

3. سنقوم الان بإضافة الاداة AniGIF.ocx التي سوف تمكننا من تحريك الصور من نوع GIF في النموذج

4. نفتح برنامج الاكسيس ونختار من شريط القوائم ادراج ثم عنصر التحكم ActiveX

5. بعد ظهور مربع حوار عناصر التحكم ActiveX ننزل بالمؤشر حتى نصل الى Animation GIF Control ثم نضغط موافق

6. سيتم ادراج عنصر تحكم ذو لون ابيض نضغط علية بالماوس الايمن ونختار من القائمة كائن Animation GIF Control ونختار منها خصائصها Properties .

7. سنجد ان التبويب الاول هو GIF نختار منه مربع حوار فتح الملفات Browse ثم نبحث عن الصوره المتحركة التي بصيغة GIF ثم نضغط في الاسفل على تفعيل Apply .

8. سنجد ان الصوره تحتاج الى ضبط المقاس الى الأداة اذا نختار التبويب الثاني بعد تبويب GIF وهو Properties ونختار منه تمدد Stretch ثم نضغط ايضا Apply ثم موافق ونخرج من الاداة .

9. نجد ان الصوره بصيغة GIF موجوده في الكائن وبمجرد عرض النموذج في الوضع العادي ستشاهد الحركة .

10 . لإضافة صوره جديده كرر الخطوات من 4 الى 8

وبهذا نكون قد انهينا كامل الشرح لجميع الخطوات المطلوب تنفيذها في النموذج وهذا هو المجلد يحتوي على كل الكائنات والصور

AniPic.rar

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

/index.php?showtopic=67203

هناك خطأ في تشغيل الملف أعتقد أن هناك مكتبات ناقصة برجاء المساعدة وادراج المكتبات لتشغيل المثال

اخي محمد فؤاد

لا يوجد مكتبات ناقصة ولكن يوجد مكتبات زائده قم بإزالة علامة الصح من امامها وهي GIF89 و Animation GIF واترك Animation GIF Control فهي المطلوبة حسب الطريقة التالية :

1. اضغط مفتاح الشفت قبل تشغيل البرنامج

2. بعد فتح القاعدة اضغط على المفتاحين ALT + F11 وسيفتح لك محرر الفيجول بيسك

3 . من قوائم المحرر اختر Tools ثم اختر References

4. ابحث عن GIF89 و Animation GIF ستجدهم تحت بعض قم بإزالة علامة الصح من امامها فقط ثم موافق واعد تشغيل القاعدة

بارك الله فيك أخت زهره

دائماً تتوفقين في الإجابات

تمنياتي لك بالتوفيق

بارك الله فيكي يا أختنا الغالية

الملف اشتغل زي الصاروح بعد ازاله المكتبات الزائده  :lol: