تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
شلون اجعل للزر حركة و شلون اضيف العلامات
#1
السلام عليكم

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

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

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

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

كود :
Button1.Location = New Point(x,y)


ثانا: بخصوص اكواد الازرار

كود :
'Close Button
        Me.Close()

        'Maximized Button
        Me.WindowState = FormWindowState.Maximized

        'Minimized Button
        Me.WindowState = FormWindowState.Minimized

-----------------------
Software Developer

Microsoft Partner

الرد }}}}
تم الشكر بواسطة: سعود , @@أبورائد@@ , kslawy
#3
هذا كلاس بسيط
كود :
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
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: @@أبورائد@@ , sherif khalid , kslawy , sooriaty03


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف اجعل برنامج يفتح ملف نصي The Light Fire 5 81 منذ 1 ساعه مضت
آخر رد: ali.alfoly
  [سؤال] كيف اجعل البرنامج يحفظ بيانات؟ The Light Fire 4 61 منذ 1 ساعه مضت
آخر رد: ali.alfoly
  [VB.NET] كيف اجعل صف في listbox ملون 3asfa~mdmra 1 80 26-11-16, 01:00 PM
آخر رد: silverlight
  كيف اضيف هذا الكود في module nabil.1710 6 122 01-11-16, 03:23 PM
آخر رد: silverlight
  اريد اجعل برنامجي يقبل اي نت فيرم ورك thevirus 2 111 31-10-16, 09:24 AM
آخر رد: thevirus
  [VB.NET] كيف ممكن اجعل هذا الاتصال بتصل بip مختلف عن ip اتصالي 3asfa~mdmra 0 56 27-10-16, 09:56 PM
آخر رد: 3asfa~mdmra
  كيف اجعل برنامجى المصمم بالفيجوال ستوديو 2012 يعمل على ويندوز 10 : 64 بيت nabil.1710 7 175 18-10-16, 03:15 AM
آخر رد: nabil.1710
  كيف اضيف اداة RibbonControl علي كعبي 2 123 19-09-16, 05:03 PM
آخر رد: علي كعبي
  جمع العلامات العشرية بالداتا جريد %Eman% 3 140 21-08-16, 08:52 PM
آخر رد: %Eman%
  [سؤال] كيف اجعل برنامجي يدعم اختصارات كيبورد من خلال ملف نصي zxz5432 1 131 09-08-16, 07:49 AM
آخر رد: zxz5432

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم