دکمه در حالت کلیک بماند

[arastooms 1,046]

سلام دوستان 3 تا باتن دارم کنار هم به صورت زیر که همیشه یکیش باید فشرده باشه پایین
مثل عکس زیر  که رنگ یک نوشته رو عوض میکنه و پیش فرض سیاه است

 

کار بر که وارد اکتیوتی میشه پیش فرض دکمه black فشار داده شده و پایین هست

 

حالا میخام کار بر blue کلیک کرد رنگ نوشته ای که دارم آبی بشه و تو حالت ( فشار داده شده یا همون کلیک بمونه)

 

 

ممکنه راهنمایی بفرمایید کد ها به چه صورت هست؟
ممنون از شما

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

در 16 ساعت قبل، arastooms گفته است :

سلام دوستان 3 تا باتن دارم

سلام ارسطو جان 

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

[Coocala 35]

 میتونی ظاهر غیر فعال بودن دکمه رو هم مثل حالت کلیک دکمه قرار بدی ، بعد که کاربر روی دکمه کلیک کرد غیر فعال بشه.

[amir54 138]

در 11 ساعت قبل، arastooms گفته است :

سلام دوستان 3 تا باتن دارم کنار هم به صورت زیر که همیشه یکیش باید فشرده باشه پایین
مثل عکس زیر  که رنگ یک نوشته رو عوض میکنه و پیش فرض سیاه است

 

کار بر که وارد اکتیوتی میشه پیش فرض دکمه black فشار داده شده و پایین هست

 

حالا میخام کار بر blue کلیک کرد رنگ نوشته ای که دارم آبی بشه و تو حالت ( فشار داده شده یا همون کلیک بمونه)

 

 

ممکنه راهنمایی بفرمایید کد ها به چه صورت هست؟
ممنون از شما

سلام

Sub SetPressed(BTN As Button, Pressed As Boolean)
	Dim ref As Reflector
	ref.Target = BTN
	ref.RunMethod2("setPressed", Pressed, "java.lang.boolean")
End Sub

سایت اصلی

[نورنما 613]

در 12 ساعت قبل، arastooms گفته است :

سلام دوستان 3 تا باتن دارم کنار هم به صورت زیر که همیشه یکیش باید فشرده باشه پایین
مثل عکس زیر  که رنگ یک نوشته رو عوض میکنه و پیش فرض سیاه است

 

کار بر که وارد اکتیوتی میشه پیش فرض دکمه black فشار داده شده و پایین هست

 

حالا میخام کار بر blue کلیک کرد رنگ نوشته ای که دارم آبی بشه و تو حالت ( فشار داده شده یا همون کلیک بمونه)

 

 

ممکنه راهنمایی بفرمایید کد ها به چه صورت هست؟
ممنون از شما

 

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

 

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	Private Button1 As Button
	Private Button2 As Button
	Private Button3 As Button
	Private edittext1 As EditText
	Private edittext2 As EditText
	Private edittext3 As EditText
	
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("Layout1")
	Button1.Initialize("Button1")
	Button2.Initialize("Button2")
	Button3.Initialize("Button3")
	
	edittext1.Initialize("edittext1")
	edittext2.Initialize("edittext2")
	edittext3.Initialize("edittext3")
	
	Activity.AddView(Button1,10%x,40%y,20%x,20%y)
	Activity.AddView(Button2,41%x,41%y,20%x,20%y)
	Activity.AddView(Button3,71%x,41%y,20%x,20%y)
	
	Activity.AddView(edittext1,10%x,10%y,20%x,20%y)
	Activity.AddView(edittext2,40%x,10%y,20%x,20%y)
	Activity.AddView(edittext3,70%x,10%y,20%x,20%y)
	
	
	edittext1.Text="متن دکمه 1"
	edittext2.Text="متن دکمه 2"
	edittext3.Text="متن دکمه 3"
	
	Button1.Text="دکمه 1"
	Button2.Text="دکمه 2"
	Button3.Text="دکمه 3"
	
	edittext2.TextColor = Colors.Green
	Button2.TextColor = Colors.Green
	
	Button2.SetColorAnimated(200,Colors.Yellow,Colors.Yellow)
	
	Button3.TextColor = Colors.Green
	edittext3.TextColor = Colors.Green
	
	Button3.SetColorAnimated(200,Colors.Yellow,Colors.Yellow)
	
	Button1.TextColor = Colors.Yellow
	edittext1.TextColor = Colors.red
	Button1.SetColorAnimated(200,Colors.Red,Colors.red)
	
