[ IKA1994 @ 12.02.2015. 02:04 ] @
Preuzeo sam kod sa bideo snimka na youtube Code: 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 Code: 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 |