چسباندن فرم به گوشه های اسکرین #C

سلام.
اگه دیده باشید بعضی از برنامه ها وقتی داریم اونا رو Move میکنیم ، وقتی به گوشه های Screen نزدیک میشند یک هو میچسبن به گوشه ها . (مثل Jet Audio)
اگر هم تاحالا چنین برنامه ای ندیدید یه کم توضیح میدم تا دقیقا منظورم رو برسونم :
وقتی Move میکنیم و زمانی که سمت چپ فرم به نقطه ی X=0 توی Screen نزدیک میشه یک دفه فرم به نقطه x=0 می چسبه ( کشانده میشه!)
و برای اینکه از اونجا بکنیم باید مقدار بیشتری move به سمت مخالف بکنیم .

میخواستم ببینم چه طوری میتونم تو برنامم چنین خاصیتی رو اضافه کنم؟!؟?؟?

مرسی :40::11:

سلام
شما همینطوری میتوانید این کارها را با خصایص عادی Form انجام دهید و رویداد LocationChanged را کدنویسی کنید.

ولی یک مطلب وجود دارد.
در ویندوز یک مفهومی به نام AppBar وجود دارد که خیلی شبیه Dock در دات نت است ولی روی صفحه نمایش Desktop اتفاق می افتد.

من یک پنج هزارسالی میشود که Jet Audio و Winap و... و... و سایر برنامه های مشابه را نصب نکردم و ندیدم و نمیدانم برنامه شما شامل این مفهوم میشود یا خیر.


برنامه ای که AppBar شود، (مثل Dock در دات نت) صفحه Desktop را کوچک میکند و کامل هم به ان سمت میچسبد.
یعنی اگر در این حالت برنامه های دیگر، (MyComputer یا هر برنامه دیگری) را Max کنید، در محدوده باقی مانده Max میشود و روی فرم AppBar را نخواهد گرفت.

=====

1- پس اگر برنامه شما AppBar نیست میتوانید از رویداد رویداد LocationChanged استفاده کنید.

2- در غیر این صورت باید از API زیر استفاده کنید:
SHAppBarMessage
برای توضیحات بیشتر به MSDN مراجعه کنید:
msdn.microsoft.com/en-us/library/bb776821(VS.85).aspx

موفق باشید.

نه مانند AppBar نیست
یک فرم سادست که وقتی کاربر اونو move میکنه و location اش تغییر میکنه ، زمانی که با location.X < 20 میرسه فرم تغییر location میده به Location.X = 0
من این کدو رو نوشتم ولی کمی اشکال داره :

کد:

---

private void Form1_LocationChanged(object sender, EventArgs e)
        {

            if (this.Location.X < 20)
            {
                this.Location = new Point(0, this.Location.Y);
            }
           
        }

---

ولی مشکل اینجاست ! اگه ما form را به طرف مخالف ه X= 0 یعنی به سمت راست بکشیم ، تا زمانی که X < 20 هست فرم با هر 1 مرتبه تغییر X برمیگرده به 0 یعنی هی تکون میخوره و ثابت نیست تا زمانی که از 20 نگذره .
من یه فکری به سرم زد که اگه بشه حساب کرد زمانی که MouseDown میشه روی فرم و فرم میخواد move بشه تا زمانی که نشانگر mouse تا 20X از جایی که mousedown شده تغییر نکرده فرم تکون نخوره!
مرسی اگه راهنمایی کنین همین کارو انجام بدم.

دوستان این سوال من بدون جواب موندش!
چطور میشه زمانی که روی فرم عمل mouse down میشه حساب کرد چه مقدار x , y موس از جایی که mouse down کرده تغییر کرده ؟

اون کدی که میخوای واست نوشتم ، فقط تنها اشکالش اینه که به VB هستش . ( یکی از دوستان زحمت تبدیلشو بکشه )

کد:

