图像平滑滚动效果的VC实现

天云上人

前言：

　　在图像的编程中，经常会遇到这样一种情况，在有限的区域中显示了一幅大图，这时要浏览图像的各个部分，这就需要用到图像的滚动。关于它的实现，许多书都有提及，但其中的关键点和难点，即拖动中的刷新和闪烁问题，却讲述的不多，这也是我写本文的目的所在，下面我将详细分析实现方法。

2 o: y3 P( h; a0 ?5 C7 E　　实现效果及实现方法：

　　在图像区域中按下鼠标左键，可拖动图像在某一有限区域中任意滚动。
9 y7 s) V" u# L; d/ Y1 W) }
( P" ]- x6 O7 Y　　方法为 ：拖动时计算上次与本次的偏移，然后将图像显示的起始点进行变化并刷新图像区域。
! z9 N8 c# z) a  E! D5 l
　　实现部分：

* S0 N. L* P; d' e5 F+ i　　第一步：响应WM_LBUTTONDOWN 消息，记录按下开始拖动的起始位置。

　　void CWingImgDlg::OnLButtonDown(UINT nFlags, CPoint point)

* O( H  z/ S2 W　　{

/ R7 m; D6 W. E6 `　　　// TODO: Add your message handler code here and/or call default

　　　m_lPicOldLeft = point.x;

& d3 U9 _) @# {- g- o+ |　　　m_lPicOldTop = point.y;

　　　CDialog::OnLButtonDown(nFlags, point);

+ R7 ~  M9 j; T1 y! m　　}

　　第二步：响应WM_MOUSEMOVE 消息，实现滚动。
9 Y2 B: \4 Y9 Y
　　void CWingImgDlg::OnMouseMove(UINT nFlags, CPoint point)
6 J0 w& A  `# k+ `
% w% Z9 H$ _7 e0 B) |　　{
/ N, f- |, k" _4 u+ L! t7 u1 P' Y; J
4 }+ g+ G6 Y; u% x6 z! ]! d　　　// TODO: Add your message handler code here and/or call default
) P: |  U7 T) J& D0 W# i
　　　file://如果鼠标按下
: }! U9 g/ ]6 U0 m8 `+ m
/ T8 Q; V# f1 j　　　if( (nFlags & MK_LBUTTON) == MK_LBUTTON )
% Z0 F1 [# N3 a0 A
$ b/ m9 M5 x4 o- q　　　{

　　　　m_lPicNewLeft = point.x;
0 A+ c" f0 @+ }8 w6 j* I' X$ s
! k- |% ?; o/ G  N& ^5 P6 [　　　　m_lPicNewTop = point.y;

4 \5 }0 u5 s2 x) V　　　　DWORD dwLRShift = m_lPicNewLeft - m_lPicOldLeft;
0 F9 C& ^1 g7 ^' x9 ]
　　　　DWORD dwTBShift = m_lPicNewTop - m_lPicOldTop;

　　　　file://改变图像显示的起始点
( y3 j5 r+ |; @1 w, i! Q' Y
　　　　m_lPicLeft = m_lPicLeft - dwLRShift;
) h7 w5 @5 ]6 _" t  j. v) R+ [
　　　　m_lPicTop = m_lPicTop - dwTBShift;

　　　　file://判断边界的语句，省去。
) _" J, \, z7 Y- |; K$ [
　　　　m_lPicOldLeft = m_lPicNewLeft;
3 W1 u; c9 B( x/ |6 T6 G
　　　　m_lPicOldTop = m_lPicNewTop;
/ {  N; l4 I/ c; ]. S6 q
3 T* w8 O0 f# g& X2 I& w　　　　file://进行刷新的语句，见第四步。

　　　}
& Y, Z( [6 A' s. ~/ f
　　　CDialog::OnMouseMove(nFlags, point);

　　}

　　第三步：在OnPaint中显示,显示的其他部分，如图像的得来等，省去。
9 o$ C/ Y( j. ?% U0 Q# d
　　void CWingImgDlg::OnPaint()
+ V0 }4 G5 c& e
　　　{
* t3 x0 v; y; {7 H
) m( }5 e- Q  `) h0 U0 L( q　　　　CPaintDC dc(this); // device context for painting

　　　　file://其他的显示内容，省去。
3 C9 O+ u, o5 |. B2 W* O' l4 d
) Y. c3 k. {; Y3 j* A! I6 _$ v1 g　　　　if(m_pImgInfo != NULL)
2 x& l) X' }/ A% v' P1 j* b9 h
# {+ D( e; }1 e* B: P7 ^) d　　　　　dc.BitBlt(m_wShowAdjLeft,m_wShowAdjTop,m_lWidth,m_lHeight,&m_AdjDC,

　　　　　m_lPicLeft,m_lPicTop,SRCCOPY);

　　　　　CDialog::OnPaint();

1 Q# x4 D# c' D8 S+ m" k　　　　}
　　第四步：刷新处理。
4 v- o  |) l9 L, x
　　　最常想到的方法，当然是使用Invalidate(TRUE)；//刷新整个无效区
6 f% Z$ U6 h1 x- z( x4 e
  h' P6 G+ K' H3 P　　　UpdateWindow()；
2 S& j! H8 s( N+ K  h$ d
, F- L. k+ s/ G. N/ |( G　　　这时，会刷新整个程序区域的无效区，闪烁非常严重，改正如下：
6 t- _, T* t9 Y% Z
8 Z$ }: x, [" K　　　　InvalidateRect(&m_rtPic,TRUE); file://仅刷新图像显示区域

1 X! U( m; g: ?: x　　　　UpdateWindow();
( I# O2 u9 E# d* v7 A* l8 K  J
- |* L& y: z' z) {  N5 P, o　　　此时，仅会刷新图像所在区域，闪烁有所缓解，再进一步，可使用

　　　　InvalidateRect(&m_rtPic,TRUE); file://使用快速重画
& C5 s% e5 y+ w2 b$ T$ o: k* |- I
　　　　ReDrawWindow(&m_rtPic,NULL,RDW_INTERNALPAINT| RDW_INVALIDATE | RDW_UPDATENOW | RDW_ERASE);

+ [8 N2 l( r$ ?& a进行处理，此时闪烁更进一步减小，考虑到，其他部分可能影响刷新区域，干脆将OnPaint()直接使用在此处，即变为：
9 `. j/ `% Y2 L, J4 O& I
　　OnPaint();

　　但如果在OnPaint()中有大量的绘图语句，这种方法仍旧不可行，考虑到不能激发OnPaint（）这一因素及控制刷新范围，我采用了如下非标准的方法解决，代码如下：

+ ^- j$ D, g% O1 a0 A+ i6 V& V　　CDC *pDC;
& c  Q$ |) O& D7 [9 v5 R) ?
　　pDC = GetDC();

　　if(m_pImgInfo != NULL)
, ^' L; `4 v/ k
* s( e/ C% x) `# O4 U7 |　　　pDC->BitBlt(m_wShowLeft,m_wShowTop,m_lWidth,m_lHeight,&m_AdjDC,m_lPicLeft,m_lPicTop,SRCCOPY);

　　　ReleaseDC(pDC);

. j' c) j6 P" T) ?+ I" g" n2 c( Y　　这种方法很好地解决了刷新闪烁的问题，图像拖动时很平稳且无闪烁。

　　这是我在实践中遇到的一个问题，写出来，与大家共享。如果有问题，或者有更好的建议和做法，欢迎和我联系探讨，如需要整个程序的源文件，请Mail联系（DavidZheng@Acercm.com.cn）。