Skocz do zawartości

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


Rekomendowane odpowiedzi

Dołącz do nas za darmo i naucz się zarabiać!

  • Dostęp do darmowych poradników pokazujących krok po kroku jak zarabiać w Internecie
  • Sposoby zarabiania niepublikowane nigdzie indziej
  • Aktywna społeczność, która pomoże Ci rozwiązać problemy i doradzi
  • Profesjonalne treści na temat SEO, social media, afiliacji, kryptowalut i wiele więcej!

 

 

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

Odnośnik do komentarza

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

A moglbys zrobic zeby jak sie klika w ikonke programu np. na pulpicie to zeby zamiast okna programu odrazu otworzyl sie blad i jak sie kliknie ok to sie to zamknie? Edytowane przez PowerOfSzkielko
Odnośnik do komentarza
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 ;)

  • Super 2
Odnośnik do komentarza
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 ;)
Dziekuje [emoji1]
Odnośnik do komentarza

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Jedynie zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Posiadasz już konto? Zaloguj się poniżej.

Zaloguj się
×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Ta strona korzysta z ciasteczek aby świadczyć usługi na najwyższym poziomie. Dalsze korzystanie z witryny oznacza zgodę na ich wykorzystanie. Polityka prywatności .