Znajdź zawartość
Wyświetlanie wyników dla tagów '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:
-
Pytanie "Loading" & szybkość progressbara; loading apki
KERRIGAN opublikował(a) temat w Visual Basic
yo 1. Da się zrobić tak aby progressbar ,,zacinał się" przy określonej wartości? Np. chcę żeby do 30% szło gładko a od 30% do 40% zwolniło, przy 50% się zatrzymało na sekundę a potem ruszyło tak jak na początku. Robił ktoś coś takiego? 2. Sama szybkość progressbara jest mała. Używam Increment (0.6) i nie ma różnicy czy dam inną wartość. Istnieje jakiś inny sposób kontroli szybkości? 3. Chcę żeby po odpaleniu .exe wyskakiwało małe okienko (taki loading) a po dobiciu 100% otwierała się apka. Form1 to musi być ten ekran ładowania a gdy dobije do 100% to ma się pokazać prawidłowa apka, Form2 i tylko to wystarczy czy trzeba coś jeszcze dodawać?- 2 odpowiedzi
-
- loading
- progressbar
-
(i 1 więcej)
Oznaczone tagami:
-
Rozwiązane Co chwile błąd podczas ładowania się strony
Gość opublikował(a) temat w Webmastering i grafika
Co 2-3 minuty wywala mi taki błąd: Co się stało się ?