Private floodPos As Long

Private Sub Form_Load()
   
   'position the form 1/3 up the screen   
    Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 3
           
   'set the flood's initial attributes  
   'white text (trust me, I know it says backcolor !)   
    tbFlood.BackColor = &HFFFFFF
    tbFlood.DrawMode = 10
       
   'solid fill   
    tbFlood.FillStyle = 0
    tbFlood.AutoRedraw = True 'required to prevent flicker!
   
   'initialize the controls       
    Combo1.AddItem "Loading user preferences ... please wait."
    Combo1.AddItem "Loading ... please wait."
    optFloodColour(0).Value = True
    optTextPosition(0).Value = True
    Combo1.ListIndex = 0
    
    Command1.Caption = "BitBlit Demo"
    Command2.Caption = "Percent Only"
    Command3.Caption = "Text && Percent"
    Command4.Caption = "Positioned Text"
    Command5.Caption = "End"                

End Sub


Private Sub Command5_Click()

    Unload Me
    
End Sub


Private Sub Command1_Click()
  
    Label1.Caption = "PhotoShop Progress Panel inversion demo ..."
    FloodUpdatePercent 100, 48

End Sub


Private Sub Command2_Click()

    Dim cnt As Long
    Dim unit As Long
    Dim upperLimit As Long
    Dim progress As Long
   
   'The tbFloodUpdatePercent sub requires 3 pieces of information:
   '  - the upperlimit of the items to count to.
   '  - the total progress-to-date.
   '  - the increment unit used to update the progress.
  
   'There are several ways of doing this: you could
   '  - pass upperLimit and value, and store static progress in the sub;
   '  - pass upperLimit and progress, and perform the math in
   '    each routine calling the flood (as shown below); or
   '  - pass all three variables back and forth
  
   'The upperLimit is the number of things to count to.
   'For example, if you are counting a 1534-record
   'random access file, the code might be:
   '  upperLimit = LOF(#MyFile) / MyType
   
   'For demo purposes, a limit of 250 is used

   'The 'unit' is the counting increment - typically this
   'would be one (as in once each record), but can be
   'changed to reflect actions in chunks.
   
   ''progress' is the total accumulated thus far.      
    unit = 1
    upperLimit = 1000
    
    Label1.Caption = "Processing..."
    
    For cnt = 1 To upperLimit
    
      '(your code for some method goes here)

      'update the status display
       progress = progress + unit
       FloodUpdatePercent upperLimit, progress
       
    Next
    
    Label1.Caption = "Complete."

End Sub


Private Sub Command3_Click()
    
    Dim cnt As Long
    Dim unit As Long
    Dim upperLimit As Long
    Dim progress As Long

    unit = 1
    upperLimit = 1000
    
    Label1.Caption = "Processing..."
    
    For cnt = 1 To upperLimit
       
      '(your code for some method goes here)
      
      'update the status display
       progress = progress + unit
       FloodUpdateTextPC upperLimit, progress, (Combo1.Text)
       
    Next
    
    Label1.Caption = "Complete."
    
End Sub


Private Sub Command4_Click()

    Dim cnt As Long
    Dim unit As Long
    Dim upperLimit As Long
    Dim progress As Long

    unit = 1
    upperLimit = 1000
    
    Label1.Caption = "Processing..."
    
    For cnt = 1 To upperLimit
       
      '(your code for some method goes here)
      
      'update the status display   
       progress = progress + unit
       FloodUpdateText upperLimit, progress, (Combo1.Text)
       
    Next
    
    Label1.Caption = "Complete."

End Sub


Private Sub optFloodColour_Click(Index As Integer)
   
   'set the floodcolour by setting the ForeColor !!
    Select Case Index
      Case 0: tbFlood.ForeColor = &H0& 'black 
      Case 1: tbFlood.ForeColor = &H800000 'blue 
      Case 2: tbFlood.ForeColor = &H80& 'red 
      Case 3: tbFlood.ForeColor = &H808000 'teal
    End Select
    
End Sub


Private Sub optTextPosition_Click(Index As Integer)

    floodPos = Index
  
