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

[amirsafari 116]

سلام دوستان بنده میخوام یه کلاسی بسازم و توی اون یه لیبل بگیرم و متن و فونتشو تنظیم کنم ولی وقتی مینویسمش برنامه 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

 

[amirsafari 116]

در در 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 تغییر بده 

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

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

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

[persian 8]

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

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

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

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

[sbr 233]

در 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 تغییر بده 

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

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