تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
السؤال بسيط
#7
السلام عليك اخوي

ان شاء الله الكود التالي يكون هو اللي تحتاجه
الكود يقوم بوضع نافذة البرنامج Form1 على يمين شاشة سطح المكتب وعند الضغط بزر الفارة عليها يزداد حجمها من 100 الى 500 وهي القيم اللي انا حددتها 
وعند  خروج الفارة يرجع حجم النافذة (العرض) الى 100

كود :
Imports System.Threading

Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Height = Screen.PrimaryScreen.Bounds.Height
        Me.Width = 100
        Me.Left = Screen.PrimaryScreen.Bounds.Right - Me.Width
        Me.Top = 0
    End Sub

    Private Sub Form1_MouseClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
        While Me.Width < 500
            Thread.Sleep(200)
            Me.Width += 200
            Me.Left -= 200
        End While
    End Sub

    Private Sub Form1_MouseLeave(sender As Object, e As System.EventArgs) Handles Me.MouseLeave
        Me.Width = 100
        Me.Left = Screen.PrimaryScreen.Bounds.Right - Me.Width
    End Sub

End Class

الرد }}}
تم الشكر بواسطة: ابو ليلى


الردود في هذا الموضوع
السؤال بسيط - بواسطة new_programer - 31-05-20, 11:23 PM
RE: السؤال بسيط - بواسطة ابراهيم ايبو - 01-06-20, 01:45 AM
RE: السؤال بسيط - بواسطة new_programer - 02-06-20, 01:23 AM
RE: السؤال بسيط - بواسطة معاند الحظ - 02-06-20, 04:03 AM
RE: السؤال بسيط - بواسطة ابراهيم ايبو - 03-06-20, 04:35 AM
RE: السؤال بسيط - بواسطة new_programer - 25-06-20, 07:45 PM
RE: السؤال بسيط - بواسطة معاند الحظ - 26-06-20, 01:20 AM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سالت قوقل وما جاوب على السؤال justforit 0 137 01-11-25, 02:58 AM
آخر رد: justforit
  مساعدة في كود عدم تكرار استدعاء نفس السؤال من المصفوفة fireswored1 5 551 10-02-25, 05:11 PM
آخر رد: fireswored1
  وجدت كود بسيط للصلاحيات وعدلته ليناسب مشروعي ولكن ظهرت بعض الأخطاء F.H.M 1 278 17-09-24, 09:34 PM
آخر رد: F.H.M
  سؤال بسيط يا احبتى فى الله خالد كامل1 4 623 07-01-24, 12:55 AM
آخر رد: Mujahef
Tongue استفسار بسيط عن كريستال ريبورت waataanys 1 565 30-11-23, 04:44 PM
آخر رد: Taha Okla
  اريد اضافة متغيراخر داخل Listbox1 احتاج تعديل بسيط moh61 0 551 05-08-23, 02:29 PM
آخر رد: moh61
  مثال بسيط لربط قواعد mySql مع Vb.net atefkhalf2004 2 684 17-04-23, 01:03 AM
آخر رد: atefkhalf2004
  قاعدة بيانات مع ادراج الصور رائعة جدا مع خطأ بسيط .. مساعدة Tajaldeen 0 566 21-12-22, 07:11 AM
آخر رد: Tajaldeen
  [سؤال] ممكن حد يساعدني في السؤال ده حسن الجلب 1 688 21-07-22, 11:44 AM
آخر رد: alfaiz678
  [سؤال] أرجو المساعدة سؤال بسيط dr.programming 9 1,742 10-06-22, 11:30 PM
آخر رد: سعود

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


يقوم بقرائة الموضوع: