Nevíte-li si rady s jakýmkoliv matematickým problémem, toto místo je pro vás jako dělané.
Nástěnka
❗22. 8. 2021 (L) Přecházíme zpět na doménu forum.matweb.cz!
❗04.11.2016 (Jel.) Čtete, prosím, před vložení dotazu, děkuji!
❗23.10.2013 (Jel.) Zkuste před zadáním dotazu použít některý z online-nástrojů, konzultovat použití můžete v sekci CAS.
Nejste přihlášen(a). Přihlásit
Stránky: 1
Zdravím,
pokouším se změnit barvu v jednom obrázku, ale jde to marně. Zatím netuším, jak začít, ještě to ani nevysvětlovali.
Má to být něco takového Příloha
Mohli byste mi ukázat, jak na to?
Předem díky
/edit: vložil jsem nový odkaz na přílohu, mělo by to jít
Offline
↑ cutrongxoay:
Já VB neznám, ale Tady máš návod, jak přebarvit pixel (po pixelu).
Budeš ve vnořených cyklech přes všechna x a y obrázku autíčka přebarvovat každý bod Point(x,y) viz.
"Další užitečnou metodou je metoda Point, která vrací číslo, reprezentující barvu bodu o souřadnicích x,y. Možné použití při "barevné gumě", která mění cervenou v modrou:"
Tedy
cervena = RGB(255,0,0)
modra = RGB(0,0,255)
For x = 1 To sirka_obrazku_auticka
For y = 1 To vyska_obrazku_auticka
If Obrazek_auticka.Point(x,y) = cervena Then
Obrazek_auticka.Pset(x,y),modra
Next y
Next x
Ještě musíš ovšem ošetřit aby to šlo i obráceně, tzn. když bude zapnutý Radiobuton červená, tak ta podmínka bude obráceně
If Obrazek_auticka.Point(x,y) = modra Then
Obrazek_auticka.Pset(x,y),cervena
Offline
↑ Honzc:
Dobře, zkusím.
Offline
No, tak jsem si nakonec vymyslel jiný způsob a doufám, že mi to uzná. Vytvořil jsem 2 obrázky, přebarvil na ty dvě různé barvy a na importoval do pictureboxu. Po kliku na radiobuttony se opravdu mění.
Jinak děkuji ↑ Honzc: za kódy, určitě využiju.
Offline
Stránky: 1