Option Strict On
Imports System.ComponentModel.ProgressChangedEventArgs
Public Class Form1
Private Sub BackgroundWorker1_ProgressChanged1(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
ProgressBar1.Value = e.ProgressPercentage
End Sub
Private Sub dug1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dug1.Click
OpenFileDialog1.Title = ""
OpenFileDialog1.FileName = ""
OpenFileDialog1.ShowDialog()
PictureBox1.ImageLocation = OpenFileDialog1.FileName
End Sub
Private Sub dig2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dig2.Click
BackgroundWorker1.RunWorkerAsync()
End Sub
Private Sub BackgroundWorker1_DoWork_1(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
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
End Class
pokrene se program, i ubacuje sliku, ali kad treba da mi izvrsi radnju prijavljuje gresku
BackgroundWorker1.ReportProgress(x * y)
a ovo mi pise u opisu
This BackgroundWorker states that it doesn't report progress. Modify WorkerReportsProgress to state that it does report progress.
ne znam zasto to radi, ne znam kako da ispravim taj deo koda, svaka pomoc bi mi dobrodosla
Hvala unapred! :D