ATNEL tech-forum

Re: B4A zmiana koloru przycisków

2018-06-06T22:34:41+01:00

Lepszym rozwiązaniem będzie:

[syntax=vb]Sub Zmiana_Koloru(tag As String,R As Int,G As Int,B As Int)
For Each v As View In Activity.GetAllViewsRecursive

If v Is Button Then

If v.Tag ==tag Then
Dim Button_temp As Button = v
Button_temp.Color=Colors.RGB(R,G,B)

End If
End If

Next

End Sub[/syntax]

Po If v.Tag ==tag Then lepiej dodać
Dim Button_temp As Button = v
Button_temp.Color=Colors.RGB(R,G,B)
ponieważ teraz mamy dostęp do wszystkich właściwości Buttona np

Button.Text

w poprzedniej wersji do tego nie było dostępu.

Statystyki: Napisane przez ozi22 — 6 cze 2018, o 22:34

Re: B4A zmiana koloru przycisków

2018-06-06T19:42:59+01:00

sprytnie, brawo!!

Statystyki: Napisane przez szpilek — 6 cze 2018, o 19:42

Re: B4A zmiana koloru przycisków

2018-06-06T19:20:45+01:00

Dziękuję za porady.
Panie Mirku IFy lub CASEy to by było najłatwiejsze rozwiązanie i na 100% by działało ale pisanie ponad 100 IFów to takie masochistyczne, w ostateczności na tym bym skończył ale znalazłem pewne rozwiązanie mianowicie:
-każdy Button , Label czy ImageView ma opcję Tag (Button.Tag) tak sie złożyło ze w Designerze przy tworzeniu przycisków w Tagu wpisywałem też jego nazwę i oto ten Tag został wykorzystany do stworzenia funkcji która po tym tagu odwołuje się do danego Butona i zmienia kolor (choć też można sie odwołać do Labela itd)

[syntax=vb]Sub Zmiana_Koloru(Button_tag As String,R As Int,G As Int,B As Int)

For Each v As View In Activity.GetAllViewsRecursive

If v Is Button Then

If v.Tag ==Button_tag Then
v.Color=Colors.RGB(R,G,B)

End If

End If
Next

End Sub[/syntax]

Statystyki: Napisane przez ozi22 — 6 cze 2018, o 19:20

Re: B4A zmiana koloru przycisków

2018-06-06T16:39:21+01:00

ozi22 napisał(a):

ale narazie stoje w miejscu

Twoja wina - bo dostałeś już podpowiedź od kolegi tfosik ... zastosuj że IFy albo CASE'y i po ptakach ...

Statystyki: Napisane przez mirekk36 — 6 cze 2018, o 16:39

Re: B4A zmiana koloru przycisków

2018-06-06T16:22:29+01:00

tfosik napisał(a):

Może spróbuj tego:
https://www.b4x.com/android/forum/threa ... iew.84501/

Dziekuje za próby pomocy ale narazie stoje w miejscu

Statystyki: Napisane przez ozi22 — 6 cze 2018, o 16:22

Re: B4A zmiana koloru przycisków

2018-06-06T14:01:28+01:00

Może spróbuj tego:
https://www.b4x.com/android/forum/threa ... iew.84501/

Statystyki: Napisane przez tfosik — 6 cze 2018, o 14:01

Re: B4A zmiana koloru przycisków

2018-06-06T13:10:20+01:00

szpilek napisał(a):

spróbuj:

[syntax=vb]Sub Zmiana_koloru(nazwa_przycisku as String, R as Int, G as Int, B as Int)
Dim button= Me.Controls.Find(nazwa_przycisku, True)
If button.Length > 0 then
nazwa_przycisku.Color=Colors.RGB(R,G,B)
End If
End Sub[/syntax]

PS. używaj więcej googla, jak sam coś znajdziesz to się szybciej nauczysz:D

W VB to na pewno działa natomiast w Basic 4 Android niestety nie.
W B4A nie ma czegoś takiego jak Me.Controls.Find()
natomiast jest "Me" ale po "Me." nic sie nie podpowiada

ale i tak dziękuje za zainteresowanie!!

Statystyki: Napisane przez ozi22 — 6 cze 2018, o 13:10

Re: B4A zmiana koloru przycisków

2018-06-06T12:12:53+01:00

Statystyki: Napisane przez szpilek — 6 cze 2018, o 12:12

Re: B4A zmiana koloru przycisków

