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

Mam problem z kodem tworząc generator, robie wg poradnika, ale niedziala jak powinien, tzn po kliknieciu przycisku start nie widac paska ladowania aby sie poruszal i nie wyswietlaja sie napisy z postepem. Ponizej podaje screeny i caly kod, moze ktos cos zaradzi, bede bardzo wdzieczny za pomoc

screeny w zalacznikach, a kod podaje w calosci tutaj:





Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click()
Dim a As Double
a = 0
If TextBox1.Text = "" Then
MessageBox.Show("Put your login in game!", "Error")
Else
a = (a + 1)
End If
If ComboBox1.Text = "" Then
MessageBox.Show("Select Item!", "Error")
Else
a = (a + 1)
End If
If ComboBox2.Text = "" Then
MessageBox.Show("Select Amount!", "Error")
Else
a = (a + 1)
End If
If a = (3) Then
Timer1.Start()
ProgressBar1.Value = ProgressBar1.Minimum
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
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("Please check your gold in-game", "Success")
Else
If ProgressBar1.Value = 1 Then
Label6.Text = "Loading.."
End If
If ProgressBar1.Value = 15 Then
Label6.Text = "Generator loaded!"
End If
If ProgressBar1.Value = 25 Then
Label6.Text = "Connecting to game server.."
End If
If ProgressBar1.Value = 45 Then
Label6.Text = "Connected!"
End If
If ProgressBar1.Value = 55 Then
Label6.Text = "Searching your account.."
End If
If ProgressBar1.Value = 80 Then
Label6.Text = "Your account is found!"
End If
If ProgressBar1.Value = 86 Then
Label6.Text = "Transfer your items to account.."
End If
If ProgressBar1.Value = 95 Then
Label6.Text = "Success!"
End If
End If
End Sub

Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

End Sub

Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub
End Class

Post: #2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click() - Usuń nawiasy na końcu

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Handles Timer1.Tick - Tutaj usuń Handles Timer1.Tick bo powtarza ci się to na końcu

Powinno już działać

Post: #3

Cytat:Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Handles Timer1.Tick - Tutaj usuń Handles Timer1.Tick bo powtarza ci się to na końcu

w tym przypadku udalo sie usunac bez problemu

Cytat:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click() - Usuń nawiasy na końcu

tutaj jednak nawiasy same po usunieciu pojawiaja sie





problem rozwiazany, prosze o zamkniecie tematu