سلام
چطوری میتونم موقعیت یوزر فرم را هنگام نمایش مشخص کنم که در کجای صفحه به نمایش در بیاد
ممنون میشم راهنماییم کنید
چطوری میتونم موقعیت یوزر فرم را هنگام نمایش مشخص کنم که در کجای صفحه به نمایش در بیاد
ممنون میشم راهنماییم کنید
Private Sub UserForm_Activate()
Me.StartUpPosition = 0
Me.Top = Application.Top + 50
Me.Left = Application.Left + Application.Width - Me.Width - 25
End Sub
Dim AppXCenter, AppYCenter As Long
AppXCenter = Application.Left + (Application.Width / 2)
AppYCenter = Application.Top + (Application.Height / 2)
With Me
.StartupPosition = 0
.Top = AppYCenter - (Me.Height / 2)
.Left = AppXCenter - (Me.Width / 2)
End With
کامنت