ช่วยเปลี่ยนตรง x As Integer, y As Integer เป็นตำแหน่งข้อมูลที่เก็บไว้ทีครับ
Date :
2011-02-20 11:21:48
By :
chineple
No. 2
Guest
ลองใช้ point ดูครับ
เวลาเก็บ
Dim pointList As New List(Of Point)
pointList.Add(New Point(I, j))
เวลาใช้
For Each p As Point In pointList
MsgBox(p.X & " : " & p.Y)
Next
Dim pointList As New List(Of Point)
pointList.Add(New Point(I, j))
ตรงนี้ใส่ไว้ระหว่าง if แบบนี้ใช่มั้ยครับ
If srcBitmap.GetPixel(i, j) <> srcBitmap.GetPixel(i + 1, j) Then 'ถ้าค่าสีตำแหน่ง i != i+1
Dim pointList As New List(Of Point)
pointList.Add(New Point(I, j))
End If
แล้ว
For Each p As Point In pointList
MsgBox(p.X & " : " & p.Y)
Next
ใส่ไว้ตรงไหนอ่ะครับ ผมมือใหม่จริงๆครับ :)
ทำโปรเจคเกี่ยวกับวิเคราะห์รูปภาพเฉยๆครับ ไม่ใช่ ocr ครับ
Date :
2011-02-20 15:25:32
By :
chineple
No. 4
Guest
เอาไปไส่ตรงนี้ครับ
For Each p As Point In pointList
dataBitmap.SetPixel( p.x As Integer, p.y As Integer, Color.Red)'เซ็ต pixel ตรงจุดที่เก็บข้อมูลไว้เป็นสีแดง
Next
Load balance : Server 05
