اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

 برای استفاده از تمامی امکانات سایت لطفا در انجمن عضو شوید


amirsafari

ساخت کلاس تنظیم سایز متن

4 ارسال در این موضوع قرار دارد

سلام دوستان بنده میخوام یه کلاسی بسازم و توی اون یه لیبل بگیرم و متن و فونتشو تنظیم کنم ولی وقتی مینویسمش برنامه stop  میشه .
ممنون میشم راهنمایی کنید.


 

Sub Class_Globals
	Dim Asf As AutoScaleFont
End Sub

'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
	
End Sub

Public Sub SetFontAndSize1(l As Label,Size As Float,OnSize As Boolean) As Label
	Asf.Initialize()
	Select OnSize
		Case True
			l.TextSize=Asf.ReturnScaledSize(Size)
		Case False	
			Asf.SetFontSize(l)
	End Select
	Return l
End Sub

 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
در 14 دقیقه قبل، amirsafari گفته است :

سلام دوستان بنده میخوام یه کلاسی بسازم و توی اون یه لیبل بگیرم و متن و فونتشو تنظیم کنم ولی وقتی مینویسمش برنامه stop  میشه .
ممنون میشم راهنمایی کنید.


 


Sub Class_Globals
	Dim Asf As AutoScaleFont
End Sub

'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
	
End Sub

Public Sub SetFontAndSize1(l As Label,Size As Float,OnSize As Boolean) As Label
	Asf.Initialize()
	Select OnSize
		Case True
			l.TextSize=Asf.ReturnScaledSize(Size)
		Case False	
			Asf.SetFontSize(l)
	End Select
	Return l
End Sub

 

سلام 

خب  شما میخوای تغییرات روی یک لیبل انجام  بدی 

پس برای مقادیر ورودیش همون لیبل رو بده بهش و size , Onsize رو از مقادیر ورودیش پاک کن 

خب الان لیبل رو گرفتی حالا بیا و داخل ساب چک کن سایزش و فونت چیه وچقدره 

اگه با معیارت سازگار نبود بیا و هر کاری خواستی روی انجام بده یعنی اینطوری 

Sub SetSize (l As Label)
	
	If l.TextSize < 18 Then
		l.TextSize = 24
	End If
	
End Sub

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

شرط گزاشتم اگه کوچکتر از 18 بود بیاد و اندازه رو به 24 تغییر بده 

برای فونت و بقیه کارایی که میخوای بکنی همبه همین ترتیب

ضمنا مقدار برگشتی لازم نیست چون شما یه کاری رو میخوای روی یه لیبل انجام بدی دیگه لازم نیست واسش مقدار برگشتی بزاری

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
در در 1396/06/12, 22:48:53، sbr گفته است :

سلام 

خب  شما میخوای تغییرات روی یک لیبل انجام  بدی 

پس برای مقادیر ورودیش همون لیبل رو بده بهش و size , Onsize رو از مقادیر ورودیش پاک کن 

خب الان لیبل رو گرفتی حالا بیا و داخل ساب چک کن سایزش و فونت چیه وچقدره 

اگه با معیارت سازگار نبود بیا و هر کاری خواستی روی انجام بده یعنی اینطوری 


Sub SetSize (l As Label)
	
	If l.TextSize < 18 Then
		l.TextSize = 24
	End If
	
End Sub

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

شرط گزاشتم اگه کوچکتر از 18 بود بیاد و اندازه رو به 24 تغییر بده 

برای فونت و بقیه کارایی که میخوای بکنی همبه همین ترتیب

ضمنا مقدار برگشتی لازم نیست چون شما یه کاری رو میخوای روی یه لیبل انجام بدی دیگه لازم نیست واسش مقدار برگشتی بزاری

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

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

سلام عرض شد دوست عزیز

توی کتابخونه های تغییر فونت مشکلات زیادی وجود داره مثلا بسته شدن برنامه یا سازگار نبود با انواع گوشی ها یا حجم بالا با کیفیت کمی که داره یا.................خیلی مشکلات دیگه

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

بنده به شما کتابخونه autoscalefont پیشنهاد میکنم اگه دوباره با مشکل خروج برخوردید باید کداتون چک بشه.

ویرایش شده در توسط persian
غلط املایی

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری