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 727 korisnika na forumu :: 52 registrovanih, 2 sakrivenih i 673 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., Apok, Asparagus, babaroga, Batinas, bigfoot, Bokiboks, ccoogg123, djboj, dushan, Excalibur13, flash12, FOX, Georgius, Hans Gajger, Instruktor 1223, Kibice, Krvava Devetka, ksyyaj, Kubovac, kybonacci, laki_bb, Leonov, Lieutenant, LUDI, MaksicZoran, Mi lao shu, mikrimaus, Milometer, milutin134, miodrag, MiroslavD, MrNo, oganj123, pein, powSrb, raptorsi, repac, rovac, sevenino, Simon simonović, stalja, Stanlio, stegonosa, Sumadija34, Trpe Grozni, W123, wizzardone, ZetaMan, |_MeD_|, Živković, 79693