كيفية عمل الفورم يتمدد بحجم الفلاشة

انا مافهمت عدل بس اظن انك تريد بان لا تكبر ؟

او تكون اول ما تفتح البرنامج حجم الذي صممته انت ؟

بالطبع لأ

انا عايز حجم الفورم ياخد نفس حجم الفلاشة اياً كانت حجمها

يعني انت بتضع فيها اداة فلاشة ؟ واذا كبرت الفورم الاداة تكبر ؟

اذا كان قصدك هكذا :

مثلا اسم الفلاش = flash1

ضع تايمر

والكود : :

flash1.hight = form1.hight

flash1.width = form1.width

فقط اما اذا اردت الفورم لا يتكبر

ضع خاصية border style = 1-fixed singel ثم خاصية minbutton = trou

هكذا لم تستطيع تكبير الفورم حتى ب ctrl + alt + delete

يا رااااجل بقولك عايز الفورم تاخد حجم الفلاش تخلليلي الفلاشة تاخد حجم الفورمة

اقتباس

flash1.hight = form1.hight

flash1.width = form1.width

من غير مجرب الكود الكود غلط

<_< -_-

يا اخ اعكس

form1.hight = flash1.hight

form1.width = flash1.width

و الكود صح بس انت غير كلمة flash باسم اداة الفلاش التي لديك

لو كان الحل كده مكنتش تعبت نفسي من زمان

الكود غير صالح

انشا برنامج جديد

ضع تايمر (timer) و ليبل (label)

ضع خاصية interval = 1 في التايمر

Private Sub Timer1_Timer()

Form1.Height = Label1.Height

Form1.Width = Label1.Width

End Sub

يا جماعة عايز الرد ضروري

علي ما اظن ان الفكرة مشروحة بالعربي مش بالاغريقي :)

Private Sub Timer1_Timer()

Form1.Height = Label1.Height

Form1.Width = Label1.Width

End Sub

الكود شغال 100%

وين الغلط ؟؟

تاكد بان interval = 1

و enabled = trou

والكود 100% شغال

بسم الله

انا مش عارف الاخ imam007 معترض على ايه

اعتقد ان الكود بتاع الاخ مبرمج مبتدأ شغال ومش غلط

الا اذا الاخ imam007 مش شارح كويس

اقتباس

انا عايز حجم الفورم ياخد نفس حجم الفلاشة اياً كانت حجمها

للتوضيح الاخ يقصد ان حجم الفورم يكون مطابق لحجم ملف الفلاش وليس العكس

أي لو قام بفتح ملف فلاش صغير الابعاد تصغر الفورم

ولو فتح ملف فلاش كبير الابعاد تكبر الفورم

أي التغير حسب حجم ملف الفلاش

B)

i will talk english for you more understand

look the code

form1.width = flash1.width

form1.hieght = flash1.hieght

form1.width = flash1.width

ا

اي انك تقول للفجوال : عرض الفورم =

 form1.width=

عرض الفلاش1

flash1.width

وهكذا يصبح : عرض فورم 1 = عرض الفلاش1

اقتباس

i will talk english for you more understand

مش معقول لسى ماحدى فاهم :D

ياشباب الاخ موضح المقصد رح اقعد محامي B) عنه اليوم

اقتباس

علي ما اظن ان الفكرة مشروحة بالعربي مش بالاغريقي

اقتباس

للتوضيح الاخ يقصد ان حجم الفورم يكون مطابق لحجم ملف الفلاش وليس العكس

أخي مبرمج مبتدا هو انت جربت الكود وظبط معك :blink:

يعني جرب افتح فلاش صغير هل سيصغر حجم الفورم

الحمد الله لأقيت واحد فاهم قصدي بارك الله فيك يا اخ المزمجر

يا ريت الاقي حل

قصدك واضح لكن السبيل اليه قد يكون غير موجود , أنا قضيت أيام و لياليها من البحث و قراءة مشاريع فلاشات بالـ VB و الـ C و الـ Delphi و لم أصل لشئ (ملحوطة أنا معلوماتى ضعيفة عن الـ C و الـ Delphi لكن المعرفة بأى لغة تمكنك من فهم بسيط لأكواد اللغات الأخرى).

