تعیین موقعیت Userform در اکسل

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • میثم مقدم نیا

    • 2017/03/23
    • 558
    • 41.00

    پرسش تعیین موقعیت Userform در اکسل

    سلام
    چطوری میتونم موقعیت یوزر فرم را هنگام نمایش مشخص کنم که در کجای صفحه به نمایش در بیاد
    ممنون میشم راهنماییم کنید
    [HR][SIZE=5][COLOR="#0000FF"][FONT=Times New Roman][B] در سرزمینی کہ نتوان مردانہ زیست ، مردانہ مردن بهتر از این زندگیست [/B][/FONT][/COLOR][/SIZE][/HR]
  • iranweld

    • 2015/03/29
    • 3341

    #2
    با سلام

    کد ذیل را تست کنید

    کد PHP:
    Private Sub UserForm_Activate()
         
        
    Me.StartUpPosition 0
        Me
    .Top Application.Top 50
        Me
    .Left Application.Left Application.Width Me.Width 25
         
    End Sub 
    فایل های پیوست شده

    کامنت

    • میثم مقدم نیا

      • 2017/03/23
      • 558
      • 41.00

      #3
      نوشته اصلی توسط iranweld
      با سلام

      کد ذیل را تست کنید

      کد PHP:
      Private Sub UserForm_Activate()
           
          
      Me.StartUpPosition 0
          Me
      .Top Application.Top 50
          Me
      .Left Application.Left Application.Width Me.Width 25
           
      End Sub 
      ممنون استاد عزیزم
      فایل پیوست را ملاحضه فرماید در یوزرفرم دو ، من سه اندازه مختلف دارم میخوام وقتی روی کلیدهای ایجاد شده کلیک میکنم میخوام یوزر فرم در مرگز صفحه نمایش قرار بگیر تا در صفحه نمایش های دیگه با مشکل بیرون موندن قسمتی از یوزر فرم روبرو نشیم
      لطفاً راهنمایم کنید
      فایل های پیوست شده
      [HR][SIZE=5][COLOR="#0000FF"][FONT=Times New Roman][B] در سرزمینی کہ نتوان مردانہ زیست ، مردانہ مردن بهتر از این زندگیست [/B][/FONT][/COLOR][/SIZE][/HR]

      کامنت

      • میثم مقدم نیا

        • 2017/03/23
        • 558
        • 41.00

        #4
        نوشته اصلی توسط mmn1000
        ممنون استاد عزیزم
        فایل پیوست را ملاحضه فرماید در یوزرفرم دو ، من سه اندازه مختلف دارم میخوام وقتی روی کلیدهای ایجاد شده کلیک میکنم میخوام یوزر فرم در مرگز صفحه نمایش قرار بگیر تا در صفحه نمایش های دیگه با مشکل بیرون موندن قسمتی از یوزر فرم روبرو نشیم
        لطفاً راهنمایم کنید
        با سلام مجدد
        در مورد این سوال من با کد دستوری زیر مشکل را حل کردم
        کد PHP:
        Dim AppXCenterAppYCenter 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 
        این کد را باید بعد از تعیین اندازه کادر یوزر فرم قرار دهید اگه قبل از اون وارد کنید کد کار نمیکنه
        امیدوارم به کار دوستان بیاد
        Last edited by میثم مقدم نیا; 2019/01/22, 12:58. دلیل: افزودن پاره ای از توضیحات
        [HR][SIZE=5][COLOR="#0000FF"][FONT=Times New Roman][B] در سرزمینی کہ نتوان مردانہ زیست ، مردانہ مردن بهتر از این زندگیست [/B][/FONT][/COLOR][/SIZE][/HR]

        کامنت

        چند لحظه..