قرارگرفتن یوزرفرم درسمت چپ مانیتور

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • حسینعلی

    • 2014/01/27
    • 172

    قرارگرفتن یوزرفرم درسمت چپ مانیتور

    باسلام،
    یه یوزرفرم دارم که ابعادش کوچیکه،چکباکسی پایینش گذاشتم که با تیک زدنش باعث افزایش پهنای یوزرفرم میشه،ولی مشک اینه که پس از افزایش عرض یوزرفرم،قسمتی ازسمت راستش ازصفحه خارج میشه،چککارش کنم: لطفا راهنمایی کنید
  • misammisam
    مدير تالار حسابداری و اکسل

    • 2014/04/04
    • 892
    • 64.00

    #2
    سلام
    در قسمت Properties يوزر فرم خود ، در گزينه left مختصات رو طوري شماره بده كه نيازت تامين بشه .
    موفق باشي
    [CENTER][SIGPIC][/SIGPIC]
    [/CENTER]
    [CENTER][FONT=Tahoma][FONT=Tahoma][FONT=Tahoma][FONT=Tahoma][FONT=Tahoma][INDENT]
    [CENTER][SIZE=3][URL="https://affstat.adro.co/click/adf04053-f8a6-439a-9ac4-e6a7e6f4b455"][B]اينجا كليك نكنيا ![/B][/URL][/SIZE]
    [/CENTER]
    [/INDENT]

    [/FONT][/FONT][/FONT][/FONT][/FONT]
    [/CENTER]

    کامنت

    • حسینعلی

      • 2014/01/27
      • 172

      #3
      شایدنتونستم مطلب را برسونم
      من یک یوزر فرم دارم با کلیک برروی کامنت میخوام یوزرفرم دوم را نمایش بدم،که طبعتا فرم دوم که فراخوان کردم در وسط قرارمیگیره
      میخوام در یک سمت فرم اول یاقبلی مثلا سمت چپ صفحه بیاد بالا نمایش داده بشه

      کامنت

      • امين اسماعيلي
        مدير تالار ويژوال بيسيك

        • 2013/01/17
        • 1198
        • 84.00

        #4
        با درود
        کد زیر رو امتحان کن ببین بدردت میخوره

        کد:
        Private Sub CommandButton1_Click()
        UserForm1.Show vbModeless
        UserForm1.Left = UserForm1.Left - UserForm1.Width / 2
        UserForm2.Show vbModeless
        UserForm2.Left = UserForm2.Left + UserForm1.Width / 2
        End Sub
        برای یه کلید نوشتیم
        در پناه خداوندگار ایران زمین باشید و پیروز

        کامنت

        • Juliet

          • 2014/06/17
          • 47
          • 61.00

          #5
          درود
          به نظر من راحت ترین راه حل شما اینا که در زمان نمایش فرم موقعیت top و left فرمتون رو تنظیم کنین

          اما یک نکته مهم رو فراموش نکنین، برای اینکه کد شما اثر داشته باشه، حتما باید از پنجره Properties فرمتون خاصیت StartUpPosition رو روی Manual تنظیم کنین

          راستی من موقعیت فرم دوم رو نسبت به اولی تنظیم کردم، شما میتونید اعداد ثابت در نظر بگیرید

          کد:
              UserForm2.Left = UserForm1.Left - UserForm1.Width - 50
              UserForm2.Top = UserForm1.Top
          
              UserForm2.Show
          فایل نمونه ای هم گزاشتم، البته شایدم منظور شما این نباشه
          اما امیدوارم به دردتون بخوره
          Forms.xlsm
          [CENTER][COLOR=#006400]«زمانيکه با زمانه خويش نساختي و با [/COLOR][COLOR=#b22222][B]مسندنشينان[/B][/COLOR][COLOR=#006400] و [/COLOR][B][COLOR=#b22222]امربران[/COLOR][/B][COLOR=#006400] ايشان کنار نيامدي
          و آنچه را [/COLOR][B][COLOR=#b22222]جاهلان [/COLOR][/B][COLOR=#006400]ميگويند، جاهلانه باز نگفتي،
          لاجرم به تبعيد ابدي گرفتار خواهي شد!
          حتي اگر جسمت در کنج منزلي در شهري ساکن باشد؛
          و اگر بر نپذيرفتن، پاي فشردي،

          [/COLOR][COLOR=#3366cc][B]آواره ات خواهند کرد،
          [/B][/COLOR][COLOR=#3333cc][B]به زندانت خواهند افکند
          [/B][/COLOR][COLOR=#333366][B] و به دارت خواهند کشيد ...»[/B][/COLOR][COLOR=#006400]
          [/COLOR][/CENTER]

          کامنت

          چند لحظه..