|
|
发表于 2005-10-26 18:56:00
|
显示全部楼层
Re:directx 文本输入问题
Sub FlipBlt(Optional hWnd As Long = 0) '//* 翻面操作过程
On Local Error GoTo errOutC
If hWnd = 0 Then hWnd = gL_mFromHwnd
'//* 等待前一次翻面操作完成. <<DirectDraw原理与API参考 P45页>>
dx.GetWindowRect hWnd, rBack '//* 这个是一组的 <1>
' Primary.Flip Nothing, DDFLIP_WAIT
'' Primary.Blt rBack, BackBuffer, rBack, DDBLT_WAIT '//* 这个是一组的 <2>
Primary.Blt rBack, BackBuffer, rBack, DDBLT_DONOTWAIT
' BackBuffer.BltFast 0, 0, BackBuffer, rBack, DDBLTFAST_SRCCOLORKEY Or DDBLTFAST_WAIT
' Primary.Flip Nothing, DDFLIP_WAIT
Exit Sub
errOutC:
' If Not (DD Is Nothing) Then
''' Call Err_Msg_Log.AT_Error_Run("无法对 Primary.Flip 过程 FlipBlt", Err.Number)
End Sub
|
|