[علي بنيان]

السلام عليكم 

ان شاء الله هذا الموضوع بداية لمجموعة كبيرة من المواضيع المختصرة التي تحتوي على اكواد مهمة لا غنى عنها لكل مبرمج 

اتمنى ان يحقق الفائدة للجميع 

 1- الكود الاول : انشاء فورم 

PHP كود :

Public Class Form1

    Dim FIndex As Integer = 2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Frm As New Form
        Frm.Text = "Form" & FIndex
        Frm.Show()
        FIndex += 1

    End Sub
End Class

'1-انشاء الفورم 


2-الكود الثاني : فتح الفورم بطريقة جميلة 

PHP كود :

Public Class Form1

    Dim x As Integer, y As Integer
    Dim z As Single, w As Single

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Me.SetBounds(x, y, z, w)
        x = x + 1
        y = y + 1
        If x = 100 Then
            Timer1.Enabled = False
            Timer2.Enabled = True
        End If

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        Me.SetBounds(x, y, z, w)
        z = z + 1
        w = w + 0.77
        If z = 392 Then
            Timer2.Enabled = False
        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Timer1.Enabled = True
        Timer1.Interval = 10
        Timer2.Interval = 10

    End Sub
End Class

'2-فتح الفورم و اظهارها بطريقة استعراضية مميزة