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

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

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

_________________
zapraszam na blog: http://www.mirekk36.blogspot.com (mój nick Skype: mirekk36 ) [ obejrzyj Kurs EAGLE ] [ mój kanał YT TV www.youtube.com/mirekk36 ]

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

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

Witam
użyj select case, np. ponumeruj sobie przyciski


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

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)

spróbuj:



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!!

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

Dziekuje za próby pomocy ale narazie stoje w miejscu

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

_________________
zapraszam na blog: http://www.mirekk36.blogspot.com (mój nick Skype: mirekk36 ) [ obejrzyj Kurs EAGLE ] [ mój kanał YT TV www.youtube.com/mirekk36 ]

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)

sprytnie, brawo!!

Lepszym rozwiązaniem będzie:



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.