Preuzeo sam kod koji je dat u opisu video snimka sa youtube-a
Option Strict On
Imports System.ComponentModel.ProgressChangedEventArgs
Public Class Form1
Private Sub dig1_Click(ByVal sender As Object, ByVal e As EventArgs)
OpenFileDialog1.Title = ""
OpenFileDialog1.FileName = ""
OpenFileDialog1.ShowDialog()
PictureBox1.ImageLocation = OpenFileDialog1.FileName
End Sub
Private Sub dig2_Click(ByVal sender As Object, ByVal e As EventArgs)
BackgroundWorker1.RunWorkerAsync()
End Sub
Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
CheckForIllegalCrossThreadCalls = False
Dim Bild As Bitmap = CType(Me.PictureBox1.Image.Clone, Bitmap)
Dim width As Integer = Bild.Width - 1
Dim height As Integer = Bild.Height - 1
For x = 1 To width
For y = 1 To height
ProgressBar1.Maximum = width * height
BackgroundWorker1.ReportProgress(x * y)
Dim R, G, B, A As Integer
R = Bild.GetPixel(x, y).R
G = Bild.GetPixel(x, y).G
B = Bild.GetPixel(x, y).B
A = Bild.GetPixel(x, y).A
RichTextBox1.AppendText(R & "-" & G & "-" & B & "-" & A & "'" & x & "," & y & vbNewLine)
Next
Next
dig2.Text = dig2.Text.Substring(0, dig2.Text.Length - 1)
RichTextBox1.AppendText("|" & width & "*" & height)
End Sub
Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As [color=red]System.ComponentModel.ProgressChangedEventArgs[/color]) Handles BackgroundWorker1.ProgressChanged
ProgressBar1.Value = e.ProgressPercentage
End Sub
End Class
prijavljuje mi gresku u ovom delu System.ComponentModel.ProgressChangedEventArgs ja sam naknadno ubacio biblioteku i dalje ne radi, na istom mestu mi izbacuje gresku, sta da radim?
Hvala unapred
