Hej...
Er det muligt at tjekke hvilken farve en pixel har på nuværende PictureBox.CurrentX og PictureBox.CurrentY kordinat?
Og også ændret den til Hvis hvis den ikke er blå i forvejen...
Jeg er ved at lave sådan at man kan tegne noget blåt på et billede og så bagefter så gør den alt det der IKKE er blåt til hvidt så man kun ser det blå!
På forhånd tak!
EDIT: Fandt selv løsningen
If PictureBox.Point (PictureBox.CurrentX, PictureBox.CurrentY) = vbBlue Then
'Bla bla bla
End If
Men det ville dog hver dejlig hvis nogle lige kunne hjælpe lidt til hvordan jeg laver en kode der gennemgår alle pixels i billedet, og hvis de ikke er blå, så skal den gøre dem hvide! Så er det nemlig kun det blå der er tilbage!
På forhånd tak!
EDIT: Okay! Jeg har fundet en metode til at fjerne alt det der ikke er blåt! Men den er upræcis og ekstrem langsom!!! Og ustabil! Vil meget gerne have at vide hvis nogen har en bedre en!
Se min kode her:
Dim i, i2 As Long
Dim CurX, CurY As Long
Dim MaxX, MaxY As Long
CurX = 0
CurY = 0
MaxX = picDraw.Width 'picDraw.Picture.Width
MaxY = picDraw.Height 'picDraw.Picture.Height
picDraw.ForeColor = vbWhite
For i2 = 0 To MaxX
For i = 0 To MaxY
CurY = CurY + 1
Me.Caption = CurY
picDraw.CurrentX = CurX
picDraw.CurrentY = CurY - 1
If Not picDraw.Point(CurX, CurY) = vbBlue Then
Me.Caption = Me.Caption & " IKKE BLÅ"
picDraw.Line -(CurX, CurY)
Else
Me.Caption = Me.Caption & " BLÅ"
End If
Next
CurY = 0
CurX = CurX + 4
NextPS: Er der en måde at tenge en prik på istedet for .Line -(X,Y) ???
Indlæg senest redigeret d. 02.07.2006 19:28 af Bruger #1927