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
المشروع مرفق.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
.
