Skocz do zawartości

pomoc kodowanko na czekanko


buKKa

Rekomendowane odpowiedzi

stworzyłem splash screen wg tego poradnika: http://make-cash.pl/...plikacji-t3497/

nie działa mi przez to czerwony krzyżyk do zamykania apki nie wiesz jak to rozwiązać?

 

2 sprawa mam hacka, progressbar nie zakodowany i przycisk h@ack, po naciśnięciu jego chce żeby progressbar coś się tam ładował raz wolniej raz szybciej i żeby na początku wyskakiwało "device connected" i w wersji do filmików żeby załadował sie cały i potem wyskoczyło okienko "success" i tam jakiś tekst.

 

a w wersji którą będą ludzie pobierać żeby podczas ładowania progressbara czy przed czy po ( nigdy po ukończeniu ładowania ) może być żeby w różnych momentach wyskakiwało okno że plik uszkodzony prosze pobrać ponownie

 

 

form1:

Public Class Form1    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            Form2.Show()            Me.Hide()        End If    End Sub    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load    End SubEnd Class

form2:

 Public Class Form2    Private Sub AscThemeContainer1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AscThemeContainer1.Click    End Sub    Private Sub AscButton_Big1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AscButton_Big1.Click        Form3.Show()    End SubEnd Class

form3:

Public Class Form3    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        End    End Sub    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked        Process.Start("http://przykładowylink/")    End SubEnd Class

Nie patrz się tutaj!

Odnośnik do komentarza

Dołącz do nas za darmo i naucz się zarabiać!

  • Dostęp do darmowych poradników pokazujących krok po kroku jak zarabiać w Internecie
  • Sposoby zarabiania niepublikowane nigdzie indziej
  • Aktywna społeczność, która pomoże Ci rozwiązać problemy i doradzi
  • Profesjonalne treści na temat SEO, social media, afiliacji, kryptowalut i wiele więcej!

 

 

 

 

2 sprawa mam hacka, progressbar nie zakodowany i przycisk h@ack, po naciśnięciu jego chce żeby progressbar coś się tam ładował raz wolniej raz szybciej i żeby na początku wyskakiwało "device connected" i w wersji do filmików żeby załadował sie cały i potem wyskoczyło okienko "success" i tam jakiś tekst.
//Kliknij dwa razy na button i wklep to:     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click        Timer1.Start()    End Sub
//Przejdz do timer'a i wpisz to:    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick        ProgressBar1.Increment(1)        If ProgressBar1.Value = 1 Then            Label1.Text = "device connected"        End If        If ProgressBar1.Value = 10 Then            Timer1.Interval = 30        End If        If ProgressBar1.Value = 20 Then            Timer1.Interval = 60        End If        If ProgressBar1.Value = 30 Then            Timer1.Interval = 90        End If        If ProgressBar1.Value = 40 Then            Timer1.Interval = 150        End If        If ProgressBar1.Value = 50 Then            Timer1.Interval = 10        End If        If ProgressBar1.Value = 60 Then            Timer1.Interval = 300        End If        If ProgressBar1.Value = 70 Then            Timer1.Interval = 200        End If        If ProgressBar1.Value = 80 Then            Timer1.Interval = 50        End If        If ProgressBar1.Value = 99 Then            Timer1.Stop()            MsgBox("jakis tam tekst", MsgBoxStyle.Information, "success")        End If    End Sub

 

a w wersji którą będą ludzie pobierać żeby podczas ładowania progressbara czy przed czy po ( nigdy po ukończeniu ładowania ) może być żeby w różnych momentach wyskakiwało okno że plik uszkodzony prosze pobrać ponownie

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick        ProgressBar1.Increment(1)        If ProgressBar1.Value = 1 Then            Label1.Text = "device connected"        End If        If ProgressBar1.Value = 10 Then            Timer1.Interval = 30        End If        If ProgressBar1.Value = 20 Then            Timer1.Interval = 60        End If        If ProgressBar1.Value = 30 Then            Timer1.Interval = 90        End If        If ProgressBar1.Value = 40 Then            Timer1.Interval = 150            Timer1.Stop()            MsgBox("Blad", MsgBoxStyle.Critical, "Error") 'wyświetla błąd            End ' zamyka aplikacje.        End If        If ProgressBar1.Value = 50 Then            Timer1.Interval = 10        End If        If ProgressBar1.Value = 60 Then            Timer1.Interval = 300        End If        If ProgressBar1.Value = 70 Then            Timer1.Interval = 200        End If        If ProgressBar1.Value = 80 Then            Timer1.Interval = 50        End If        If ProgressBar1.Value = 99 Then            Timer1.Stop()            MsgBox("jakis tam tekst", MsgBoxStyle.Information, "success")        End If    End Sub

W razie problemów chętnie pomogę na GG: 28884369

Edytowane przez agix
  • Super 1
Odnośnik do komentarza

 

dziękówa zaraz obczaje i ewentualnie dam znać na gg :)

 

musiałem kod przerobić bo nie mam niestety "ProgressBar1" tylko "AscProgressBar1"

po modyfikacji wywala :

http://prntscr.com/4zky0r

 

i ogólnie to bym najchętniej chciał żeby otwierało mi sie form3

 

a nie jakieś tam okienka

 

edit:

wygenerowałęm ten increment dla tego thema i wywalilo to http://prntscr.com/4zl4jn

Edytowane przez buKKa

Nie patrz się tutaj!

Odnośnik do komentarza

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Jedynie zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Posiadasz już konto? Zaloguj się poniżej.

Zaloguj się
×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Ta strona korzysta z ciasteczek aby świadczyć usługi na najwyższym poziomie. Dalsze korzystanie z witryny oznacza zgodę na ich wykorzystanie. Polityka prywatności .