Witaj gościu! Zaloguj się lub Zarejestruj aby móc korzystać ze wszystkich funkcjonalności jakie oferuje to forum! Rozpocznij zarabianie przez internet, poznaj korzysci pracy w domu! Rejestracja i korzystanie z forum jest całkowicie darmowe!
Praca w domu - Dodatkowa Praca - Zarabianie przez Internet
Problem z Keyem - Wersja do druku

+- Praca w domu - Dodatkowa Praca - Zarabianie przez Internet (https://zarabiam.com)
+-- Dział: Off-Topic (/Forum-Off-Topic-9)
+--- Dział: Programowanie (/Forum-Programowanie-364)
+--- Wątek: Problem z Keyem (/Temat-Problem-z-Keyem-91321)

Problem z Keyem - Mklip - 19-05-2014 14:08

Witam.
Zrobiłem prostego keygena w Visual Basic. Dwa buttony, progress bar, text box. Jeden button to generate , drugi to exit. I mam mały problem. Bo keygen działa bezproblemowo jednak po nasicnięciu buttonu exit ni zamyka się. Może mi ktos pomoc z tym ? Smile

Co mam zmienić aby button 2 ''exit'' zamykał program po kliknęciu na niego

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 = ProgressBar1.Maximum Then



Timer1.Stop()



Dim key As Integer



key = (Rnd() * 9)



Select Case key



Case 1



TextBox1.Text = "HK2H-KIW4-FL5L-SDJJ-LK6D"



Case 2



TextBox1.Text = "KD4G-FK35-DDSG-45Y5-GJ6D"



Case 3



TextBox1.Text = "ER78-4GFH-45H7-34Y7-3GG6"



Case 4



TextBox1.Text = "GFDG-5JJ9-YFH6-3SFU-45U7"



Case 5



TextBox1.Text = "ASFG-38F8-FGYU-DFY6-435Y"



Case 6



TextBox1.Text = "GYR6-SD46-FSJ4-HF6R-FH45"



Case 7



TextBox1.Text = "JFLS-S38F-FJDT-EKRI-DJ49"



Case 8



TextBox1.Text = "JK47-RJDU-FF6H-KDFU-FGKD"



Case 9



TextBox1.Text = "FJDK-57GJ-DKYU-DLGF-DKEU"



End Select



MsgBox("Done")



End If



End Sub



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



Timer1.Start()



ProgressBar1.Value = ProgressBar1.Minimum



End Sub



End Class



Acha i jeszcze jedno. Jak kompiluje to się ładnie zapisuje na dysku ale nazwa jest np Diablo a pod spodem WindowsFormApplication tak jakby plik miał dwie nazwy jak zrobić zeby tego windows form nie było widać ?

RE: Problem z Keyem - szybkikwit - 19-05-2014 16:59

kliknij dwa razy na tym buttonie i w jego kodzie dodaj linijkę: Form1.Close()

RE: Problem z Keyem - Mklip - 19-05-2014 20:42

Dzieki serdeczne reput poleciał Smile Ps. W tej drugiej kwestii także sobie poradziłem także temat do zamknięcia Smile