如何在视频显示窗口中叠加文字？？？？？？？？？

Question

Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" (ByVal nHeight As Long, ByVal nWidth As Long, ByVal nEscapement As Long, ByVal nOrientation As Long, ByVal fnWeight As Long, ByVal fdwItalic As Boolean, ByVal fdwUnderline As Boolean, ByVal fdwStrikeOut As Boolean, ByVal fdwCharSet As Long, ByVal fdwOutputPrecision As Long, ByVal fdwClipPrecision As Long, ByVal fdwQuality As Long, ByVal fdwPitchAndFamily As Long, ByVal lpszFace As String) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private Sub pic_Paint()
        TextOut pic.hdc, (pic.Width / Screen.TwipsPerPixelX) / 2, (pic.Height / Screen.TwipsPerPixelY) / 2, Message, Len(Message)End SubFunction CreateMyFont(nSize As Integer, nDegrees As Long) As Long
    CreateMyFont = CreateFont(-MulDiv(nSize, GetDeviceCaps(GetDC(0), LOGPIXELSY), 72), 0, nDegrees * 10, 0, FW_NORMAL, False, False, False, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, "Times New Roman")
End FunctionPrivate Sub Form_Load()
    dim ang
    angt=0
    DeleteObject SelectObject(pic.hdc, CreateMyFont(24, ang))End Sub

Answer 1

你是使用的什么来播放电影？是ActiveMoive Control 么？还是别的什么？
你能得到他的HDC么？hwnd?你看一下paint事件里，显示影像和字的顺序