Progress Bar Event VB .NET Program



Description:

            GUI (Graphical User Interface) applications with progress bar events
Progressbar_Doevents.vb

Imports System.Data
Imports System.Data.SqlClient
Public Class Login
    Dim i As Integer
    Dim con As New SqlConnection
    Dim cmd As New SqlCommand
    Dim da As New SqlDataAdapter
    Dim ds As New DataSet

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ProgressBar1.Value = 0
        If i > 1 Then
            MsgBox("Please Contact Your Administrator", MsgBoxStyle.Information)
        Else
            con = New SqlConnection("Data Source=COMPUTER10; Initial Catalog=vb; Integrated security=TRUE")
            cmd = New SqlCommand("select * from login where userid='" & TextBox1.Text & "' and pwd='" & TextBox2.Text & "'", con)
            da = New SqlDataAdapter(cmd)
            da.Fill(ds)
            If ds.Tables(0).Rows.Count <> 0 Then
                Timer1.Enabled = True
            Else
                MsgBox("Please check the userID and Password")
                TextBox1.Clear()
                TextBox2.Clear()
                TextBox1.Focus()
            End If
            i = i + 1
        End If

    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        i = 0
        TextBox1.Focus()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Visible = True
        If ProgressBar1.Value < 90 Then
            ProgressBar1.Value += 5
        End If
    End Sub
End Class

OUTPUT

Contact:
Mr. Roshan P. Helonde
Mobile: +91-7276355704
WhatsApp: +91-7276355704
Email: roshanphelonde@rediffmail.com
Share:

Total Pageviews

CONTACT US

Prof. Roshan P. Helonde
Mobile: +917276355704
WhatsApp: +917276355704
Email: roshanphelonde@rediffmail.com

Enter Project Title

Popular Projects

All Archive

Contact Form

Name

Email *

Message *