تضمين الصورة في الفورم - تحريك النص ...

لقد قمت يا أخي الحالم بالجنة بعمل التغييرات على المشروع وهاهو جاهز .

test.zip

لقد قمت بعمل التغييرات على المشروع

test.zip

السلام عليكم

الاخ / أحمد خلف

شكرا اخي الكريم

مثالك ممتاز

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

راجع بريدك

-----------------------------------------------------------------------------------------------

الاخ / _voodoo_

انار الله طريقك...كما دللتني على الحل...

انت رائع يااخي فالف شكر لك...

مثالك اجاب عن جميع تساؤلاتي...ماعدا تضمين الصورة في الفورم فالذي كنت اقصده

ان توجد الصورة في الفورم تلقائيا عن تشغيل الفورم بدون زر امر كوماند وبدون تحديد مسار الصورة بإي شكل من الاشكال...بحيث تكون جزءا منه

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

شكرا لك مرة اخرى اخي الكريم

راجع بريدك

لازلت انتظر...ياإحبتي الكرام...

أخي ( الحالم بالجنة ) أنا قمت بإضافة Frame للنافذة وقمت بتغيير خاصية BorderStyle إلى None ثم قمت بيحديد الـ Label ثم قصِّه وقمت بتحديد الـ Frame ثم نقرت عليه باليمين ثم Paste فصار الـ Label على الـ Frame .

هذا اللي عملته على النافذة .

أما الأكواد فإليك هي مع شرحها :

Private Sub Form_Load()

VScroll1.Max = (Label2.Height - Frame1.Height) ' هذا لتحديد قيمة شريط التمرير حيث يجعل قيمته تساوي الفرق بين طول الـ Label وطول الـ Frame .

VScroll1.SmallChange = 50 ' يجعل التغير في قيمة الشريط = 50 .

VScroll1.LargeChange = 120 ' يجعل التغير عند النقر على أي مكان على الشريط =120 .

End Sub

-------------------------------------------------------------------

Private Sub VScroll1_Change()

Label2.Top = -VScroll1.Value ' يجعل علو الـ Label عن علو الـ Frame = سالب قيمة شريط التمرير .

End Sub

بالنسبة لتضمين الصورة بالفورم

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

ممكن با اخ Voodoo تكتب الايميل بتاعك حى اراسلك

السلام عليكم

اخواني الاعزاء

شكرا لكم جميعا على مساعدتكم

وكان القصد من قيامي بالطلب منكما مراسلتي هو انني احببت ان ارسل لكما هدية بسيطة وهي عبارة عن البرنامج الذي اقوم بتصميمه وهو عبارة عن برنامج محاضرات اسلامية على مذهب اهل السنة والجماعة للشيخ عائض القرني وسوف ارسله لكم على عنوانكم البريدي وعلى حسابي الخاص...فقط هذا مااردته...فاذا احببتما ذلك (والكلام موجه الى الاخ احمد والاخ voodoo) فارسلا لي رسالة على بردي المبين في الاعلى...

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

1- لدي نموذجين :

***الاساسي (الاحمر) : هذا هو الفورم الاساسي الذي اريد ان يكون ظاهر ونشط فقط في حالة انبثاق نموذج اخر منه (الفورم الازرق) اما في حالة عدم انبثاق اي نموذج منه والمستخدم غير التركيز الى اي نقطة اخرى على الشاشة فانه لايكون نشط اي انه اذا كان المستخدم شغال على الفورم الاساسي وارد ان يفتح برنامج الوورد او المستكشف او قائمة ابدأ فان الفورم الاساسي لايكون نشط ولا يكون في المقدمة

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

2- عندما اريد ان اعمل ملف exe لبرنامجي فانه تظهر لي رسالة خطأ حاولت مرارا وتكرارا ولكن لافائدة مع العلم انني استخدم win xp فهل هناك تعارض؟وماالحل يااخوتي...!!!

وباقي المشاكل موجودة في المثال المرفق...

ارجو المساعدة منكم يااحبتي كما تعودنا منكم...

project1.zip

جرب التعديلات اللى ادخلتها علي المشروع

project1.zip

هذا هو بريدي يا أخي ( الحالم بالجنة ) :

yka_yka@hotmail.com

الله يعطيك العافية

ومجهود تشكر عليه

لكن جعل الفورم في المقدمة لايعمل بشكل صحيح

فعند الضغط على الزر في الفورم الاحمر لفتح الفورم الازرق فانه يعمل في المرة الاولى بشكل صحيح لكن في المرة الثانية وما بعدها لايعمل بشكل صحيح فان الفورم الازرق يكون خلف الفورم الاحمر

اما باقي الاسئله فكلها تمام

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

السلام عليكم

ايها الاحبة الكرام

الحمد لله من قبل ومن بعد...

جميع مشاكل البرامج تم حلها...

واريد اضافة على البرنامج كناحية كمالية او جمالية...

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

علما بان المحاضرات لدي تعمل ببرنامج ريل بلاير واستخدم الكود التالي لتشغيل المحاضرة :

Case 0
        RealAudio1.Source = App.Path & "\AL-QARNI\0.rm"
        RealAudio1.DoPlay
Case 1
        RealAudio1.Source = App.Path & "\AL-QARNI\1.rm"
        RealAudio1.DoPlay
Case 2
        RealAudio1.Source = App.Path & "\AL-QARNI\2.rm"
        RealAudio1.DoPlay
Case 3
        RealAudio1.Source = App.Path & "\AL-QARNI\3.rm"
        RealAudio1.DoPlay

ونسأل الله عز وجل ان يوفقنا لخدمة الاسلام والمسلمين...

وجزاككم الله خيرا...

أضف أخي ( الحالم يالجنة ) هذا الكود :

Private Sub RealAudio1_OnPresentationClosed()

If List1.ListIndex = List1.ListCount - 1 Then

Else

List1.ListIndex = List1.ListIndex + 1

End If

End Sub

وهذا هو ملف المشروع .

التطبيق.zip

السلام عليكم

عذرا على الانقطاع احبتي الكرام...

اخي العزيز...سوف اجرب ماذكرت...وارد عليك...

شكرا لتعاونك...تقبل تحياتي...

أخي العزيز الحالم بالجنة

بالنسبة لمشكلة جعل الفورم في المقدمة فلا أدري إذا حلت مشكلتك أو لا

عدلت قليلا على عمل الأخ فودو لكي تصبح فورم 2 فوق فورم 1 في كل مرة تضغطها فيها و ليس فقط أول مرة

مع تحيات أخوكم David Smith

project1.rar