24-06-13, 11:59 PM
السلام عليكم ورحمة الله وبركاته
احببت ان انزل هذه الاداة الرائعة المجانية انها ليست كاداة Animation Gif الغير مجانية
اسمها Tani.ocx
يتم استخدامها من خلال وضع مسار الملف مع اسمه وامتداده هكذا مثلا c:\a.gif
ثم تشغيله
لبندأ الشرح أولا
نضع الاداة في ملف Windows\System32في ذاكرة النظام (هذا المكان المفضل للأدوات)
ثم نفتح برنامج فيجوال بيسك 6 ثم من قائمة Project>>Component>>Browse>>Windows\System32
ثم نختار اداة tani.ocx
ندرجها على الفورم ثم نضع صندوق وزر
بحيث يكون صندوق النص فيه وضع مسار الملف مع اسمه وامتداده
ونضع في الزر الكود التالي
On Error GoTo err
If Text1.Text <> "" Then
TMaxAni1.FileName = Text1.Text
TMaxAni1.ShowGif
End If
Exit Sub
err:
err.Clear
MsgBox "اسم الملف غير صحيح"
_______________
انتهى الشرح
مشكلة هذه الاداة لا توجد فيها خاصية stretch
لا تعمل الا على فيجوال بيسك 6
_______________
أرتايت ان اصنع برنامج يجعل عملية وضع مسار الملف مع اسمه وامتداده اسهل
لذا هذا هو مشروع فيه خاصية سحب وافلات بحيث تسحب الملف ذو الصورة المتحركة الى البرنامج اما يتم افلاته على الفورم او صندوق النص ارجو ان يعمل عنكم البرنامج بشكل جيد
_______________
^_* دمتم في أمان الله
احببت ان انزل هذه الاداة الرائعة المجانية انها ليست كاداة Animation Gif الغير مجانية
اسمها Tani.ocx
يتم استخدامها من خلال وضع مسار الملف مع اسمه وامتداده هكذا مثلا c:\a.gif
ثم تشغيله
لبندأ الشرح أولا
نضع الاداة في ملف Windows\System32في ذاكرة النظام (هذا المكان المفضل للأدوات)
ثم نفتح برنامج فيجوال بيسك 6 ثم من قائمة Project>>Component>>Browse>>Windows\System32
ثم نختار اداة tani.ocx
ندرجها على الفورم ثم نضع صندوق وزر
بحيث يكون صندوق النص فيه وضع مسار الملف مع اسمه وامتداده
ونضع في الزر الكود التالي
On Error GoTo err
If Text1.Text <> "" Then
TMaxAni1.FileName = Text1.Text
TMaxAni1.ShowGif
End If
Exit Sub
err:
err.Clear
MsgBox "اسم الملف غير صحيح"
_______________
انتهى الشرح
مشكلة هذه الاداة لا توجد فيها خاصية stretch
لا تعمل الا على فيجوال بيسك 6
_______________
أرتايت ان اصنع برنامج يجعل عملية وضع مسار الملف مع اسمه وامتداده اسهل
لذا هذا هو مشروع فيه خاصية سحب وافلات بحيث تسحب الملف ذو الصورة المتحركة الى البرنامج اما يتم افلاته على الفورم او صندوق النص ارجو ان يعمل عنكم البرنامج بشكل جيد
_______________
^_* دمتم في أمان الله