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

天云上人

前言：

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

　　实现效果及实现方法：
1 `) ^# V9 w' d  q% A5 I' i
9 C, w2 H1 [2 S) S  g1 Q) ?　　在图像区域中按下鼠标左键，可拖动图像在某一有限区域中任意滚动。

2 l+ e. @. d: V$ G9 D, j& V  E　　方法为 ：拖动时计算上次与本次的偏移，然后将图像显示的起始点进行变化并刷新图像区域。

# Z0 J! Q: r: C- Q7 c8 ~' L　　实现部分：
) ?( |7 ^3 F* |
" I6 h' h6 I3 q; e0 j) C  k: j　　第一步：响应WM_LBUTTONDOWN 消息，记录按下开始拖动的起始位置。

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

5 z8 F2 L6 f. F6 s; G　　{
- N$ h' n; U- X! W$ _) _
　　　// TODO: Add your message handler code here and/or call default
" o; f3 p8 C  e
5 K- [# N, x+ @8 _5 x( L1 S　　　m_lPicOldLeft = point.x;
" P' b6 `3 I* n. g3 L0 t2 c5 Q
& ^; W1 I' I6 T　　　m_lPicOldTop = point.y;

% A5 u  e+ d3 e' ~, P  m" B　　　CDialog::OnLButtonDown(nFlags, point);

* i5 \3 u" R8 K! s$ g　　}
1 T% A& {2 o0 m( L. _
# z6 X+ V  N1 g　　第二步：响应WM_MOUSEMOVE 消息，实现滚动。

% g4 t; J: ?( S　　void CWingImgDlg::OnMouseMove(UINT nFlags, CPoint point)
3 s! j  q3 w0 c7 c
% n: m8 s0 e3 A6 r8 C) E　　{
9 v% z1 u3 f; E, U
, v7 L0 y/ B. ?9 i  t　　　// TODO: Add your message handler code here and/or call default
; S. G) ~! V9 w) {
　　　file://如果鼠标按下
8 I! c9 m" d5 F7 U7 t, Q
　　　if( (nFlags & MK_LBUTTON) == MK_LBUTTON )
# s8 M" R2 J% s2 Q' n
, ?4 o9 |' o8 g0 ^6 z" A　　　{

  z* s* m8 K# o　　　　m_lPicNewLeft = point.x;
0 e9 h* w; O% j
: U  |. {3 Y1 b; ~6 y0 w9 r6 u) x7 m5 R　　　　m_lPicNewTop = point.y;
6 B. E+ Z2 a) w+ S, j! T0 o
1 M* Z9 w5 ?6 I; Z" ?* ]　　　　DWORD dwLRShift = m_lPicNewLeft - m_lPicOldLeft;
5 n; u( q# Q" D
　　　　DWORD dwTBShift = m_lPicNewTop - m_lPicOldTop;

1 B8 l1 Y9 f  o) f, X- B& d　　　　file://改变图像显示的起始点
: X4 I. i' W2 I2 A8 \7 J
　　　　m_lPicLeft = m_lPicLeft - dwLRShift;
8 b  ?' `5 o) X  l# Q( j, y# M
　　　　m_lPicTop = m_lPicTop - dwTBShift;

　　　　file://判断边界的语句，省去。
. O' @" K  y) A) c" c
　　　　m_lPicOldLeft = m_lPicNewLeft;

1 P/ W, C: L/ F1 |7 k* L　　　　m_lPicOldTop = m_lPicNewTop;

　　　　file://进行刷新的语句，见第四步。

　　　}

3 J, ]) ?" \0 Y% q& H- D　　　CDialog::OnMouseMove(nFlags, point);

　　}

, _- Y  x! f" ]* X. O) n6 r: R　　第三步：在OnPaint中显示,显示的其他部分，如图像的得来等，省去。

　　void CWingImgDlg::OnPaint()
1 W, N, y1 L( A. k, p0 x9 `/ z
& y5 B0 g5 z/ p! o. w/ e- S　　　{

　　　　CPaintDC dc(this); // device context for painting

2 Y) z' q. V- A  ^' S' v' m; p　　　　file://其他的显示内容，省去。

　　　　if(m_pImgInfo != NULL)

　　　　　dc.BitBlt(m_wShowAdjLeft,m_wShowAdjTop,m_lWidth,m_lHeight,&m_AdjDC,

　　　　　m_lPicLeft,m_lPicTop,SRCCOPY);

　　　　　CDialog::OnPaint();

　　　　}
　　第四步：刷新处理。
. K: @# f$ N5 J! x, H6 ]* k3 _
　　　最常想到的方法，当然是使用Invalidate(TRUE)；//刷新整个无效区

3 D6 t2 v: C7 g& M　　　UpdateWindow()；

" ~, ~% |6 ~* P! G! e1 W　　　这时，会刷新整个程序区域的无效区，闪烁非常严重，改正如下：

　　　　InvalidateRect(&m_rtPic,TRUE); file://仅刷新图像显示区域
  r; m6 |" U$ \7 G5 X
4 g0 ?& @1 h2 i+ l　　　　UpdateWindow();
. U0 f/ L9 [$ _9 S, h
　　　此时，仅会刷新图像所在区域，闪烁有所缓解，再进一步，可使用
3 E' ?7 b! j5 y' _9 ]
　　　　InvalidateRect(&m_rtPic,TRUE); file://使用快速重画

, ?9 v' [8 s9 O& `　　　　ReDrawWindow(&m_rtPic,NULL,RDW_INTERNALPAINT| RDW_INVALIDATE | RDW_UPDATENOW | RDW_ERASE);
( k; ]4 t9 Z. l2 T5 q
. c& Q; S) l4 b5 w- W9 q6 ?进行处理，此时闪烁更进一步减小，考虑到，其他部分可能影响刷新区域，干脆将OnPaint()直接使用在此处，即变为：

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

% ~( P: P4 Q7 E% I0 `- }* A2 z　　CDC *pDC;
' R' p8 u' X3 s6 R% Y( W
　　pDC = GetDC();

) K" o  F3 w  Z9 r3 e* A　　if(m_pImgInfo != NULL)

5 H$ a& p  r0 Q! A) R8 @! K　　　pDC->BitBlt(m_wShowLeft,m_wShowTop,m_lWidth,m_lHeight,&m_AdjDC,m_lPicLeft,m_lPicTop,SRCCOPY);

- J. \% R3 f9 q1 \; f8 H　　　ReleaseDC(pDC);
6 W4 u, t, @8 p. N* Z4 d7 y& {
6 \1 ~# g+ M' K　　这种方法很好地解决了刷新闪烁的问题，图像拖动时很平稳且无闪烁。

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