السلام عليكم
شباب شلون اخلي للزر حركة
يعني اول ما تنفتح النفاذة مثلا يجي الزر من اليسار لليمين و يوقف عن مكان
و السؤال الثاني ابغي اكواد هاذي العلامات الي في صورة عشا احطهم على زر
السلام عليكم ورحمة الله وبركاتة
اولا: بخصوص تحريك الزر من اليسار الى اليمين انا لا افهم ماذا تريد بالتحديد
ولاكن اذا كان على تغير موضع الزر فهذا هو الكود
كود :
Button1.Location = New Point(x,y)
ثانا: بخصوص اكواد الازرار
كود :
'Close Button
Me.Close()
'Maximized Button
Me.WindowState = FormWindowState.Maximized
'Minimized Button
Me.WindowState = FormWindowState.Minimized
هذا كلاس بسيط
كود :
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Control.CheckForIllegalCrossThreadCalls = False
btn_close.Left = Panel1.Left - btn_close.Width
btn_minimize.Left = Panel1.Left - btn_close.Width + btn_minimize.Left
If bgw_btn_close.IsBusy Then Exit Sub
bgw_btn_close.RunWorkerAsync()
End Sub
Private Sub bgw_btn_close_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles bgw_btn_close.DoWork
Threading.Thread.Sleep(1500)
Do Until btn_close.Left >= Panel1.Right - btn_close.Width
btn_close.Left += 1
Loop
End Sub
Private Sub btn_close_Click(sender As Object, e As EventArgs) Handles btn_close.Click
End
End Sub
Private Sub btn_close_Move(sender As Object, e As EventArgs) Handles btn_close.Move
btn_minimize.Left = btn_close.Left - btn_minimize.Width
End Sub
Private Sub btn_minimize_Click(sender As Object, e As EventArgs) Handles btn_minimize.Click
Me.WindowState = FormWindowState.Minimized
End Sub
End Class
عطل مربع الازرار وضع اعلى الفورم بانل لتضع بها زرين عين لهما صورة تعبر عن مؤداهما
اضف backgroundworker