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

[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