End Sub


Private Sub FloodUpdatePercent(upperLimit As Long, progress As Long)

    Dim msg As String
    
   'make sure that the flood display hasn't already hit 100%
    If progress <= upperLimit Then      

     'error trap in case the code attempts 
     'to set the scalewidth greater than
     'the max allowable 
      If progress> tbFlood.ScaleWidth Then
         progress = tbFlood.ScaleWidth
      End If
            
     'erase the flood
      tbFlood.Cls
                  
     'set the ScaleWidth equal to the upper limit of the items to count
      tbFlood.ScaleWidth = upperLimit
      
     'format the progress into a percentage string to display
      msg = Format$(CLng((progress / tbFlood.ScaleWidth) * 100)) + "%"
       
     'calculate the string's X & Y coordinates
     'in the PictureBox ... here, centered   
      tbFlood.CurrentX = (tbFlood.ScaleWidth - tbFlood.TextWidth(msg)) \ 2
      tbFlood.CurrentY = (tbFlood.ScaleHeight - tbFlood.TextHeight(msg)) \ 2
         
     'print the percentage string in the text colour
      tbFlood.Print msg
        
     'print the flood bar to the new progress length in the line colour
      tbFlood.Line (0, 0)-(progress, tbFlood.ScaleHeight), tbFlood.ForeColor, BF
       
     'allow the flood to complete drawing
      DoEvents
    
    End If

End Sub


Private Sub FloodUpdateTextPC(upperLimit As Long, progress As Long, msg As String)

    Dim r As Long
    Dim pc As String
    
    If progress <= upperLimit Then 

      If progress > tbFlood.ScaleWidth Then
         progress = tbFlood.ScaleWidth
      End If
           
      tbFlood.Cls
      tbFlood.ScaleWidth = upperLimit
          
     'format the progress into a percentage string to display
      pc = Format$(CLng((progress / tbFlood.ScaleWidth) * 100)) + "%"
           
     'calculate the string's X & Y coordinates
     'in the PictureBox ... here, left justified and offset slightly
      tbFlood.CurrentX = 2 
      tbFlood.CurrentY = (tbFlood.ScaleHeight - tbFlood.TextHeight(msg)) \ 2
           
     'print the percentage string in the text colour
      tbFlood.Print msg & " " & pc
          
     'print the flood bar to the new progress length in the line colour
      tbFlood.Line (0, 0)-(progress, tbFlood.ScaleHeight), tbFlood.ForeColor, BF
           
      DoEvents
    
    End If

End Sub

Private Sub FloodUpdateText(upperLimit As Long, progress As Long, msg As String)

    Dim r As Long
    
    If progress <= upperLimit Then

      If progress > tbFlood.ScaleWidth Then
         progress = tbFlood.ScaleWidth
      End If
           
      tbFlood.Cls
      tbFlood.ScaleWidth = upperLimit
          
     'calculate the string's X & Y coordinates
     'in the PictureBox based on the floodPos set
      Select Case floodPos
        Case 0  'left
                 tbFlood.CurrentX = 2
                 tbFlood.CurrentY = (tbFlood.ScaleHeight - tbFlood.TextHeight(msg)) \ 2
        
        Case 1  'centered
                 tbFlood.CurrentX = (tbFlood.ScaleWidth - tbFlood.TextWidth(msg)) \ 2
                 tbFlood.CurrentY = (tbFlood.ScaleHeight - tbFlood.TextHeight(msg)) \ 2
                  
        Case 2  'right
                 tbFlood.CurrentX = (tbFlood.ScaleWidth - tbFlood.TextWidth(msg)) - 3
                 tbFlood.CurrentY = (tbFlood.ScaleHeight - tbFlood.TextHeight(msg)) \ 2
      End Select
           
     'print the string in the
     'at the position set above
      tbFlood.Print msg
          
     'print the flood bar to the new
     'progress length in the line colour
      tbFlood.Line (0, 0)-(progress, tbFlood.ScaleHeight), tbFlood.ForeColor, BF
    
      DoEvents
    
    End If

End Sub