Помогни ни да направим Uroci.net по - богат! Добави урок

Как да си направим добър progress bar със Visual Basic 2010 Express

hyperalex   трудност:    видян: 12438

Така нека първо да отворим Visual Basic 2010 Express Edition.

 

 1. Правим Windows Form Appication

 

 2. Избирате име на апликацията

 

 3. Прекръстваме Form1 на вашето желано име 

 

 4. Правим два бутона единият да е Start а другия Reset

 

 5. Правим два Label-а единият със ваш собствен тест а другия със текст 0%

 

 6. Правим един ProgressBar

 

 7. Правим един таймер

 

Дотук се получава нещо такова:

 


 

7. Така,въвеждаме следният код "Timer1.Start" [без кавичките] във бутонът Start

 

8. Във timer-ът пишем:

 

Progressbar1.Increment(1)

If progressbar1.Value = 100 Then

Label1 = "Hello"

End If

Label2 = ProgressBar1.Value & (" %")

 

 Обяснявам какво значи този код,кодът който написахме означава че таймера активира progress bar-а и когато progress bar-а достигне до 100 тогава той ще смени текстът Visual basic със hello.След това този label ще следи progress bar-а и ще го отбелязва във проценти.

 

 9. Сега във бутонът reset пишем:

 

Timer1.Stop()

ProgressBar1.Value = 0

Label1.Text = "Visual Basic"

Label2.Text = "0 %"

 

Обяснявам кода, той означава че спираме таймерът връщаме progressbar-а на 0,label1 се трансформира във  Visual Basic а label2 отива на 0 %.

 

10. Натискаме на десен бутон върху проекта ни и натискаме Build за да построим програмата [превърнем във .exe]

 

11. Правим и Debug за да я тестваме и се кефим на progressbar-а.



Коментари (5)

bmw530 на 29.01 2012 в 15:22ч.
Направих всичко но нещо тук спира програмата:

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

Label1 = "Hello"

End If

Label2 = ProgressBar1.Value & (" %")
End Sub


дава подчертано на "Hello"
и на ProgressBar1.Value & (" %")

2 errors

Error 1 Value of type 'String' cannot be converted to 'System.Windows.Forms.Label'.
Error 2 Value of type 'String' cannot be converted to 'System.Windows.Forms.Label'.
martatabg на 02.03 2012 в 17:42ч.
липсва стринга на Label1 т.е. трябва да е: Label1.TEXT = "Hello"

както и на Lable2.TEXT = ProgressBar.Value & ("%")
PowerOfWill на 21.06 2012 в 20:30ч.
От къде да направия този Windows Form Appication (think)...мерси предварително
RobotaT на 02.07 2012 в 00:08ч.
If ProgressBar1.Value = 100 Then

Label1 = "Hello"

End If

Label2 = ProgressBar1.Value & (" %")
End Sub

------- Кодът е грешен! -----
Обяснявам:
За да проработи "Label2 = ProgressBar1.Value & (" % ")", трябва да е във If операторът. Т.е кодът е така:

If ProgressBar1.Value = 100 Then

Label1 = "Hello"
Label2 = ProgressBar1.Value & (" %")

End If
End Sub
murkito на 19.01 2013 в 19:36ч.
по редактирах го малко и стана има грешки в кодовете.

Регистрирайте се, за да добавите коментар


Калдейта ЕООД - © 2003-2010. Всички права запазени.
Препоръчваме: IT Новини