fake crack - Wersja do druku

fake crack - Wersja do druku

+- Praca w domu - Dodatkowa Praca - Zarabianie przez Internet (https://zarabiam.com)
+-- Dział: CPA, PPA i content locking (https://zarabiam.com/Forum-Uploading-282)
+--- Dział: Dyskusje o uploadingu (https://zarabiam.com/Forum-Dyskusja-o-Uploadzie-286)
+--- Wątek: fake crack (/Temat-fake-crack-70411)

Strony: 1 2

RE: fake crack - CMRR - 04-06-2013

A wiesz chociaż jak wygląda msgbox?

RE: fake crack - Vister81 - 04-06-2013

Możliwe, że nie

RE: fake crack - alizen - 04-06-2013

mam takie coś

Cytat: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
MsgBox("xx", 0, "xx")

End If
End Sub
End Class

progressbar przejdzie do końca i wtedy wyskakuje co chwile to z msgbox i robi mi spam na ekranie

RE: fake crack - bolo9797 - 04-06-2013

A gdzie timer.stop??

RE: fake crack - JaviDesire - 04-06-2013

Bo nie ma funkcji zatrzymującej timer.
W Timerze dopisz na końcu: Timer1.Stop()

RE: fake crack - alizen - 04-06-2013

dodałem w timerze timer1.Stop() to w ciągu sekundy dochodzi do końca i dalej spamuje msgboxami

_____________________
@edit
co w tym kodzie jest zle?
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()
Else
MsgBox("sdsd", 0, "asda")

End If

End Sub

idzie progres bar w tym czasie spamuje msgboxami. Gdy progressbar przejdzie do końca przestaje boxami spamoawc

RE: fake crack - JaviDesire - 04-06-2013

Trzymaj od razu cały kod programu, żeby nie trzeba było milion postów pisać Tongue

Kod:
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 = 100 Then
            Timer1.Stop()
        End If
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            MessageBox.Show("xx", "yy")
        End If
    End Sub
End Class

RE: fake crack - Jojo693 - 04-06-2013

(04-06-2013, 21:33)JaviDesire napisał(a): Trzymaj od razu cały kod programu, żeby nie trzeba było milion postów pisać

Kod:
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 = 100 Then Timer1.Stop() End If If ProgressBar1.Value = ProgressBar1.Maximum Then MessageBox.Show("xx", "yy") End If End Sub End Class

Heeeeej !!! Pomożesz mi w tym temacie ? Smile

http://zarabiam.com/Temat-Visual-Basic-2-textboxy-70553

RE: fake crack - bolo9797 - 04-06-2013

Omg bo pewnie w tymer masz 40 milisekund... Zmien na tyle timer zeby okienko pokazalo sie po zaladowaniu.