[سعود]

الزر الايسر ذو الرقم 7 عند النقر عليه ينزل الفورم اسفل ويظل هذا الجزء ظاهر للنقر على الزر مرة اخرى ليعود

دردشة مع الاكواد فقط لا اكثر.

لا يوجد شيء بالمشروع الا هذه الجزئية فقط و نافذة حول

PHP كود :

Public Class Form1
    Dim Todown As Boolean = False

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Top = My.Computer.Screen.WorkingArea.Bottom
        Me.Left = My.Computer.Screen.WorkingArea.Right - (My.Computer.Screen.WorkingArea.Width / 2) - (Me.Width / 2)
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Me.Top -= 10
    End Sub

    Private Sub Form1_Move(sender As Object, e As System.EventArgs) Handles Me.Move
        If Me.Bottom <= My.Computer.Screen.WorkingArea.Bottom Then Timer1.Stop() : Me.Top = My.Computer.Screen.WorkingArea.Bottom - Me.Height
        If Todown = True Then
            If Me.Top >= (My.Computer.Screen.WorkingArea.Bottom - Button1.Height) Then Timer2.Stop()
        End If
    End Sub



   
    Private Sub Fend_Click(sender As System.Object, e As System.EventArgs) Handles Fend.Click
        Me.Hide()
        Me.Close()
    End Sub

    Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick
        Me.Top += 20
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If Todown = False Then
            Button1.Text = 8
            Todown = True
            Timer2.Start()
        Else
            Button1.Text = 7
            Todown = False
            Timer1.Start()
        End If

    End Sub

    Private Sub About_Click(sender As System.Object, e As System.EventArgs) Handles About.Click
        Panel1.Controls.Clear()
        Dim ab As New Aboutme
        Panel1.Controls.Add(ab)
    End Sub
End Class 


المشروع مرفق.

  UsingMnustrip.zip (الحجم : 26.26 ك ب / التحميلات : 134)