How to Display Text on a Playing .AVI File

1. Open the project VB\Samples\MCI\Mcitest.mak.
2. Make the changes described in the following article in the Microsoft Knowledge Base:

   98769 Playing an .AVI File with the MCITEST Example

3. Select the Animate.frm form, and add a timer control.
4. Add the following code to the Timer1_Timer event procedure:

      Sub Timer1_Timer ()
         Dim MyStr As String
         MyStr = "Testing Testing" ''String you want to display
         picture1.CurrentX = 10
         picture1.CurrentY = 10
         picture1.Print MyStr$
      End Sub

5. Modify the code in the AI_OPEN Click event procedure:
   
   Original code:

         ' Play the movie into the picture control.
         On Error GoTo MCI_ERROR
         mmcontrol1.Command = "Play"

   Change to:

         ' Play the movie into the picture control.
         On Error GoTo MCI_ERROR
         Timer1.Interval = 50 ''This number is the refresh rate
         mmcontrol1.Command = "Play"

6. Save the work, and run the application.

Step-by-Step Example with Picture Box and TextOut API Call

1. Open the project VB\Samples\MCI\Mcitest.mak.
2. Make the changes described in the following article in the Microsoft Knowledge Base:

   98769 Playing an .AVI File with the MCITEST Example

3. Select the Animate.frm form, and add a timer control.
4. Add the following code to the Timer1_Timer event procedure:

      Sub Timer1_Timer ()
         Dim RetVal As Integer ''The return value of TextOut - Ignored.
         Dim xPos As Integer, yPos As Integer
         Dim MyStr As String, MyLen As Integer
   
         xPos = 10 ''x coordinate where you want the text to display
         yPos = 10 ''y coordinate where you want the text to display
         MyStr = "Testing Testing" ''String you want to display
         MyLen = Len(MyStr) ''Length of string
   
         'Display the text on top of picture1 (location where AVI is playing)
         RetVal= TextOut(Picture1.hDC, xPos, yPos, MyStr, MyLen)
      End Sub

5. Modify the code in the AI_OPEN Click event procedure:
   
   Original code:

         ' Play the movie into the picture control.
         On Error GoTo MCI_ERROR
         mmcontrol1.Command = "Play"

   Change to:

         ' Play the movie into the picture control.
         On Error GoTo MCI_ERROR
         Timer1.Interval = 50 ''This number is the refresh rate
         mmcontrol1.Command = "Play"

6. Add the following line of code to the (general) (declarations) section of Global.bas:

      ' Enter the following Declare statement as one, single line:
      Declare Function TextOut Lib "GDI" (ByVal hDC As Integer, ByVal X As
         Integer, ByVal Y As Integer, ByVal lpString As String, ByVal nCount
         As Integer) As Integer

7. Save the work, and run the application.