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

[alisabet]

سلام :

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

1- چگونه ميتوان سايزفونت را در caption ليبل userform تغيير داد.
2- چگونه ميتوان يوزم فرم را در حالت fullscreen لود كرد.
3 ايا ميتوان دستور حلقه روي نام كنترل ها اجرا نمود بطور مثال من 10 تا command button از يك تا 10 بصورت command button1 و ..... command button10 دارم و ميخواهم عمليات مشابه روي caption آنها صورت گيرد چگونه ميتوانم از حلقه for استفاده كنم اگر مفهوم سوالم مشخص نيست بگيد تا فايل نمونه بذارم

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[~M*E*H*D*I~]

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

commandbutton(i) 

[/align]
میشه حلقه ایجاد کرد

[khakzad]

سلام
این ی کد ساده هس.برای فول اسکرین
که به تناسب resolusion صفحه، کار میکنه
[align=left]

Private Sub UserForm_Initialize()

With Application
 Me.Move 0, 0, .Width, .Height
 End With

End Sub

[/align]

[alisabet]

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

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]

با سلام.

http://uplod.ir/qluljh1mff7z/disable_move_userform.xlsm.htm