اريد واجهة برنامج حلوة , استيراد ملف الفلاش

بالنسبه للسؤال الاول : للواجهه الحلوه فيه حل سريع وبسيط وهوه استخدام صوره جميله كخلفية للفورم

او انك تستخدم برنامج اكتف اسكن

السؤال الثاني :

بعد تصميم الفلاشه يجب ان تقوم باخرجها بفورمات الاصدار الخامس لان الاصدارات بعد الخامس لا

تعمل مع الفجوال 6

من قائمة project اختار components و حدد الاختيار shock wave flash

ويفضل ان تختار من خصائص فورمة الفجوال اخفاء الاطار

قم بتحديد مدة الفلاشه بدقه ثم صمم عداد تايمر ينتقل للفورمه التالية بعد انتهاء زمة عرض المقدمة الفلاشية

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

أتمنى لك التوفيق وان اكون ساعدتك

ولا تنسى ان تضيف في الفورم لود للفورمه التي تضع فيها الفلاش الكود التالي

Private Sub Form_Load()

ShockwaveFlash1.Movie = CurDir() + "\flash file name.swf"

End Sub

شكراً على الرد اشكرك

ولكن عندي سؤال اتمنا الافادة

يا شباب اسئل سؤال في المرفق يوجد به ملف فيجول وصورة. ماشي

شوفو المرفق اولاً ارجو الاجابة السريعة

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

انا اريد عندما استوردها تأخذ شكل الصورة

______.rar

السلام عليكم

قولولي مابي اداة تعمل اشكال هندسية

مثل مربع او المثلث بالحالة العادية يوجد بس خط line

وين الاجابة

يا شباب انا في المشروع بمرحلة متقدمة

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

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

السلام عليكم

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

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

تفضل اخي الكريم عل هذا يطفي بعض الحركة على المشروع

اضف اداة ميديا كونترول سميها MM

TIMER

واجعل خاصية BORDERSTYLE لـ الفورم NONE

وقم باضافة ملف صوتي سميه B.WAV داخل مجلد المشروع

واكتب الكود التالي

  Option Explicit
   Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
   Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
   Private Sub Form_Load()
   ChangeShape Me
    MM.FileName = "b.wav"
    MM.Command = "open"
    MM.Command = "play"
 End Sub
   Private Sub ChangeShape(po_Control As Object)
   
         Dim ll_Width As Long
         Dim ll_Height As Long
         Dim ll_Left As Long
         Dim ll_Top As Long
         Dim ll_Region As Long
         With po_Control
             ll_Width = .Width / Screen.TwipsPerPixelX
             ll_Height = .Height / Screen.TwipsPerPixelY
         End With
         ll_Region = CreateEllipticRgn(0, 0, ll_Width, ll_Height)
         Call SetWindowRgn(po_Control.hWnd, ll_Region, True)
   
   End Sub
   
Private Sub Timer1_Timer()
    Timer1.Enabled = False
    frmSplash.Hide
End Sub

splash.zip

اخي وين المؤئر بالموضوع شي ان الصوت حلو الله يعطيك العافية

بس على شكل دائرة انا عمل مشروعي على كامل الشاشة ما اعرف اذا سمعان بالميديا بلدر (واجهات السيديات ) يوجد به مؤثرات من اجل الصفحات

شكون يا جماعة

رائع جداً موضوع جميل

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

كيف ممكن أطبع فورم بشرط أتحك في خصائص الطابعة " الطباعة بالعرض" و" الطباعة في نصف الورقة "

ارجو الاجابة للأهمية

وللتوضيح :

في command الخاص بطباعة الفورم كتبت :

me.printform

ولكن تطلع على الصفحة بالطول ، كيف أطلعها بالعرض ؟ أريد الجواب أن يكون التعديل من داخل VB وليس من لوحة التحكم .

ماذا اعمل