Category : Databases and related files
Archive   : MF-DB102.ZIP
Filename : BCARDIND.FRM

VERSION 2.00
Begin Form IndexForm
BackColor = &H00C0C0C0&
Caption = "Indexing"
Height = 1950
Left = 2310
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1575
ScaleWidth = 5100
Top = 3840
Width = 5190
Begin TextBox pComplete
Height = 285
Left = 120
TabIndex = 2
Text = "Text1"
Top = 1200
Visible = 0 'False
Width = 1515
End
Begin Label lComplete
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "0"
Height = 255
Left = 780
TabIndex = 1
Top = 660
Width = 3735
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "Percent Complete"
Height = 255
Left = 1020
TabIndex = 0
Top = 240
Width = 2955
End
End
Option Explicit

' Reindex example
' note: junkI is used to pass the DB handle. Since
' VB doesn't support 'DialogBoxParam' style (to pass
' variables and such) we have to use a global to
' get the DB handle.
'
Sub Form_Load ()
Me.Show
Me.Refresh
junkI = mfReIndex(pComplete.hWnd, TaskHndl, junkI)
Unload Me
End Sub

' This demonstrates getting the percent complete
' text from MF.
Sub pComplete_Change ()

lComplete.Caption = pComplete.Text
junk = DoEvents()
End Sub