[حل شده] جابجای در یوزرفرم

[میثم مقدم نیا]

[B]سلام
یک سوال داشتم
ما برای جابجای و تعیین محل قرار گیری یوزر فرم در صفحه از کد زیر استفاده میکنیم

Me.StartUpPosition = 0
    Me.Top = Application.Top + 60
    Me.Left = Application.Left + Application.Width - Me.Width - 350 

حال سوال من این که اگر بخواهم شیعی مثلا یک باتون را جابجا کنم باید از چه دستوری استفاده کنم


[/B]

[majid_mx4]

با سلام
برای سوال شما دو حالت میتواند اتفاق بیافتد
1- بر اساس شیئی دیگر مثلا نسبت به مکان لیست باکس یا دکمه دیگر که با دستور زیر میتوانید آن را انجام دهید .

    Me.CommandButton2.Left = Me.CommandButton1.Left + 50

2- بر اساس یوزرفرم که با دستور زیر میتوانید آنرا انجام دهید .

Me.CommandButton2.Top = UserForm1.Top - 50

بنده خودم براساس نوع اول را بیشتر کاربردی میدانم
توضیح : مقدار های عددی اضافه یا کم شده در کد بالا بستگی به مکان اولیه شیئی مورد نظر دارد پس هنگام استفاده از کد آنرا در نظر بگیرید
موفق باشید میر