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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : حركة جميلة للفورم لكن هل يمكن تطبيقها على البانل فقط داخل الفورم؟؟؟ (/showthread.php?tid=1124)

حركة جميلة للفورم لكن هل يمكن تطبيقها على البانل فقط داخل الفورم؟؟؟ - Ameer syria - 29-11-13

السلام عليكم Blush اعذروني على اسئلتي الكثيرة
هذا كود لجعل الفورم يظهر من اليمين الى اليسار
[code] Public Enum AnimateWindowFlags
AW_HOR_POSITIVE = &H1
AW_HOR_NEGATIVE = &H2
AW_VER_POSITIVE = &H4
AW_VER_NEGATIVE = &H8
AW_CENTER = &H10
AW_HIDE = &H10000
AW_ACTIVATE = &H20000
AW_SLIDE = &H40000
AW_BLEND = &H80000
End Enum
Public Declare Auto Function AnimateWindow Lib "user32" (ByVal hwnd As IntPtr, ByVal time As Integer, ByVal flags As AnimateWindowFlags) As Boolean

Sub animateWin(ByVal frmToAnimate As Form, ByVal showForm As Boolean)
If showForm Then
AnimateWindow(frmToAnimate.Handle, 1000, AnimateWindowFlags.AW_HOR_NEGATIVE Or AnimateWindowFlags.AW_SLIDE)
Else
AnimateWindow(frmToAnimate.Handle, 1000, AnimateWindowFlags.AW_HOR_POSITIVE Or AnimateWindowFlags.AW_HIDE)
End If
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
animateWin(Me, True)
End Sub
-------------------------------------------------------------------------------------
فهل هناك كود لفتح واغلاق البانل في الفورم بنفس الطريقة وباكثر من اتجاه (يمين-يسار-فوق-تحت)Huh

RE: حركة جميلة للفورم لكن هل يمكن تطبيقها على البانل فقط داخل الفورم؟؟؟ - أبو عمر - 30-11-13

لا أظن الكود عينه ينفع لـ
Panel
لكن توجد بدائل أخرى لتجعل البانل تتمدد
مثلاً

PHP كود :
Friend Class Form1
    Inherits System.Windows.Forms.Form
    Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
        Timer1.Interval = 250
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Panel1.Left = (Me.Width - Panel1.Width) / 2
        Panel1.Width = Panel1.Width + 50
        If Panel1.Width >= 400 Then Timer1.Enabled = False
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Panel1.Width = 0
    End Sub
End Class 


RE: ... - sooriaty03 - 30-11-13

السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم

تابع هذا الموضوع سيفيدك كثيرا بإذن الله