Matematické Fórum

↑ 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

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.