[Pytanie] Microsoft Visual Basic 2010

[Krael:)]

Huhuh, jak ja tego dawno nie używałem!

 

1) Jest sposób taki aby zainstalować ten program na przykładowo dysk E zamiast głównego dysku C? Bo pamiętam, że zawsze potrzebowałem 1,23 GB na C a ja wolę wszystko na E.

2) Teraz przy tworzeniu programu poproszę kilka komend:

1 Komenda:

Jeżeli kliknę button ma się wyświetlić nowa strona z tego co wiem było jakoś tak: button1show.form ? kojarzy mi się, ale zapomniałem wszystko.

2 Komenda:

Licznik, licznik... wiele osób tworzy 'Fake-Cheaty' do gier i w niej znajduję się button i wtedy jak się kliknie ten button to ten paseczek (licznik) odlicza aż cały zapełni się na zielono. To ja bym chciał żeby podczas kliknięcia button, licznik odliczał do 14S a potem otworzyła się nowa strona (form)

 

Na razie tyle.

Bye!

[LordOfHearts]

1.Raczej nie

2.np. jeżeli chcemy otworzyć formę drugą

to piszemy

 Form2.ShowDialog()

 

3. Chodzi ci o ProgressBar?

nie wiem czy o to ci chodzi

Public Class Form1

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

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 ProgressBar1.Increment(1)
 If ProgressBar1.Value = 100 Then
	 Timer1.Stop()
	 Form2.ShowDialog()
 End If
End Sub
End Class

 

Tylko że Progresbar win7 jest trochę do dupy, nie dojdzie do końca i wyświetli ci.

Więc dodał bym 2 timera który po zatrzymaniu progressbara, czeka sekundę i odpala form2

np;

a = a + 1
 If a = 1 Then
	 Timer2.Stop()
	 Form2.Show()
 End If

Na samej górze, ustawiasz zmienną, "Dim a As String "

Cały kod powinien wyglądać tak;

Public Class Form1
Dim a As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 Timer1.Start()
 Timer2.Enabled = False
 a = 0
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 ProgressBar1.Increment(1)
 If ProgressBar1.Value = 100 Then
	 Timer1.Stop()
	 Timer2.Start()
 End If
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
 a = a + 1
 If a = 1 Then
	 Timer2.Stop()
	 Form2.ShowDialog()
 End If
End Sub
End Class

ps. Interval Timera 2 powinien równać się Interval = 1000 < czyli 1 sec

ustawiasz w properties

[Krael:)]

Super, dzięki. Potem to ogarnę i zobaczę czy coś mi nie będzie pasowało, temat może zostać zamknięty!

PS. Tak, chodzi mi o ProgressBar .