تغيير سايز فونت ليبل در يوزرفرم و00

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • alisabet

    • 2011/09/08
    • 159
    • 45.00

    تغيير سايز فونت ليبل در يوزرفرم و00

    سلام :

    من 3 تا سوال دارم از اساتيد محترم تقاضا دارم در صورت امكان پاسخ بدن

    1- چگونه ميتوان سايزفونت را در caption ليبل userform تغيير داد.
    2- چگونه ميتوان يوزم فرم را در حالت fullscreen لود كرد.
    3 ايا ميتوان دستور حلقه روي نام كنترل ها اجرا نمود بطور مثال من 10 تا command button از يك تا 10 بصورت command button1 و ..... command button10 دارم و ميخواهم عمليات مشابه روي caption آنها صورت گيرد چگونه ميتوانم از حلقه for استفاده كنم اگر مفهوم سوالم مشخص نيست بگيد تا فايل نمونه بذارم
  • ~M*E*H*D*I~
    • 2011/10/19
    • 4377
    • 70.00

    #2
    RE: تغيير سايز فونت ليبل در يوزرفرم و00

    سلام
    هر کنترلی در قسمت properties خودش یه بخش داره به نام font از اونجا خصوصیات فونت قابل تغییره
    سوال دوم نمونه های زیادی تو سایت هست که کد نویسی مربوط بهش رو میتونید ببینید
    هر کنترلی indexداره بنابراین به صورت
    [align=left]
    کد PHP:
    commandbutton(i
    [/align]
    میشه حلقه ایجاد کرد

    sigpic

    کامنت

    • khakzad

      • 2010/03/17
      • 2034
      • 85.00

      #3
      RE: تغيير سايز فونت ليبل در يوزرفرم و00

      سلام
      این ی کد ساده هس.برای فول اسکرین
      که به تناسب resolusion صفحه، کار میکنه
      [align=left]
      کد:
      Private Sub UserForm_Initialize()
      
      With Application
       Me.Move 0, 0, .Width, .Height
       End With
      
      End Sub
      [/align]

      کامنت

      • alisabet

        • 2011/09/08
        • 159
        • 45.00

        #4
        RE: تغيير سايز فونت ليبل در يوزرفرم و00

        نوشته اصلی توسط vatanparast
        سلام
        هر کنترلی در قسمت properties خودش یه بخش داره به نام font از اونجا خصوصیات فونت قابل تغییره
        سوال دوم نمونه های زیادی تو سایت هست که کد نویسی مربوط بهش رو میتونید ببینید
        هر کنترلی indexداره بنابراین به صورت
        [align=left]
        کد PHP:
        commandbutton(i
        [/align]
        میشه حلقه ایجاد کرد
        اما من امتحان كردم ارور ميده اگه ميشه لطف كنيد يه فايل بذاريد كه اين عمليات رو بصورت حلقه انجام بده
        userform1.textbox1.text = 1
        userform1.textbox2.text = 1
        user form1.textbox3.text =1
        اينجور كه شما فرمودين بايد به شكل زير باشه
        for i = 1 to 3
        userform1.textbox(i) =1
        next i
        ميشه بفرمائين اشكال كار من كجاست يا يه فايل برام بذارين

        کامنت

        • Javid Mokhtari
          مدير تالار ويژوال بيسيك

          • 2012/01/16
          • 1212
          • 73.00

          #5
          RE: تغيير سايز فونت ليبل در يوزرفرم و00

          با سلام.

          http://uplod.ir/qluljh1mff7z/disable_move_userform.xlsm.htm
          دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
          بیش از 60 جلسه آموزش ویدئویی رایگان

          شرکت در دوره:

          https://javidsoft.ir/courses/


          کامنت

          چند لحظه..