Praca w domu - Dodatkowa Praca - Zarabianie przez Internet. Dołącz do Największego w Polsce forum o tematyce Zarabiania przez Internet. Praca w domu stała się bardzo popularna.

Post: #1

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 ?

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ć ?

Post: #2

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

Post: #3

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