help required to use progress bar

[saimasattar]

hello

I m using progress bar in my vb.net application on loading records in datagrid

but problem arises that progress bar moves after loading the data grid

i want this to load with load time or before loading the grid
as progress bar completes it will show the records

plz reply soon

thanks in advance

[hspc]

How do you increment the progress bar? on what event?
Can you post the code?

[aniskhan]

Post

[saimasattar]

i used the code as

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If (Me.mkc_ProgressBar1.Value >= 0) Then
            Me.mkc_ProgressBar1.Value += 1
        Else
            Me.Timer1.Enabled = False
        End If
    End Sub

Private Sub btn_Show_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_Show.Click
        Me.mkc_ProgressBar1.Value = 0
        Me.Timer1.Interval = 1
        Me.Timer1.Enabled = True
        ShowSample()
End Sub

<Description("The value used to generate progress based on the maximum value."), Category("Custom")> _
		Public Property Value() As Integer
			Get
				Return val
			End Get

			Set(ByVal Value As Integer)
				Dim oldValue As Integer = val

				' Make sure that the value does not stray outside the valid range.
				If (Value < min) Then
					val = min
				ElseIf (Value > max) Then
					val = max
				Else
					val = Value
				End If

				' Invalidate only the changed area.
				Dim percent As Decimal

				Dim newValueRect As Rectangle = Me.ClientRectangle
				Dim oldValueRect As Rectangle = Me.ClientRectangle

				' Use a new value to calculate the rectangle for progress.
				percent = (val - min) / (max - min)
				newValueRect.Width = newValueRect.Width * percent

				' Use an old value to calculate the rectangle for progress.
				percent = (oldValue - min) / (max - min)
				oldValueRect.Width = oldValueRect.Width * percent

				Dim updateRect As Rectangle = New Rectangle

				' Find only the part of the screen that must be updated.
				If (newValueRect.Width > oldValueRect.Width) Then
					updateRect.X = oldValueRect.Size.Width
					updateRect.Width = newValueRect.Width - oldValueRect.Width
				Else
					updateRect.X = newValueRect.Size.Width
					updateRect.Width = oldValueRect.Width - newValueRect.Width
				End If

				updateRect.Height = Me.Height
				' Invalidate only the intersection region.
				Me.Invalidate(updateRect)
			End Set
		End Property		 'Value() As Integer

[HanneSThEGreaT]

saimasattar, please read this before posting again. Using proper [CODE] and [/CODE] tags, makes code much easier to read!