[mohssan]

السلام عليكم

شباب شلون اخلي للزر حركة
يعني اول ما تنفتح النفاذة مثلا يجي الزر من اليسار لليمين و يوقف عن مكان

و السؤال الثاني ابغي اكواد هاذي العلامات الي في صورة عشا احطهم على زر

[sherif khalid]

السلام عليكم ورحمة الله وبركاتة

اولا: بخصوص تحريك الزر من اليسار الى اليمين انا لا افهم ماذا تريد بالتحديد

ولاكن اذا كان على تغير موضع الزر فهذا هو الكود

كود :

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