Znajdź zawartość
Wyświetlanie wyników dla tagów 'Label Loading' .
-
Hej! Ostatnio długo szukałem takie poradnika, ale niestety go nie znalazłem, więc postanowiłem na własną rękę (+ z pomocą różnych filmików z YouTube) zdobyć wiedzę jak takowy Loading zrobić. Po dwóch dniach przeglądania sieci w końcu udało mi się osiągnąć efekt, jaki chciałem. Dziś się nim z Wami podzielę. 1. Okej, na początku tworzymy nowy Form i dodajemy RichTextBox, Button, ProgressBar oraz Timer. 2. Następnie naciskamy dwa razy na button i dodajemy taki kod Timer1.Start() 3. Następnie, naciskamy dwa razy na Timer i dodajemy kod: ProgressBar1.Increment(1)If ProgressBar1.Value = 1 ThenRichTextBox1.Text = RichTextBox1.Text & "Loading jakiśtam.dll..." & vbCrLfEnd IfIf ProgressBar1.Value = 15 ThenRichTextBox1.Text = RichTextBox1.Text & "Loading jakiśtam2.dll..." & vbCrLfEnd IfIf ProgressBar1.Value = 25 ThenRichTextBox1.Text = RichTextBox1.Text & "Loading jakiśtam4.dll..." & vbCrLfEnd IfIf ProgressBar1.Value = 45 ThenRichTextBox1.Text = RichTextBox1.Text & "Loading 7567567..." & vbCrLfEnd IfIf ProgressBar1.Value = 55 ThenRichTextBox1.Text = RichTextBox1.Text & "Loading Lollol.dll..." & vbCrLfEnd IfIf ProgressBar1.Value = 80 ThenRichTextBox1.Text = RichTextBox1.Text & "Można wpisywać co się chce" & vbCrLfEnd IfIf ProgressBar1.Value = 86 ThenRichTextBox1.Text = RichTextBox1.Text & "BlaBlabla" & vbCrLfEnd IfIf ProgressBar1.Value = 95 ThenRichTextBox1.Text = RichTextBox1.Text & "Make-cash.pl" & vbCrLfEnd If Oczywiście dostosowujemy go pod siebie zmieniając tekst oraz ProgressBar1.Value na jakie chcemy lub dodając więcej linijek tekstu. Jeżeli komuś przeszkadza progressbar to możemy go tak schować (ale on i tak musi być! Nie wolno go usuwać!): Jeżeli jednak ktoś wolałby zamienić RichTextBox na zwykły label, który by zmieniał się wraz z wzrostem wartości progressbar1, to wystarczy zamiast RichTextBox'a dodać Label, a kod z Timera dać taki: ProgressBar1.Increment(1)If ProgressBar1.Value = 1 ThenLabel4.Text = "Ładowanie"End IfIf ProgressBar1.Value = 15 ThenLabel4.Text = "Łączenie ze serwerem"End IfIf ProgressBar1.Value = 25 Then Label4.Text = "Wczytywanie ustawień konta"End IfIf ProgressBar1.Value = 45 ThenLabel4.Text = "Wczytywanie danych..."End IfIf ProgressBar1.Value = 55 ThenLabel4.Text = "Wczytywanie danych - zakończone!"End IfIf ProgressBar1.Value = 80 ThenLabel4.Text = "Łączenie z bazą..."End If If ProgressBar1.Value = 86 ThenLabel4.Text = "Wczytano pomyślnie!"End IfIf ProgressBar1.Value = 95 ThenLabel4.Text = "Proces zakończył się SUKCESEM!"End If Wtedy efekt prezentuje się tak: Jeżeli poradnik przydał Ci się do czegokolwiek, to kliknij przycisk
- 15 odpowiedzi
-
- 8
-
- RichTextBox
- Loading
-
(i 1 więcej)
Oznaczone tagami: