Praca w domu - Dodatkowa Praca - Zarabianie przez Internet. Dołącz do Największego w Polsce forum o tematyce Zarabiania przez Internet. Praca w domu stała się bardzo popularna.

Post: #1

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.

Post: #2

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?

Post: #3

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