[Ameer syria]

السلام عليكم اعذروني على اسئلتي الكثيرة
هذا كود لجعل الفورم يظهر من اليمين الى اليسار

[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

-------------------------------------------------------------------------------------
فهل هناك كود لفتح واغلاق البانل في الفورم بنفس الطريقة وباكثر من اتجاه (يمين-يسار-فوق-تحت)

[أبو عمر]

لا أظن الكود عينه ينفع لـ
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 


[sooriaty03]

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

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

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