2018-06-06T11:57:36+01:00

Działa jeżeli do funkcji przekazuje argument jako object typu Button

a ja chciałbym zrobić coś w stylu jak działa Callsub("nazwa funckcji" as String)
np:
//funkcje button Click
Sub ButtonOK_Click

End Sub

Sub ButtonUP_Click

End Sub

i np poprzez Call sub moge odwołac sie do funkcji w ten sposób:

dim nazwa_przycisku as String
Callsub(nazwa_przycisku & "_Click") //to działa

i chcę zrobic podobną funkcje która jako argument przyjmuje nazwe_przycisku jako String i Inty jako kolory RGB.
Cały czas kombinuje jak zamienić String na nazwe objektu typu Button(czy coś tego typu)

to by mi ułatwiło sprawe bo w moim programie mam bardzo dużą ilośc przycisków i w miare rozwoju programu bedą dynamicznie dodawane(mam taka nadzieje)

Statystyki: Napisane przez ozi22 — 6 cze 2018, o 11:57

Re: B4A zmiana koloru przycisków

2018-06-06T11:21:02+01:00

Witam
użyj select case, np. ponumeruj sobie przyciski
[syntax=vb]Dim value As int ' do tej zmiennej wstaw numer przycisku który nadleci

Select value
Case 1
nazwa_przycisku1.Color=Colors.RGB(R,G,B)
Case 2
nazwa_przycisku2.Color=Colors.RGB(R,G,B)
Case 3
nazwa_przycisku3.Color=Colors.RGB(R,G,B)
Case Else

End Select[/syntax]

P.S. To kolejna z opcji ale skoro funkcja twoja działa no to co ty chcesz właściwie zrobić ?

Statystyki: Napisane przez tfosik — 6 cze 2018, o 11:21

Re: B4A zmiana koloru przycisków

2018-06-06T09:56:07+01:00

a to inna bajka
nie wiem jak jest w visual basicu ale w c# jest funkcja Controls.Find
musisz szukać czegoś podobnego

Statystyki: Napisane przez szpilek — 6 cze 2018, o 09:56

Re: B4A zmiana koloru przycisków

2018-06-06T09:31:52+01:00

szpilek napisał(a):

nie znam B4A, ale zgaduję, że nazwa_przycisku powinna być typu obiekt, na pewno nie string

Dziękuję za zainteresowanie,

jeżeli zrobię tak :

Sub Zmiana_koloru(nazwa_przycisku as Button , R as Int, G as Int, B as Int) //nazwa_przycisku jako Button

nazwa_przycisku.Color=Colors.RGB(R,G,B)

End Sub
to działa z tym że chodzi mi o to żeby to działało w ten sposób jak np: CallSub("nazwa_funkcji" as String)
ponieważ dane które odbieram po UDP z ESP8266 są typu string i wygląda to np. tak

dane as String ="nazwa_przycisku"200,50,10#
potem to parsuje
i mam Stringa "nazwa_przycisku" i trzy Inty

Statystyki: Napisane przez ozi22 — 6 cze 2018, o 09:31

Re: B4A zmiana koloru przycisków

2018-06-06T09:25:40+01:00

dokładnie - OBIEKT a nie String przekaż jako pierwszy argument funkcji

Statystyki: Napisane przez mirekk36 — 6 cze 2018, o 09:25

Re: B4A zmiana koloru przycisków

2018-06-06T09:17:03+01:00

nie znam B4A, ale zgaduję, że nazwa_przycisku powinna być typu obiekt, na pewno nie string

Statystyki: Napisane przez szpilek — 6 cze 2018, o 09:17

B4A zmiana koloru przycisków

2018-06-06T09:09:58+01:00

Witam, na początku chciałem zaznaczyć że jestem świeżak jeśli chodzi o programowanie i mam pewien problem, mianowicie:
w aplikacji mam bardzo dużą ilość przycisków (Buttonów) i jak do tej pory zmieniam ich kolor w taki sposób:

np: Button_ON.Color=Colors.Green lub Button_ON.Color=Colors.RGB(0,250,0)

i czy jest możliwość stworzenia Sub tego typu:

Sub Zmiana_koloru(nazwa_przycisku as String, R as Int, G as Int, B as Int)

nazwa_przycisku.Color=Colors.RGB(R,G,B)
End Sub

nie wiem jak zamienić Stringa na nazwę przycisku

Statystyki: Napisane przez ozi22 — 6 cze 2018, o 09:09