RGB

Sobzirom da ovo sigurno znate,pitam vas!
Skeniram boju nekog pixela s getpixelColor i on mi vrati neku vrijednost (definiranu kao Long). e sad kako iz te vrijednosti dobiti komponente Green,Red,Blue ? Na?ao sam na netu par formula ali ni jedna nije dobra

Imam ti ja tocno kod za to jer sam ja to malo testirao...sta mi nisi javio na mail....Probat cu ti poslati veceras...! ZNACI JOS TO NISI NAPRAVIO...!

ajd lagano odjeb

Ajd dino taj code baci ovdje da i drugi vide kak se to radi.. isti ti je vrag a ovaj podforum mora imati nekog smisla.

Ocu ja dozivit vise ovo samo na to cekam !

Evo, radim na tome...stavit cu za skinuti to ovdje veceras...

Function ColorToRGB(ByVal Color As String) As String
  

On Error GoTo Solution

Dim SStr As String
Dim sR As String, sB As String, sG As String
Dim fR As String, fB As String, fG As String

SStr = "000000" & Hex(Color)
SStr = Right(SStr, 6)
fB = "&H" & Mid(SStr, 1, 2): sB = Hex$(CStr(CInt(Format(fB))))
fG = "&H" & Mid(SStr, 3, 2): sG = Hex$(CStr(CInt(Format(fG))))
fR = "&H" & Mid(SStr, 5, 2): sR = Hex$(CStr(CInt(Format(fR))))

If sB = "0" Then sB = "00"
If sR = "0" Then sR = "00"
If sG = "0" Then sG = "00"


Solution:
    If Err.Number <> 0 Then
        sR = -1
        sG = -1
        sB = -1
    End If
    
    ColorToRGB = "#" + sR + sG + sB
    
End Function

Izvadak iz jednog mog programa,vraca rgb vrijednost kao string,ali mozes to prepraviti dosta lagano.

pic_encrypt.zip
Evo tu ti je "programcic" i source...nije nis posebno ali lako mozes skuziti sta ti treba...automatski mozes izbrisati pola koda jer je nepotreban...ali to sam malo prckao da se zabavim...!

Iz nekog sumljivog razloga ovaj kod za RGB ne funkcionira u VB. netu, očito vb6 ima uključene neke druge opcije. Jer mi se čini da je ova formula napisana tako kao da vrijednost koju ti vrati GEtPixel color je sadr?ana od green, red i blue ali NIJE je postoji jo? i vrijednost ALPHA ! No nije btno, uspio sam to sredit s VB. NET ovim funkcijama pa nema veze !

GETPixel je funkcija od WinApija i nema veze sa vb-om. Nezam zasto ti neradi ova funkcija vraca samo RGB ne i alpha masku.