---

    Private Sub Form1_Move(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Move

        If Me.Location.X < 20 Then
            Me.Location = New Point(0, Me.Location.Y)
        End If
        If Me.Location.Y < 20 Then
            Me.Location = New Point(Me.Location.X, 0)
        End If

        If Me.Location.X + Me.Width > My.Computer.Screen.Bounds.Width - 20 Then
            Me.Location = New Point(My.Computer.Screen.Bounds.Width - Me.Width, Me.Location.Y)
        End If

        If Me.Location.Y + Me.Height > My.Computer.Screen.Bounds.Height - 20 Then
            Me.Location = New Point(Me.Location.X, My.Computer.Screen.Bounds.Height - Me.Height)
        End If

    End Sub

---

با یه نرم افزار تبدیلش کردم ، جوابش شد این :

کد:

---

//INSTANT C# TODO TASK: Insert the following converted event handler wireups at the end of the 'InitializeComponent' method for forms, 'Page_Init' for web pages, or into a constructor for other classes:
this.Move += new System.EventHandler(Form1_Move);

    private void Form1_Move(object sender, System.EventArgs e)
    {

        if (this.Location.X < 20)
        {
            this.Location = new Point(0, this.Location.Y);
        }
        if (this.Location.Y < 20)
        {
            this.Location = new Point(this.Location.X, 0);
        }

//INSTANT C# NOTE: The file My.Designer.cs (view from the context menu) is added to project conversions to support this call to My.Computer:
        if (this.Location.X + this.Width > My.Computer.Screen.Bounds.Width - 20)
        {
//INSTANT C# NOTE: The file My.Designer.cs (view from the context menu) is added to project conversions to support this call to My.Computer:
            this.Location = new Point(My.Computer.Screen.Bounds.Width - this.Width, this.Location.Y);
        }

//INSTANT C# NOTE: The file My.Designer.cs (view from the context menu) is added to project conversions to support this call to My.Computer:
        if (this.Location.Y + this.Height > My.Computer.Screen.Bounds.Height - 20)
        {
//INSTANT C# NOTE: The file My.Designer.cs (view from the context menu) is added to project conversions to support this call to My.Computer:
            this.Location = new Point(this.Location.X, My.Computer.Screen.Bounds.Height - this.Height);
        }

    }

---

دوست عزیز خیلی ممنون . مشکل چسبیدن به گوشه های اسکرین تا حدودی حل شد دستتون درد
ولی اگه امکانش هست خودتان 1 بار این را تست کنین تا مشکلاتشو ببینید .
مشکلش اینه که زمانی که توی کمتر از 20 هست فرم دائم تکون میخوره .
باید قسمتی به کد اضافه کنیم که تا زمانی که زیره 20 هست ، تا زمانی که موس بیشتر از 20 تا تغییر مکان نداده تکون نخوره.
بازم سوالمو که تو پست 4 بود تکرار میکنم :
چطور میشه زمانی که روی فرم عمل mouse down میشه حساب کرد چه مقدار x , y موس از جایی که mouse down کرده تغییر کرده ؟
مرسی

بدست آوردن و ذخیره کردن مختصات مکانی که در آن عمل mouse down رخ داده است :

کد:

---

Dim x, y As Integer
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        x = e.X
        y = e.Y
    End Sub

---

بدست آوردن اختلاف مکان قبلی و فعلی :

کد:

---

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If e.Button = Windows.Forms.MouseButtons.Left Then
            x2 = e.X - x
            y2 = e.Y - y
        End If
    End Sub

---

من نمیدونم اینو برای چی میخوای ، ولی اگر برای حرکت دادن فرم میخوای کدش اینه :

کد:

---

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Me.Left = Windows.Forms.Cursor.Position.X - x
            Me.Top = Windows.Forms.Cursor.Position.Y - y
        End If
    End Sub

---

----------------------------------------------------------------------------


تو کد قبلی که واست گزاشته بودم ، فرم نمیتونست از صفحه نمایش خارج بشه ، تو این کد جدید اصلاح شده .

کد:

---

    Private Sub Form1_Move(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Move

        If Me.Location.X < 20 And Me.Location.X > 0 Then
            Me.Location = New Point(0, Me.Location.Y)
        End If
        If Me.Location.Y < 20 And Me.Location.Y > 0 Then
            Me.Location = New Point(Me.Location.X, 0)
        End If

        If Me.Location.X + Me.Width > My.Computer.Screen.Bounds.Width - 20 And Me.Location.X + Me.Width < My.Computer.Screen.Bounds.Width Then
            Me.Location = New Point(My.Computer.Screen.Bounds.Width - Me.Width, Me.Location.Y)
        End If

        If Me.Location.Y + Me.Height > My.Computer.Screen.Bounds.Height - 20 And Me.Location.Y + Me.Height < My.Computer.Screen.Bounds.Height Then
            Me.Location = New Point(Me.Location.X, My.Computer.Screen.Bounds.Height - Me.Height)
        End If

    End Sub

---

نقل قول:

---

نوشته شده توسط BILLY_Mgs [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

مشکلش اینه که زمانی که توی کمتر از 20 هست فرم دائم تکون میخوره .

مرسی

---

درسته ، حق با شماست ، سعیمو میکنم درستش کنم . فعلا

نقل قول:

---

من نمیدونم اینو برای چی میخوای ، ولی اگر برای حرکت دادن فرم میخوای

---

مثلا زمانی که فرم به سمت چپ اسکرین چسبیده و ما می خوایم اونو به سمت راست بکشیم برای اینکه تا زمانی که تا >20 هست فرم دائم تکون نخوره move شدن رو غیر فعال کنیم و زمانی که ما از 20 درجه بیشتر موس رو به سمت راست بردیم اون موقع move شدن فعال بشه .
با این کار از تکون خوردن دائم فرم جلوگیری کنیم.

سلام

نقل قول:

---

... یعنی هی تکون میخوره ...

---

بالاخره تازه امشب کمی وقت کردم و روی مشکل کار کردم ...

کد فعلی دستورات تغییر محل خود دات نت را از کار انداخته و خودش اینکار را انجام میدهد.
نتیجه آن است که میتوان قبل از اعمال محل جدید این عدد را اصلاح کرد.
(نه اینکه فرم حرکت کند و بعد تازه ما اصلاحش کنیم.)

این کد را تست کنید و در صورت نیاز بهینه و یا با شرایط خودتان اصلاح کنید:

کد:

---

private System.Drawing.Point m_FirtsLocation = new System.Drawing.Point(-1, -1);

[System.Runtime.InteropServices.DllImportAttribute("user32.dll")]
private static extern bool ReleaseCapture();

[System.Runtime.InteropServices.DllImportAttribute("user32.dll")]
private static extern IntPtr SetCapture(IntPtr hwnd);

protected override void WndProc(ref Message m)
{
    if ((m.Msg == 161) && (m.WParam.ToInt32() == 2))
    {
        this.m_FirtsLocation = System.Windows.Forms.Control.MousePosition;
        ReleaseCapture();
        SetCapture(this.Handle);
        return;
    }

    if (this.m_FirtsLocation.X >= 0)
    {
        if ((System.Windows.Forms.Control.MouseButtons & MouseButtons.Left) > 0)
        {
            var newlocation = System.Windows.Forms.Control.MousePosition;
            var pos = new System.Drawing.Point(this.Left + newlocation.X - this.m_FirtsLocation.X, this.Top + newlocation.Y - this.m_FirtsLocation.Y);

            //... align code ...
            if (pos.X <= 200) pos.X = 0;

            this.Location = pos;
            //return;
        }
        else
        {
            this.m_FirtsLocation.X = -1;
            this.UpdateBounds();
            ReleaseCapture();
        }
    }

    base.WndProc(ref m);
}

---

(بخش align code جهت تطبیق با شرایط خودتان است)
موفق باشید.