平滑滚屏
平滑滚屏
平滑滚屏又称平滑滚动，较常见于浏览器，是通过代码的修改改变图像的显示频率，使鼠标滚动屏幕的速度看上去更加细腻舒服，从而减少了网页上下大幅度晃动带来的视觉不适。
参考：
平滑滚动不能依靠控件移动实现，应采用复制图像的处理方法
1、创建内存画板
mDC = CreateCompatibleDC(GetDC(0))
mBitmap = CreateCompatibleBitmap(GetDC(0), Me.Width, Me.Height)
SelectObject mDC, mBitmap
SetBkMode mDC, TRANSPARENT
2、画板着底色
SetRect R, 0, 0, Me.Width , Me.Height
FillRect mDC,R,getsyscolorbrush(1)
3、计算显示的字幕长度
Private Function CalcLen(ByVal str As String) As Integer
Dim i As Integer, j As Integer, chars As String
j = 0
For i = 1 To Len(str)
chars = Mid(str, i, 1)
If Asc(chars) > 0 And Asc(chars) < 256 Then
j = j + 1
Else
j = j + 2
End If
Next i
CalcLen = j
End Function
Dim perlen As Long
perlen = MulDiv(nsize, GetDeviceCaps(GetDC(0), LOGPIXELSX), 72)
BMPLen = perlen * CalcLen(str) / 2
4、定时器移动
If CurrFrameTime - BottomFrameTime > IntervalStep2 Then
bx = bx - 1
If bx < -RectWidthOld2 Then
bx = Me.Left + Me.ScaleWidth
End If
BitBlt Me.hdc, bx, by, RectWidthOld2, RectHeight2, mDC, BottomLeft, BottomTop, SRCCOPY
BottomFrameTime = CurrFrameTime
End If
5、注意事项
对于变化的字幕，应该在每次把内存中的图片拷贝到显示区域前，先用FillRect对原内存图片进行清除，然后再实施拷贝，否则会造成显示区域混乱不堪。
字幕着色应先在内存区域中进行，可使用SetTextColor mDC, ForeColor完成，之后的textout输出就变成了指定颜色
创建字体的函数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, "宋体")，可以到网上去查，那里有详细信息
在对字幕加粗显示的时候，应注意对字幕长度的比例调整，公式为 现长度=原长度 * 现粗坳度 / 原粗坳度