نمایش نتایج: از شماره 1 تا 4 , از مجموع 4

موضوع: پيمايش فرم با scroll bar

  1. #1


    آخرین بازدید
    2024/01/21
    تاریخ عضویت
    November 2013
    محل سکونت
    تهران
    نوشته ها
    1,519
    امتیاز
    6121
    سپاس
    2,884
    سپاس شده
    4,889 در 1,381 پست
    سطح اکسل
    71.67 %

    پيمايش فرم با scroll bar

    يکي از استفاده هاي ابزار SCROLL BAR اين است که مي توان آن را مستقيما" در کادر اصلي فرمها به کار برد و براي پيمايش عمودي و افقي فرم از آن بهره جست، براي اين کار بايد کد زير را در رويداد Activate يوزرفرم نوشت:
    براي پيمايش افقي
    کد PHP:
    Private Sub UserForm_Activate()
    With Me
    .ScrollBars fmScrollBarsHorizontal
    .ScrollWidth = .InsideWidth 2
    End With
    End Sub 
    و براي پيمايش عمودي
    کد PHP:
    Private Sub UserForm_Activate()
    With Me
    .ScrollBars fmScrollBarsVertical
    .ScrollHeight = .InsideHeight 2
    End With
    End Sub 
    و براي داشتن هر دو مورد با هم
    کد PHP:
    Private Sub UserForm_Activate()
    With Me
    .ScrollBars fmScrollBarsBoth
    .ScrollHeight = .InsideHeight 2
    .ScrollWidth = .InsideWidth 2
    End With
    End Sub 
    عدد دو نمايانگر اين است که چه کسري از کل محدوده قابل پيمايش در آن واحد جلو ديد باشد و مي توانيد آن را اضافه کنيد، مثلا" اگر به جاي 2 عدد سه بنويسيد يعني فقط يک سوم کل محدوده جلو ديد باشد و مابقي با SCROLL BAR پيمايش شود. اگر آن را به يک تغيير دهيد کل محدوده در ديد قرار خواهد گرفت و عملا" ديگر SCROLL BAR بي معني خواهد بود، پس حداقل بايد عدد 2 را وارد کنيد.
    ضمنا" SCROLL BAR ها را مي توان براي فريم هاي داخل يوزرفرم هم به کار بست، براي اين کار همان کدهاي فوق را به کار ببنديد فقط نام فريم مربوطه را بعد از عبارت With Me در کد ها اضافه کنيد، مانند:
    With Me.Frame1
    پيروز باشيد.
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.


  2.  

  3. #2


    آخرین بازدید
    2023/12/24
    تاریخ عضویت
    March 2017
    نوشته ها
    142
    امتیاز
    59
    سپاس
    83
    سپاس شده
    47 در 28 پست
    تعیین سطح نشده است

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

    http://forum.exceliran.com/showthrea...%D8%A8%D8%B1-!
    خیلی ممنونم

  4. #3


    آخرین بازدید
    2023/12/24
    تاریخ عضویت
    March 2017
    نوشته ها
    142
    امتیاز
    59
    سپاس
    83
    سپاس شده
    47 در 28 پست
    تعیین سطح نشده است

    سلام جناب پارسا
    اگر امکانش هست لطفا راهنمایی بفرمایید چطور میتونم از کد
    پيمايش عمودي فرم :
    کد:
    Private Sub UserForm_Activate()
    With Me
    .ScrollBars = fmScrollBarsVertical
    .ScrollHeight = .InsideHeight * 2
    End With
    End Sub 

    در این فرم ساخته شده استفاده کنم، خیلی ممنونم
    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  1.jpg
مشاهده: 29
حجم:  268.9 کیلو بایت
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: rar form.rar اطلاعات (19.1 کیلو بایت, 103 نمایش)

  5. #4


    آخرین بازدید
    2023/12/24
    تاریخ عضویت
    March 2017
    نوشته ها
    142
    امتیاز
    59
    سپاس
    83
    سپاس شده
    47 در 28 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط Skynet نمایش پست ها
    سلام جناب پارسا
    اگر امکانش هست لطفا راهنمایی بفرمایید چطور میتونم از کد
    پيمايش عمودي فرم :
    کد:
    Private Sub UserForm_Activate()
    With Me
    .ScrollBars = fmScrollBarsVertical
    .ScrollHeight = .InsideHeight * 2
    End With
    End Sub 

    در این فرم ساخته شده استفاده کنم، خیلی ممنونم
    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  1.jpg
مشاهده: 29
حجم:  268.9 کیلو بایت

    باسلام و احترام
    با تشکر ویژه از اساتید محترم در حل سوال اینجانب :
    jansiz hayat
    Amir Ghasemiyan
    مشکل مربوطه در این پست بصورت کامل حل گردید:
    http://forum.exceliran.com/showthrea...6084#post56084

    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  1.jpg
مشاهده: 13
حجم:  105.9 کیلو بایت


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. چطور می تونم Scroll Bar ایجاد کنم ؟
    توسط sabertb در انجمن خطاها در ويژوال بيسيك - Errors in VBA
    پاسخ ها: 8
    آخرين نوشته: 2014/05/18, 16:37
  2. كمك راجع به scroll bar در زبانه developer
    توسط hamidreza313 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2013/01/16, 10:51

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

اابزارهای پیمایش فرم در اکسس

کار با scroll bar vba

پیمایش فرم با اسکرول

کد تنظیم سایز نمایش یوزرفرم و استفاده از اسکرول بار

استفاده از scrollbar در userform اکسل

نحوه ایجاد اسکرول در ویژوال بیسیک

اسکلور در یوزر فرم

روش اضافه کردن scroll barبه فرم

کد scroll bar درvba

کار با sciollbar در بیسیک ۶

پیمایش باscroll bar در محدوده داده ها در اکسل

اسکرول فرم ها در اکسس

نحوه استفاده از scroll bar در vb6

scroll در اکسل

بزرگ کردن نوار اسکرول در اکسل

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد