PDA

View Full Version : ايجاد يك متغير از نوع فرم ؟



relax_cp
یک شنبه 07 تیر 1388, 18:55 عصر
با سلام
من يك ماژول دارم كه بايد در داخل اون از اسم فرم استفاده مي كنه .
حالا در برنامه من چند تا فرم وجود داره كه من مي خواهم هر وقت خواستم بتونم با يك متغير كه از اون توي ماژول استفاده مي كنم نام فرم مورد نظر را داخل اون متغير بذارم كه ماژول بتونه با اون كار كنه.
من از اين دستور استفاده كردم ولي مشكلي داشت:
توي ماژول اين رو نوشتم:


Public f_form As Form


و توي فرم مورد نظرم هم در رويداد لود اون اينو نوشتم :


Set f_form = ClipShow


كه clipshow نام فرم مورد نظر است.
ولي وقتي در ماژول مثلا ميخواهد شيئ command1 را از اين فرم انتخاب كند . نمي تواند.
لطفا منو راهنمايي كنيد.

relax_cp
یک شنبه 07 تیر 1388, 19:18 عصر
بچه ها خواهش مي كنم جواب منو هم بدين.
خيلي ضروري هست.

M_P_1374
یک شنبه 07 تیر 1388, 19:23 عصر
از Set استفاده نکنید
f_form رو تو دستوراتتون قرار بدین
مثال:

Public Sub SubName(s As Variant)
>>
Public Sub SubName(Form As Form,s As Variant)
اینطوری بهتره
در ضمن پیشنهاد میکنم از کاراکتر _ استفاده نکنید

butterfly8528
یک شنبه 07 تیر 1388, 20:18 عصر
دوستان لطفا کد ها رو داخل تگ قرار بدید :تشویق:

relax_cp
یک شنبه 07 تیر 1388, 20:19 عصر
اين كارو كردم تا حدودي بهتر شد ولي يك مشكل داره
توي فرم دوم كه مي رم نمي تونم فيلم رو ببينم.
نمونه كد رو ميذارم اينجا.
(ضمنا با فرض اينكه از همين تابع استفاده شود و يا كامپوننتي غير از مديا پلير )
لينك:
http://www.box.net/shared/bo9ss9o9bi
متشكر مي شم. كمكم كنيد.

مهران رسا
دوشنبه 08 تیر 1388, 13:54 عصر
در ضمن پیشنهاد میکنم از کاراکتر _ استفاده نکنید


می تونم بپرسم چرا نباید از _ استفاده کرد ؟

M_P_1374
دوشنبه 08 تیر 1388, 14:57 عصر
راستش من قبلا خیلی از این کاراکتر استفاده میکردم ولی توی کد های زیاد برام مشکل ساز بود و باعث دادن ارور میشد واسه همین گفتم بهتره استفاده نشه

relax_cp
دوشنبه 08 تیر 1388, 16:53 عصر
خوب m_p_1375 و دوستان ديگر لطفا كمك كنيد و مشكلمو حل كنيد ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

M_P_1374
دوشنبه 08 تیر 1388, 21:51 عصر
ببخشید من مشکلی توی فرماتون ندیدم میشه توضیح بدین مشکلتون چی هست توی فرم ClipShow

relax_cp
سه شنبه 09 تیر 1388, 15:53 عصر
ببخشید من مشکلی توی فرماتون ندیدم میشه توضیح بدین مشکلتون چی هست توی فرم ClipShow


دوست عزيزم
وقتي توي فرم دوم كه مثلا نام آن Form1 هست ميخواهم يك متغيير از نوع Form تعريف كنم اين كار انجام مي شه و خطايي نمي گيره ولي وقتي برنامه را اجرا مي كنيم توي فرم دوم كه همان Form1 هست مي ريم و وقتي كليد Play را ميزنيم نمي توانيم فيلم را ببينيم در صورتي كه تمامي دستورات اين فرم با فرم اصلي كه همان Clipshow هست يكي است فقط نام فرم ها تغيير كرده.
مشكل اينجاست. اميدوارم راهنماييم كنيد.

:گریه: :عصبانی++: