تغییر اندازه متن با SeekBar

[abbas2142 557]

با سلام

 

اول از همه بگم بلدم چطوری با SeekBar اندازه متن رو عوض کنم ولی سوالم اینجاست که چطوری بهش بگم مثلا از اندازه 15 تا 25 بیشتر بزرگ کوچیک نکن و فقط توی این محدوده اندازه تغیر کنه

[abbas2142 557]

ممنون درست شد

 

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

واسه حداقل مقدار seekbar

Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
Dim a As Int
a=30
Value = Max ( Value, a )
End Sub

حداکثر مقدار رو هم می تونید توی دیزاینر بهش بدین

[Kazem Forghani 2,928]

نخیر .

در دیزاینر در قسمت خصوصیات SeekBar یه Value داره و یک Max Value .

اون جا مشخص کنید .

[مهدی ایزدی 9,203]

روش جناب فرقانی منطقی تر و بهتر و راحت تر بود

روش بنده یک خورده سخت و غیر منطقی بود

پست ام رو حذف کردم 

[abbas2142 557]

نمی شه من از روش آقای فرقانی هم رفتم ولی وقتی سیکبار رو کم می کنم متن اونقدر کم می شه که نمی شه دیدش درصورتی که من max رو 100 دادم و Value رو 80

 

 

[Kazem Forghani 2,928]

نمی شه من از روش آقای فرقانی هم رفتم ولی وقتی سیکبار رو کم می کنم متن اونقدر کم می شه که نمی شه دیدش درصورتی که من max رو 100 دادم و Value رو 80

برای حداقل این ساب رو ایجاد کنید :

Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
Value = Max ( Value, a )
End Sub

a یک متغیره .

[Kazem Forghani 2,928]

این هم کد دقیق و درست بالا :

Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
	Dim a As Int
	a = 5
	Value = Max(Value,a)
	Log(Value)
End Sub

[مهدی ایزدی 9,203]

اینجوری هم میشه ( شاید درکش برات راحت تر باشه )

Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
	If Value<= 12 Then
	Label1.TextSize = 10
	
	Else If 12<Value AND Value<20 Then
	Label1.TextSize = 14
	
	Else If 20<Value AND Value<30 Then
	Label1.TextSize = 16
	
	Else If 30<Value AND Value<40 Then
	Label1.TextSize = 18
	
	Else If 40<Value AND Value<50 Then
	Label1.TextSize = 20
	
	Else If 50<Value AND Value<60 Then
	Label1.TextSize = 22
	
	Else If 60<Value AND Value<70 Then
	Label1.TextSize = 24
	
	Else If 70<Value AND Value<80 Then
	Label1.TextSize = 26
	
	Else If 90<Value AND Value<100 Then
	Label1.TextSize = 28
	End If
End Sub

[Kazem Forghani 2,928]

 

اینجوری هم میشه ( شاید درکش برات راحت تر باشه )

Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
	If Value<= 12 Then
	Label1.TextSize = 10
	
	Else If 12<Value AND Value<20 Then
	Label1.TextSize = 14
	
	Else If 20<Value AND Value<30 Then
	Label1.TextSize = 16
	
	Else If 30<Value AND Value<40 Then
	Label1.TextSize = 18
	
	Else If 40<Value AND Value<50 Then
	Label1.TextSize = 20
	
	Else If 50<Value AND Value<60 Then
	Label1.TextSize = 22
	
	Else If 60<Value AND Value<70 Then
	Label1.TextSize = 24
	
	Else If 70<Value AND Value<80 Then
	Label1.TextSize = 26
	
	Else If 90<Value AND Value<100 Then
	Label1.TextSize = 28
	End If
End Sub

این طوری خوبه ولی خیلی زمان بر هست و طولانی هم هست.

 

به هر حال برای کد شما هم ممنون

[مهدی ایزدی 9,203]

این هم یک راه دیگه 

تو این روش باید Max رو 5 قرار بدی !

Sub SeekBar2_ValueChanged (Value As Int, UserChanged As Boolean)
	Dim i As Int = value*6
	Label1.TextSize = i
End Sub

[مهدی ایزدی 9,203]

این طوری خوبه ولی خیلی زمان بر هست و طولانی هم هست.

 

به هر حال برای کد شما هم ممنون

به روش بالا راضی شدید؟    زمان بر نیست   دو خط !

[leilab 17]

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

[محمد رشوند 1,209]

@@leilab,

دوست عزیز سعی کن تاپیک های قدیمی مخصوصاً اونایی که پاسخ داده شده رو بالا نیاری  :|

اگر احساس کردی نیاز به تشکر دکمه پسند زیر هر پست هستش روش بزن

اگه دست من بود امتیاز منفی و اخطار میدادم