+- Praca w domu - Dodatkowa Praca - Zarabianie przez Internet (https://zarabiam.com)
+-- Dział: Uploading (/Forum-Uploading-282)
+--- Dział: Dyskusja o Uploadzie (/Forum-Dyskusja-o-Uploadzie-286)
+--- Wątek: Vb Help (/Temat-Vb-Help-77195)
Vb Help - mati987481 - 29-09-2013 14:23
Siema postanowiłem zrobić fejk, ii mam problem z kodem pomoże ktoś??
Chodzi mi o takie coś:
Po kliknięciu: button chce żeby pasek obok zaczął się ładować ii potem wyskoczyło okienko z moim podpisem. Mam kilka takich buttonów ii pasków ii chce żeby każdy tak działał. Z góry dzięki.
RE: Vb Help - comanche - 29-09-2013 15:23
Cytat:Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then
Timer1.Stop()
Dim key As Integer
key = (Rnd() * 1)
Select Case key
Case 1
End Select
MessageBox.Show("tekst w wyskakujacym okienku.", "Error!")
Else
If ProgressBar1.Value = 1 Then
Label1.Text = "xxx..."
End If
If ProgressBar1.Value = 30 Then
Label1.Text = "xxxxx..."
End If
If ProgressBar1.Value = 80 Then
Label1.Text = "xxxxxxxxx..."
End If
End If
End Sub
End Class
cos takiego moze byc?
RE: Vb Help - pietruch78 - 29-09-2013 20:51
Pisz do użytkownika "vipper" on mi pomógł.
Oto co mi napisał:
____________________________________________________
1. Na formę wrzucasz:
1 progressbar - będzie efekt ładowania
1 timer - będzie dodawał wartość progressbarowi - timer działa na zasadzie pętli, tzn. że powtarza się to co w nim wpisane co określony czas Tongue domyślnie 100 ms
1 button - po kliknięciu wystartuje timer
1 textbox - będzie w nim wyświetlany kod Wink
Teraz dwu klik na Button1 i tam wklejasz kod:
Kod:
Timer1.Start()
tzn. że po kliknięciu aktywujesz Timer1 Wink
Teraz dwu klik na Timer1:
Kod:
ProgressBar1.Increment(1)
' increment to inaczej zwiększanie - powiększanie, więc w tym wypadku chodzi o powiększanie wartości progressbar'a, jako że timer to pętla to co 100 ms będzie powiększał wartość o 1 jeżeli chcesz więcej to wpisz w nawiasie inną liczbę
If ProgressBar1.Value = ProgressBar1.Maximum Then
' If to warunek, dalej podane jest co on musi spełniać i na końcu Then czyli WTEDY - innymi słowy: JEŻELI PROGRESSBAR BĘDZIE MIAŁ MAKSYMALNĄ WARTOŚĆ WTEDY ... wydarzy się to co poniżej
Dim key As Integer
key = (Rnd() * 4 + 1)
Select Case key
Case 1
TextBox1.Text = "klucz numer 1"
Case 2
TextBox1.Text = "klucz numer 2"
Case 3
TextBox1.Text = "klucz numer 3"
Case 4
TextBox1.Text = "klucz numer 4"
End Select
' TUTAJ JEST losowanie kluczy po spełnionym warunku, zamiast klucz numer 1,2,3,4 wpisujesz swoje własne np. 123-123-123-123 itp.
Timer1.Stop()
' na koniec, zakonczenie pętli - inaczej co 100ms wykonywałoby warunek i zmieniało klucz
End If
Po znaczniku komentarza - apostrofa - ' - opisałem co i jak w powyższym kodzie
___________________________________________________
Masz tu pięknie opisane, więc zapisz sobie w notatniku