يعني فعلا إلى الان لم أصادف كود يقوم بالعملية

أمامك حلان جزئيان

* فتح الملف من داخل برنامجك يعني فتح عادي مثل الدبل كليك ووقتها رح يظهر تلقائيا بحجمه الطبيعي

* جعل الفلاش بحجم الفورم وإعطاء خاصية إظهار 100% للأداة الفلاش بالكود التالي

Private Sub Form_Resize()
	With ShockwaveFlash1
		.Top = 0
		.Left = 0
		.Width = Me.ScaleWidth
		.Height = Me.ScaleHeight
	End With

End Sub

Private Sub run_Click()
	ShockwaveFlash1.Movie = App.Path & "\1.swf"
	ShockwaveFlash1.ScaleMode = 3
End Sub

بالتوفيق.............

انا مجرب ب shockwaveflash1

الكود شغال

بس تقدر تحط قبل الكود الي انا عطيتك اياه

shockwaveflash1.top = 0

shockwaveflash1.left = 0

ثم ضع

form1.width = shockwaveflash1.width

form1.hieght = shockwaveflash1.hieght

شغال اقلك كم مرة ومجرب ايضا

انظر اخي المزمجر المثال برده مفيش اي تمدد او انكماش الحجم ثابت

ex.rar

اخي مبرمج مبتدا

الرجاء عدم الاجابة قبل التأكد من اجابتك حتي لاتأثر علي باقي الاعضاء ويعتقدوا انك جاوبت

ويتركون الموضوع

اخي msayed2004

انا عارف ودورت كتييير تقريباً في كل امثلة

http://www.planet-source-code.com/vb/

اكيد فيه حل ولو مفيش طيب ازاي الـ Flash Player بيشتغل

اقتباس

انظر اخي المزمجر المثال برده مفيش اي تمدد او انكماش الحجم ثابت

قد قلت لك أن الحل جزئي سيفيدك بعرض الفلاشة بحجمها الطبيعي لكن بوضع الفورم ملئ الشاشة

اقتباس

اكيد فيه حل ولو مفيش طيب ازاي الـ Flash Player بيشتغل

بالنسبة لبرنامج الفلاش لا أظنه مصمم بالفيجوال

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

فقد لا يكون للأداة خاصية التوسع حسب الحجم مثلا

.....

ضع هذا الكود في تايمر خاصية INTERVAL = 100

SHOCKWAVE1.TOP = 0

SHOCKWAVE1.LEFT = 0

FORM1.WIDTH = SHOCKWAVE1.WIDTH

FORM1.HIEGHT = SHOCKWAVE1.HIEGHT

شكراً ليك اخي المزمجر

اخي مبرمج مبتدأ روح جرب اكوادك وبعد كده حطلنا المثال بتاعك

علشان متتعبناش كتيييير

عارف أن دى حاجة غريبة عموما أنا كنت بفكر أفحص اى ملف فلاش بـ Hex Editor و غيره يمكن الاقى معلومة تفيدنى.

منذ فترة بدأت ابحث في مثل هذا الموضوع لم اجد اي شئ مفيد

بس ابتديت اتلاعب بمثل هذا الكود هو مش شغال وحش بس مش حلو

cmd.Filter = "Flash files (*.swf)|*.swf"
cmd.ShowOpen

ShockwaveFlash1.Movie = cmd.FileName
ShockwaveFlash1.Height = Me.Height + 2000
ShockwaveFlash1.Width = Me.Width + 2048
ShockwaveFlash1.Play
Image1.Top = ShockwaveFlash1.Top + ShockwaveFlash1.Height
Form1.Height = Image1.Top + Image1.Height

مع وجود كائن image علي الفورم بس العيب لازم اضيف رقم لأرتفاع الفورم علشان ياخد حجم الفلاش