امکان جابجایی یوزر فرم روی صفحه

[mreza]

سلام
من یه یوزر فرم طراحی کردم که بین چند نفر share شده قسمت پایین این یوزر قرم روی صفحه لب تاپ بصورت کامل نمایش داده نمیشه ولی روی مانیتور معمولی خوبه
چطور می تونم امکانی برای یوزر فرم داشته باشم که با نگهداشتن چپ کلیک روی هرجای این فرم بتونه جابجا بشه نه فقط روی نوار بالایی؟

تشکر

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[majid_mx4]

دوست عزیز
قبلا پاسخ این سوال را در انجمن دیگر داده ام اما خواستم دیگران نیز در این انجمن از آن استفاده ببرند امید است که مفید واقع گردد
برای رفع این مشکل معمولا از راه های مختلفی استفاده میشود
مثلا تنظیمات صفحه نمایش ، تنظیمات خود فرم و ...
اما بنظر می رسد که بهتر است بعد از اضافه کردن یک لیبل بنام لیبل 1 در فرم خود ( میتوانید نام لیبل را تغییر دهید ) از کد زیر استفاده کنید و نتیجه را ببیند.

Private Sub UserForm_Initialize()
     
    With Me
        Label1.Move ((.InsideWidth - Label1.Width) / 2), ((.InsideHeight - Label1.Height) / 2)
        .ScrollBars = fmScrollBarsBoth
        .ScrollHeight = .InsideHeight * 2
        .ScrollWidth = .InsideWidth * 2
    End With
     
End Sub

و البته بهتر است که فرم خود را برا ی نمایش اولیه کوچک کنید تر کنید (فقط از نظر ظاهری نه تغییرات روی آن)
حال میتوانید از ScrollBars ها استفاده کنید

با تشکر میر

[Ali Parsaei]

يک روش هم اين است که هنگام فعال شدن فرم کدي بنويسيد که حاشيه هاي فرم با حاشيه هاي مانيتور فيکس شود، اينطوري:

Private Sub UserForm_Activate()
With Application
    Me.Top = .Top
    Me.Left = .Left
    Me.Height = .Height
    Me.Width = .Width
End With
End Sub