词条 | 平滑滚屏 |
释义 | 平滑滚屏又称平滑滚动,较常见于浏览器,是通过代码的修改改变图像的显示频率,使鼠标滚动屏幕的速度看上去更加细腻舒服,从而减少了网页上下大幅度晃动带来的视觉不适。 参考: 平滑滚动不能依靠控件移动实现,应采用复制图像的处理方法 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, "宋体"),可以到网上去查,那里有详细信息 在对字幕加粗显示的时候,应注意对字幕长度的比例调整,公式为 现长度=原长度 * 现粗坳度 / 原粗坳度 |
随便看 |
百科全书收录4421916条中文百科知识,基本涵盖了大多数领域的百科知识,是一部内容开放、自由的电子版百科全书。