Pytanie Visual Basic Problem z Update. Proszę o pomoc.

Witam mam problem od wczoraj główkuję jak to zrobić i nic ciągle mam jakieś błędy bardzo proszę o pomoc.

Chcę zrobić tak że jest h@ack i jak leci już progressbar postępu to mam zrobione że zatrzymuje się na 85% i włącza się to:

I teraz chcę żeby po kliknięciu w TAK przenosiło do linku PPA a po kliknięciu w NIE żeby wyłączyło cały h@ack.

Tak wygląda kod z timera:

Bardzo proszę o pomoc co dopisać żeby te guziki TAK i NIE działały tak jak to napisałem

Sorry pomyliłem się. Zrobiłem tak by wyskakiwała ten textbox po ukonczeniu 85% progressbara. Zaraz coś pokombinuję z tym TAK i NIE

Więc tak:

Przykładowy kod mój (wklej do Timera)

 

Całość ma wyglądać tak

Oczywiście zamiast progressbar dajesz twój progressbar

Powinno działać.

Ale ja mam już tą ramkę z klikami tak i nie tylko nie wiem jaki kod jest żeby one działały

if MsgBoxResult.Yes ThenSystem.Diagnostics.Process.Start("LINK")ElseMe.Close()Form1.Close()End if

Spróbuj tego

Select Case MessageBox.Show("asasasa", "asasdasd", MessageBoxButtons.YesNo, MessageBoxIcon.Error, MessageBoxDefaultButton.Button2)

Case DialogResult.Yes

MsgBox("tak asdasdas.")

Case DialogResult.No

MsgBox("nie asasdasd.")

End Select

Tak nie byłoby prościej? Jak nie to mnie poprawcie

if MsgBoxResult.Yes ThenSystem.Diagnostics.Process.Start("LINK")ElseMe.Close()Form1.Close()End if

Spróbuj tego

 

Dodałem to

if MsgBoxResult.Yes Then

System.Diagnostics.Process.Start("LINK")

Else

Me.Close()

bo nie mam form1 i form2 

tylko teraz wyskakuje błąd że mam zrobić End IF przed Timer.stop i przez to pasek nie leci do 80% tylko od razu po kliknięciu w button przenosi w link

Proszę bardzo, trochę zmodyfikowałem

 ProgressBar1.Increment(1)        If ProgressBar1.Value = 80 Then            Timer1.Stop()            Dim response As MsgBoxResult            response =            MessageBox.Show("There's an update available. Do you want to download it?", "Important Question", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)            If response = MsgBoxResult.Yes Then                Process.Start("http://www.google.pl/firefox")            ElseIf response = MsgBoxResult.No Then                Exit Sub            End If        End If        If ProgressBar1.Value = 15 Then            Label3.Text = "Checking for updates"        End If        If ProgressBar1.Value = 25 Then            Label3.Text = "Checking for updates"        End If        If ProgressBar1.Value = 35 Then            Label3.Text = "Checking for updates"        End If        If ProgressBar1.Value = 45 Then            Label3.Text = "Lack of updates"        End If        If ProgressBar1.Value = 55 Then            Label3.Text = "Lack of updates"        End If        If ProgressBar1.Value = 65 Then            Label3.Text = "Lack of updates"        End If        If ProgressBar1.Value = 75 Then            Label3.Text = "Lack of updates"        End If        If ProgressBar1.Value = 80 Then            Label3.Text = "ERROR"

Trochę zabawy było a tu patrz już mnie ktoś uprzedził. Ale gwarantuję, że ten będzie działać

Tam gdzie jest link od google wklejasz swój link do pobrania!

Proszę bardzo, trochę zmodyfikowałem

Trochę zabawy było a tu patrz już mnie ktoś uprzedził. Ale gwarantuję, że ten będzie działać

Tam gdzie jest link od google wklejasz swój link do pobrania!

Dzięki śliczne a do tego przycisku no masz to : ElseIf response = MsgBoxResult.No Then a 

A dasz radę dopisać do niego kod że jak klikne w NO to się cały h@ack wyłączy?

Dzięki śliczne a do tego przycisku no masz to : ElseIf response = MsgBoxResult.No Then a 

A dasz radę dopisać do niego kod że jak klikne w NO to się cały h@ack wyłączy?

Jasne Już chwila i napisane, zaraz dam edita z gotowym

Całość tego message ma wyglądać następująco:

Dim response As MsgBoxResult            response =            MessageBox.Show("There's an update available. Do you want to download it?", "Important Question", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)            If response = MsgBoxResult.Yes Then                Process.Start("http://www.google.pl/firefox")            ElseIf response = MsgBoxResult.No Then                Me.Dispose()            End If

Poprostu usuń " Exit Sub" i wpisz w to miejsce "Me.Dispose ()

Jasne Już chwila i napisane, zaraz dam edita z gotowym

 

 

Całość tego message ma wyglądać następująco:

Dim response As MsgBoxResult            response =            MessageBox.Show("There's an update available. Do you want to download it?", "Important Question", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)            If response = MsgBoxResult.Yes Then                Process.Start("http://www.google.pl/firefox")            ElseIf response = MsgBoxResult.No Then                Me.Dispose()            End If

Poprostu usuń " Exit Sub" i wpisz w to miejsce "Me.Dispose ()

Dzieki wszystko śmiga niech Ci Bóg wynagrodzi

Dzieki wszystko śmiga niech Ci Bóg wynagrodzi

Spoko nie ma za co