arastooms 1,046 ارسال شده در 5 دی، ۱۳۹۶ اشتراک گذاری ارسال شده در 5 دی، ۱۳۹۶ سلام دوستان 3 تا باتن دارم کنار هم به صورت زیر که همیشه یکیش باید فشرده باشه پایین مثل عکس زیر که رنگ یک نوشته رو عوض میکنه و پیش فرض سیاه است کار بر که وارد اکتیوتی میشه پیش فرض دکمه black فشار داده شده و پایین هست حالا میخام کار بر blue کلیک کرد رنگ نوشته ای که دارم آبی بشه و تو حالت ( فشار داده شده یا همون کلیک بمونه) ممکنه راهنمایی بفرمایید کد ها به چه صورت هست؟ ممنون از شما لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
محمد رشوند 1,208 ارسال شده در 6 دی، ۱۳۹۶ اشتراک گذاری ارسال شده در 6 دی، ۱۳۹۶ در 16 ساعت قبل، arastooms گفته است : سلام دوستان 3 تا باتن دارم سلام ارسطو جان راه استاندارد این کاری که شما میخواید استفاده از tooglebutton هستش که این ویو دو حالت داره میتونید در هر حالت رنگ خاصی برای باتن انتخاب کنید. لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
Coocala 35 ارسال شده در 5 دی، ۱۳۹۶ اشتراک گذاری ارسال شده در 5 دی، ۱۳۹۶ میتونی ظاهر غیر فعال بودن دکمه رو هم مثل حالت کلیک دکمه قرار بدی ، بعد که کاربر روی دکمه کلیک کرد غیر فعال بشه. لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
amir54 138 ارسال شده در 5 دی، ۱۳۹۶ اشتراک گذاری ارسال شده در 5 دی، ۱۳۹۶ در 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 ارسال شده در 5 دی، ۱۳۹۶ اشتراک گذاری ارسال شده در 5 دی، ۱۳۹۶ در 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 ارسال شده در 6 دی، ۱۳۹۶ اشتراک گذاری ارسال شده در 6 دی، ۱۳۹۶ در 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 لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
سوال
arastooms 1,046
سلام دوستان 3 تا باتن دارم کنار هم به صورت زیر که همیشه یکیش باید فشرده باشه پایین
مثل عکس زیر که رنگ یک نوشته رو عوض میکنه و پیش فرض سیاه است
کار بر که وارد اکتیوتی میشه پیش فرض دکمه black فشار داده شده و پایین هست
حالا میخام کار بر blue کلیک کرد رنگ نوشته ای که دارم آبی بشه و تو حالت ( فشار داده شده یا همون کلیک بمونه)
ممکنه راهنمایی بفرمایید کد ها به چه صورت هست؟
ممنون از شما
لینک ارسال
به اشتراک گذاری در سایت های دیگر
5 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.