Billedredigering

Det kommer an på hvad program du har..?

Jeg skulle mene at Paint Shop Pro kan gøre det.

Det er svært lige at forstå hvad du mener. Men hvis det du mener, er, at du vil analysere hvert pixel i et billede i en picturebox og finder specielle forskelle (fx en rød kasse), så kan det gøres sådan her:

Opret en picturebox og sæt et billede derind i. Herefter sætter du billedets "autoredraw = true" og skriver denne kode i "form_activate":

Private Sub Form_Activate()
Dim Søg

Søg = 0 ' som er sort

Picture1.BackColor = Søg

Me.Show

    For x = 0 To Picture1.ScaleWidth Step 10
        For y = 0 To Picture1.ScaleHeight Step 10
            If Picture1.Point(x, y) = Søg Then
                ' Farven er fundet, nu tegner dette
                ' program bare gule farver istedet for.
                    Picture1.PSet (x, y), RGB(255, 255, 0)
            End If
        Next
    DoEvents
    Next
End Sub

Håber det kunne hjælpe - ellers formulér dit spørgsmål igen.

Mvh. Rasmus

Ja - billedbehandlingsprogrammer som fx Photoshop kan gøre det samme selvfølgelig, men skulle det ikke virke i Visual Basic?

jeg formulere det lige igen..
Jeg har et billede i en picturebox med navnet StortBillede på måske 1000*1000pixels

Så har jeg en anden picturebox med navnet SøgBillede på lad os sige 50*50 pixels

Så vil jeg se om SøgBillede passer ind nogle steder i StortBillede.. Altså om et felt et eller andet sted i StorBillede på 50*50 er magen til SøgBillede og så angiv positionen på hvor det er.

Kigger lige med :)

Nu forstår jeg - tror jeg.

Opret to pictureboxe og ændre ikke på navnene.
Sæt det samme billede ind i hver - måske med små ændringer
Opret en knap og skriv dette:


Private Sub Command1_Click()
    MousePointer = 11
   
    For x = 0 To Picture1.ScaleWidth Step 10
    For y = 0 To Picture1.ScaleHeight Step 10
        If Picture1.Point(x, y) = Picture2.Point(x, y) Then
            ' Så er de ens og bliver farvel gule
                Picture1.PSet (x, y), RGB(255, 255, 0)
        End If
    Next
        DoEvents
    Next
   
    MousePointer = 1
End Sub


Den tegner gult, hvis de er ens.

Held og lykke - håber det hjalp.

Det virker jo kun hvis billederne har samme størrelse.. hvis nu jeg har et billede på 50*50 og skal lede et 1000*1000 billede igennem for at se om der er en nøjagtig kopi af det et eller andet sted hvordan gør jeg så det ?

Forestil dig at vi har et detaljeret damnarkskort.. hvis så man klippede Aalborg ud og satte det ind i et billede for sig og søgte efter det. Så skulle programmet vise positionen på det store kort hvor kortet er magen til.

Ingen svar. Nå anyway har selv lavet en midlertidig løsning men hvis i får en ginial ide så skriv. ( kan altid åbne spørgsmålet igen)