Witaj gościu! Zaloguj się lub Zarejestruj aby móc korzystać ze wszystkich funkcjonalności jakie oferuje to forum! Rozpocznij zarabianie przez internet, poznaj korzysci pracy w domu! Rejestracja i korzystanie z forum jest całkowicie darmowe!
Praca w domu - Dodatkowa Praca - Zarabianie przez Internet
Problem z kodem w VB - Wersja do druku

+- 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: Problem z kodem w VB (/Temat-Problem-z-kodem-w-VB-75540)

Problem z kodem w VB - comanche - 30-08-2013 15:07

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 pomocSmile

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

RE: Problem z kodem w VB - ceha_wb - 30-08-2013 23:13

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ć

RE: Problem z kodem w VB - comanche - 31-08-2013 08:25

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 tematuSmile