VBNet - все что Вы хотели знать о VB, но не знали где найти!

Visual Basic, .NET, ASP, VBA, VBScript

	Библиотека кодов
	Дополнительные элементы >>> ProgressBar

	Пример, характеризующий работу элемента ProgressBar
	Расположите на форме элементы ProgressBar, Label и Timer Dim time1 As Integer Private Sub Form_Load() Timer1.Interval = 10 ProgressBar1.Min = 1 ProgressBar1.Max = 100 End Sub Private Sub Timer1_Timer() time1 = time1 + 1 If time1 < 101 Then ProgressBar1.Value = time1 Label1.Caption = time1 & " %" Else time1 = 0 Label1.Caption = "0 %" End If End Sub

VBNet online (всего: 52050)

Лучшие материалы

ActiveX контролы (112)

Примеры кода (546)

Статьи по VB (136)