Jak zrobić program, który będzie otwierać okno błędu?

Jak zrobić program, który będzie otwierać okno błędu?

Chodzi mi o to, że kiedy ktoś otworzy program to mu sie pokaze błąd ze program sie zle pobral i zeby jeszcze raz go pobral.

W VB możesz taki spokojnie zrobić

No wiem, ale pytam sie jak. Mozesz kod podac.

Dodajesz sobie na Form1 obiekty: ProgressBar i Timer. Później wklejasz ten kod:

Public Class Form1     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)        Timer1.Start()    End Sub     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick        ProgressBar1.Increment(1)         If ProgressBar1.Value = 10 Then            Timer1.Interval = 80        End If         If ProgressBar1.Value = 25 Then            Timer1.Interval = 300        End If         If ProgressBar1.Value = 37 Then            Timer1.Stop()	MessageBox.Show("Error during initialization (CRC): Please check if file was downloaded correctly and try again.", _	    "CRC Error", _	    MessageBoxButtons.OK, _	    MessageBoxIcon.Exclamation, _	    MessageBoxDefaultButton.Button1)    End SubEnd Class

Przy 37% ladowania powinno wywalac blad, Timer1.Interval zmienia szybkość na progressbarze w zaleznosci od pozycji.

Edit: zmieniłem na error boxa

Dodajesz sobie na Form1 obiekty: ProgressBar i Timer. Później wklejasz ten kod:

Public Class Form1     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)        Timer1.Start()    End Sub     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick        ProgressBar1.Increment(1)         If ProgressBar1.Value = 10 Then            Timer1.Interval = 80        End If         If ProgressBar1.Value = 25 Then            Timer1.Interval = 300        End If         If ProgressBar1.Value = 37 Then            Timer1.Stop()	MessageBox.Show("Error during initialization (CRC): Please check if file was downloaded correctly and try again.", _	    "CRC Error", _	    MessageBoxButtons.OK, _	    MessageBoxIcon.Exclamation, _	    MessageBoxDefaultButton.Button1)    End SubEnd Class

Przy 37% ladowania powinno wywalac blad, Timer1.Interval zmienia szybkość na progressbarze w zaleznosci od pozycji.

Edit: zmieniłem na error boxa

Public Class Form1  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)MessageBox.Show("Error during initialization (CRC): Please check if file was downloaded correctly and try again.",  "CRC Error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1) End SubEnd Class

Tu już bez wstawiania czegokolwiek

Public Class Form1  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)MessageBox.Show("Error during initialization (CRC): Please check if file was downloaded correctly and try again.",  "CRC Error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1) End SubEnd Class

Tu już bez wstawiania czegokolwiek