Skocz do zawartości
Wilkowsky

Stworzenie aplikacji "aktualizacja"

Rekomendowane odpowiedzi

Witam, chodzi mi o stworzenie aplikacji, po jej uruchomieniu wyskakuje okienko, że jest nowa aktualizacja i pytanie, czy chce się ją pobrać teraz. Kliknięcie tak przenosi na daną stronę a po nie wyskakuje kolejne okienko w którym pisze "h@ack will close now. If u want to use it please update to the newest version. Daje screeny, bo dosyć chaotycznie to napisałem.

 

 

 
 
 
 
 
 
 
 
 
 
 
 
 
 

 

 

post-1229-0-96042800-1383676678_thumb.jp

post-1229-0-84658300-1383676679_thumb.jp

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!

 

 

No to w takim razie najzwyklejsze messageboxy:

 

1 Kod, na okienko z 'Yes' oraz 'No':

Dim result1 As DialogResult = MessageBox.Show("There's an update available. Do You want to download it?", _
                         "Important Question", _
                         MessageBoxButtons.YesNo)

If result1 = DialogResult.Yes Then

System.Diagnostics.Process.Start("http://google.com")

If result1= DialogResult.No Then

MessageBox.Show = "h@ack will close now, bla bla bla"

Me.Close

Odnośnik do komentarza

Odświeżę, jak zrobić, żeby massagebox wyświetlał się od razu po uruchomieniu aplikacji?

 

Klikasz na okienko aplikacji(nie na buttona czy coś w tym stylu) i następnie w wyświetlonym fragmencie kodu wpisujesz swojego mgsboxa.

Musisz po prostu wpisać to w sekcji Form1_Load(jeśli masz więcej form to będzie analogicznie Form2_Load...)

Odnośnik do komentarza

Klikasz na okienko aplikacji(nie na buttona czy coś w tym stylu) i następnie w wyświetlonym fragmencie kodu wpisujesz swojego mgsboxa.

Musisz po prostu wpisać to w sekcji Form1_Load(jeśli masz więcej form to będzie analogicznie Form2_Load...)

wszystko elegancko, ale nie mam takiej sekcji :| A po kliknięciu w okienko aplikacji ląduje w: Private Sub Theme1_Click i tam kod niestety nie działa. :(

zygBwel.png

Odnośnik do komentarza

wszystko elegancko, ale nie mam takiej sekcji :| A po kliknięciu w okienko aplikacji ląduje w: Private Sub Theme1_Click i tam kod niestety nie działa. :(

 

No właśnie zauważyłem, że teraz wszyscy używają tych skórek przez co pierwotna forma się ukrywa, więc pozostaje Ci dwa wyjścia:

1. Wyłączyć na chwile skórkę

2. Użyć tego:

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load'polecenia do wykonania przy starcieEnd Sub
Odnośnik do komentarza

Project -> Add Windows Form

 

I jeśli chcesz wywołać nowe okno to użyj tego kodu:

Form2.Show()

przy wczytywaniu formy pierwszej(czyli tam gdzie pisałem wcześniej).

Wszystko spoko, ale form2 nie blokuje używania Form1 (hacka) tak jak robił to error wywoływany z MessageBox, jakieś rady?

 

Ewentualnie wystarczy mi sam MsgBox ale włącza się od razu na początku, a ja mam jeszcze Splashscreena i nim się włączy Form1 error już jest, wie ktoś jak opóźnić wyskoczenie errora o np. 3-4s? 

zygBwel.png

Odnośnik do komentarza

Zrobiłem to z ukrytym progressbarem, dla potomnych dodaję kodzik jak to wygląda u mnie! :)
 

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load        Timer3.Start()    End Sub    Private Sub Timer3_Tick(sender As System.Object, e As System.EventArgs) Handles Timer3.Tick        ProgressBar3.Increment(1)        If ProgressBar3.Value = 100% Then            Timer3.Stop()            Select Case MsgBox("Wiadomośćblebleble", MsgBoxStyle.YesNo, "Update")                Case MsgBoxResult.Yes                    System.Diagnostics.Process.Start("http://www.google.com")                    Me.Close()                Case MsgBoxResult.No                    Me.Close()            End Select            Timer3.Enabled = False        End If    End SubEnd Class

zygBwel.png

Odnośnik do komentarza

 

Zrobiłem to z ukrytym progressbarem, dla potomnych dodaję kodzik jak to wygląda u mnie! :)

 

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load        Timer3.Start()    End Sub    Private Sub Timer3_Tick(sender As System.Object, e As System.EventArgs) Handles Timer3.Tick        ProgressBar3.Increment(1)        If ProgressBar3.Value = 100% Then            Timer3.Stop()            Select Case MsgBox("Wiadomośćblebleble", MsgBoxStyle.YesNo, "Update")                Case MsgBoxResult.Yes                    System.Diagnostics.Process.Start("http://www.google.com")                    Me.Close()                Case MsgBoxResult.No                    Me.Close()            End Select            Timer3.Enabled = False        End If    End SubEnd Class

 

ok. fajnie ale gdzie ty ten kod wklejasz bo ja u siebie nie mam nigdzie w kodzie "Private Sub Form1_Load" i nie wiem równierz gdzie wstawić Timer3 i progresbara

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 .