26-06-20, 01:20 AM
السلام عليك اخوي
ان شاء الله الكود التالي يكون هو اللي تحتاجه
الكود يقوم بوضع نافذة البرنامج Form1 على يمين شاشة سطح المكتب وعند الضغط بزر الفارة عليها يزداد حجمها من 100 الى 500 وهي القيم اللي انا حددتها
وعند خروج الفارة يرجع حجم النافذة (العرض) الى 100
ان شاء الله الكود التالي يكون هو اللي تحتاجه
الكود يقوم بوضع نافذة البرنامج 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


