[TeaMeTzu]

Ehitan Visual Basicus programmi, mis avaks programme. Tegin sinna ProgressBar' i, aga sellega see probleem, et kui vajutan ühekorra nuppu "käivita" (et käivitaks valitud programmid), siis jookseb bar lõpuni. Kui vajutan teist korda, siis valitud programmid avanevad, aga ProgressBar ei ei tee midagi. Mida peaks kirjutama, et bar läheks minimumi ja siis uuest maximumi?

[Fukiku]

Alustuseks näita koodi, mis sul olemas on - üldiselt kristallkuuli pealt probleemide lahendamine tulu ei too.

[TeaMeTzu]

Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then
End If

End Sub

[alfreedo]

Enne progressbari aktiveerimist Exceli VBA-s: set progressbar=minimum või progressbar=minimum või progressbar=1 vms.
või siis proovi :
If ProgressBar1.Value = ProgressBar1.Maximum Then
ProgressBar1.Value = ProgressBar1.Minimum
End If

[TeaMeTzu]

Nupp selline, et kui vajutad nuppu tuleb mingi sõna TexTBox' ile, kui vajutan uuesti, siis uus sõne jne jen. Hetkel YouTubes sain sellise koodi:

Dim key As Integer
key = Int(Rnd() * 10)
Select Case key
Case 0
TextBox1.Text = "text1"
Case 1
TextBox1.Text = "text2
Case 2
TextBox1.Text = "text3"
Case 3
TextBox1.Text = "text4"

See muidu töötab, aga uus sõna tuleb iga mitme vajutuse järjel (peaks tulema igal vajutusel uus tekst).

[alfreedo]

Proovi.

[TeaMeTzu]