Problem oko koda, prijavljuje gresku

Problem oko koda, prijavljuje gresku

offline
  • Pridružio: 17 Nov 2013
  • Poruke: 6
  • Gde živiš: Kraljevo

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.ProgressChangedEve­ntArgs[/color]) Handles BackgroundWorker1.ProgressChanged         ProgressBar1.Value = e.ProgressPercentage     End Sub End Class

prijavljuje mi gresku u ovom delu System.ComponentModel.ProgressChangedEve­ntArgs ja sam naknadno ubacio biblioteku i dalje ne radi, na istom mestu mi izbacuje gresku, sta da radim?
Hvala unapred



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Ko je trenutno na forumu
 

Ukupno su 625 korisnika na forumu :: 8 registrovanih, 1 sakriven i 616 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3028 - dana 22 Nov 2019 07:47

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: Dimitrise93, Duh sa sekirom, indja2, MB120mm, milekNS, Trpe Grozni, vlvl, zlaya011