Scribd
Upload
71 views2 pages

Print Command

The document discusses using Visual Basic .NET to create a progress bar and multiple forms. It includes code snippets to add controls like timers, progress bars and link labels and transition between forms.

Uploaded by

Lavan Yasasmitha Somarathna
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
71 views2 pages

Print Command

The document discusses using Visual Basic .NET to create a progress bar and multiple forms. It includes code snippets to add controls like timers, progress bars and link labels and transition between forms.

Uploaded by

Lavan Yasasmitha Somarathna
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd

Print Command

Public Class Form1

Private Sub cmdRun_Click(ByVal sender


As [Link], ByVal e As
[Link]) Handles [Link]
Dim a As Integer
a = 1
While a < 10
a = a + 1
[Link]("Hellow
World")

End While

End Sub

End Class

Create a progress bar

Add second form

Public Class Form1

Private Sub Timer1_Tick(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]
If [Link] > 0 Then
[Link]()
[Link]()
[Link] = False
End If
End Sub

Private Sub Form1_Load(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]
[Link] = 1000
[Link] = 0
[Link] = 100
[Link] = 100
End Sub
End Class
ADD 2 timer controls and Form 02

Private Sub Form1_Load(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
[Link] = 200
End Sub

Private Sub Timer1_Tick(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
[Link] = [Link](246 * Rnd(), 235 * Rnd(),
214 * Rnd(), 212 * Rnd())
End Sub
Private Sub LinkLabel1_LinkClicked(ByVal sender As [Link],
ByVal e As [Link]) Handles
[Link]
[Link]()
[Link]()
End Sub

You might also like