Pytanie Stworzenie aplikacji "aktualizacja"

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.

Chcesz cały kod, czy tylko wytłumaczenie jak to zrobić.

Kodzik by się przydał. 

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

Kurde, w zasadzie to mam z tym mały problem, mógłbyś mi wytłumaczyć co i jak? Miałem to gdzieś zapisane ale po formacie znikła mi połowa dokumentów. 

Jak wrócę do domu to postaram się zrobić ci jakiegoś screena

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

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...)

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.

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

Polecam stworzenie nowej formy do tego żeby wszystko było jednym stylem.

Polecam stworzenie nowej formy do tego żeby wszystko było jednym stylem.

A jak podpiąć nową formę by uruchamiała się na początku Form1?

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).

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? 

To może dodaj timer, który będzie się uruchamiał wraz z Form1, a timer ustaw na te 4 sekundy i żeby po tym czasie się włączył msgbox.

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

 

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

Private Sub Form1_Load oznacza, ze Timer 3 zaczyna prace kiedy ładuje się Form1, musisz to stworzyć jak tego nie masz.

Kolejna Komenda z Private Sub Timer3 oznacza Timera, numery są zależne od tego jaki dodasz sam u Ciebie