16-08-19, 02:12 PM
الزر الايسر ذو الرقم 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
المشروع مرفق.
.