پویا نمودن اندازه UserForm ها

[ali1366]

با درود خدمت اساتید
میخواستم بدونم چه طور میشه اندازه فرم ها رو با توجه به اندازه مانیتور ست کرد
مشکلی که UserForm های من داره اینه که اندازه اونها ثابته و وقتی توی مانیتور کوچک باز میشه باز نیاز به تغییر اندازه دستی داره
که این خودش مشکل سازه

[m.estreji]

RE: پویا نمودن اندازه UserForm ها

با درود خدمت اساتید
میخواستم بدونم چه طور میشه اندازه فرم ها رو با توجه به اندازه مانیتور ست کرد
مشکلی که UserForm های من داره اینه که اندازه اونها ثابته و وقتی توی مانیتور کوچک باز میشه باز نیاز به تغییر اندازه دستی داره
که این خودش مشکل سازه

دوست عزیز از قطعه کد زیر استفاده کنید

Private Sub UserForm_Initialize()
Me.Height = Application.Windows.Application.Height
Me.Width = Application.Windows.Application.Width
End Sub

[MEYTI]

RE: پویا نمودن اندازه UserForm ها

با سلام
کدی که دوست عزیزمون m.estreji زحمت کشیدن جهت فیت کردن یوزرفرم با خود پنجره اکسل نه رزولیشن مانیتور شما میتونی کد زیر رو امتحان کنی

 Private Declare Function GetSystemMetrics32 Lib "User32" Alias "GetSystemMetrics" (ByVal nIndex&) As Long
    


Private Sub UserForm_Initialize()

    Dim Factor As Single
    Factor = 0.75 'adjust to suit
    Me.Width = GetSystemMetrics32(0) * Factor
    Me.Height = GetSystemMetrics32(1) * Factor

End Sub 

[saber2q]

RE: پویا نمودن اندازه UserForm ها

با سلام
کدی که دوست عزیزمون m.estreji زحمت کشیدن جهت فیت کردن یوزرفرم با خود پنجره اکسل نه رزولیشن مانیتور شما میتونی کد زیر رو امتحان کنی

 Private Declare Function GetSystemMetrics32 Lib "User32" Alias "GetSystemMetrics" (ByVal nIndex&) As Long
    


Private Sub UserForm_Initialize()

    Dim Factor As Single
    Factor = 0.75 'adjust to suit
    Me.Width = GetSystemMetrics32(0) * Factor
    Me.Height = GetSystemMetrics32(1) * Factor

End Sub 

آقا مهدی این کد فقط تو سیستم 32بیت معتبره, چطور میشه کدی بنویسیم که چه سیستم 64بیت بود و چه 32بیت عمل کنه؟

[MEYTI]

RE: پویا نمودن اندازه UserForm ها

با سلام کد زیر در هر دو سیستم 32 و 64 بیت جواب میده

Private Declare PtrSafe Function GetSystemMetrics Lib "USER32" (ByVal nIndex As Long) As Long
    


Private Sub UserForm_Initialize()

    Dim Factor As Single
    Factor = 0.75
    'adjust to suit
    Me.Width = GetSystemMetrics(0) * Factor
    Me.Height = GetSystemMetrics(1) * Factor

End Sub