End Sub

Sub Button1_Down
	Button1.TextColor = Colors.Yellow
	edittext1.TextColor = Colors.red
	
	Button1.SetColorAnimated(200,Colors.Red,Colors.red)
	Button1.SetLayout(10%x,40%y,20%x,20%y)
	Button2.SetLayout(41%x,41%y,20%x,20%y)
	Button3.SetLayout(71%x,41%y,20%x,20%y)
End Sub
Sub Button1_Up
	edittext2.TextColor = Colors.Green
	Button2.TextColor = Colors.Green
	Button2.SetColorAnimated(200,Colors.Yellow,Colors.Yellow)
	
	edittext3.TextColor = Colors.Green
	Button3.TextColor = Colors.Green
	Button3.SetColorAnimated(200,Colors.Yellow,Colors.Yellow)
	
	
End Sub

Sub Button2_Down
	edittext2.TextColor = Colors.red
	Button2.TextColor = Colors.Yellow
	Button2.SetColorAnimated(200,Colors.Red,Colors.red)
	Button2.SetLayout(40%x,40%y,20%x,20%y)
	Button1.SetLayout(11%x,41%y,20%x,20%y)
	Button3.SetLayout(71%x,41%y,20%x,20%y)
	
End Sub
Sub Button2_Up
	
	edittext1.TextColor = Colors.Green
	Button1.TextColor = Colors.Green
	Button1.SetColorAnimated(200,Colors.Yellow,Colors.Yellow)
	
	edittext3.TextColor = Colors.Green
	Button3.TextColor = Colors.Green
	Button3.SetColorAnimated(200,Colors.Yellow,Colors.Yellow)
	
	
End Sub


Sub Button3_Down
	edittext3.TextColor = Colors.red
	Button3.TextColor = Colors.Yellow
	Button3.SetColorAnimated(200,Colors.Red,Colors.red)
	Button3.SetLayout(70%x,40%y,20%x,20%y)
	Button1.SetLayout(11%x,41%y,20%x,20%y)
	Button2.SetLayout(41%x,41%y,20%x,20%y)
End Sub
Sub Button3_Up
	
	edittext1.TextColor = Colors.Green
	Button1.TextColor = Colors.Green
	Button1.SetColorAnimated(200,Colors.Yellow,Colors.Yellow)
	
	edittext2.TextColor = Colors.Green
	Button2.TextColor = Colors.Green
	Button2.SetColorAnimated(200,Colors.Yellow,Colors.Yellow)
	
	
End Sub

 

[نورنما 613]

در  toggle button هم مثل مثال زیر  ،  میشه تصویر هم برای باتن موردنظربگذارید :

Sub Globals

	Dim tb As ToggleButton
End Sub
Sub Activity_Create(FirstTime As Boolean)
 
	Activity.LoadLayout ("main")
	tb.Initialize("tb")
	Activity.AddView(tb,10%x,10%y,25%x,15%y)
	
	'tb.Initialize("") 'no events will be caught
	'determine color or bitmap drawable
	Dim checked, unchecked As BitmapDrawable
	'    Dim checked, unchecked As ColorDrawable
 
	'bitmap state
	checked.Initialize (LoadBitmap(File.DirAssets, "button_on.bmp"))
	unchecked.Initialize (LoadBitmap(File.DirAssets, "button_off.bmp"))
 
	'colors state
'	checked.Initialize(Colors.Green, 10dip)
	'    unchecked.Initialize(Colors.Red, 10dip)
 
	Dim sld As StateListDrawable
	'initialize statelistdrawable
	sld.Initialize
	'add states
	sld.AddState(sld.State_Checked, checked)
	sld.AddState(sld.State_Unchecked, unchecked)
	'set background as state
	tb.Background = sld
 
End Sub