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

天云上人

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

　　实现效果及实现方法：
( J- u5 q8 H5 a; p8 I, o: D
　　在图像区域中按下鼠标左键，可拖动图像在某一有限区域中任意滚动。

" H9 f- ]2 K4 N: g: Z- ]　　方法为 ：拖动时计算上次与本次的偏移，然后将图像显示的起始点进行变化并刷新图像区域。

　　实现部分：
/ N/ H1 H5 B' p' K% J
　　第一步：响应WM_LBUTTONDOWN 消息，记录按下开始拖动的起始位置。

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

! g$ e& A3 k8 _4 Y( d* Z　　{
0 c4 D7 d$ y! U6 W
6 v. x  g0 }2 Q0 _* w　　　// TODO: Add your message handler code here and/or call default
4 c, a4 ]$ n1 n' M, c! C. I$ i
　　　m_lPicOldLeft = point.x;

　　　m_lPicOldTop = point.y;

　　　CDialog::OnLButtonDown(nFlags, point);

　　}
2 C$ O: W- F+ ~: m. q) t* l% `
　　第二步：响应WM_MOUSEMOVE 消息，实现滚动。

/ V7 n5 Z% Z3 v( W/ d/ C3 K　　void CWingImgDlg::OnMouseMove(UINT nFlags, CPoint point)
. [) L: R9 ?. i5 e. P
　　{
; I: c3 A* K; R+ F
　　　// TODO: Add your message handler code here and/or call default

- |7 O9 m$ \) h  \　　　file://如果鼠标按下

9 Q# Z# X) t4 q5 D/ v, r, U! t/ r; v　　　if( (nFlags & MK_LBUTTON) == MK_LBUTTON )
. s/ D5 G/ {9 G& T. z" J
: J2 h, }3 X3 B/ `8 X　　　{

- [7 B! [7 |  n4 B2 H* d8 T　　　　m_lPicNewLeft = point.x;

, C' X- c% C4 E5 q+ k　　　　m_lPicNewTop = point.y;

　　　　DWORD dwLRShift = m_lPicNewLeft - m_lPicOldLeft;
. d1 x6 q6 \3 H  S5 C1 \: F: _
* O" t" H5 J6 f! X* r9 }) G4 A# d　　　　DWORD dwTBShift = m_lPicNewTop - m_lPicOldTop;

. T' `- K1 E% [5 m/ e4 h, o7 d　　　　file://改变图像显示的起始点
8 O. t- ^1 E' O) k
4 i: j$ W* ?+ u& d/ l& _　　　　m_lPicLeft = m_lPicLeft - dwLRShift;

% `: u7 x9 x, n　　　　m_lPicTop = m_lPicTop - dwTBShift;
+ h$ s6 ]. T* F+ x5 u; A0 \
　　　　file://判断边界的语句，省去。

　　　　m_lPicOldLeft = m_lPicNewLeft;

　　　　m_lPicOldTop = m_lPicNewTop;
$ O7 M% {( D! d4 s
5 Z0 |0 B/ M; Q) ?  t　　　　file://进行刷新的语句，见第四步。

　　　}
% ]1 o2 z9 ]: d; y0 ^: u
% j8 q8 T+ Y1 n8 t　　　CDialog::OnMouseMove(nFlags, point);

- R$ v1 @* I% p. H$ r0 t' P9 {　　}

　　第三步：在OnPaint中显示,显示的其他部分，如图像的得来等，省去。
5 d6 v  d2 x% t" t- S+ q  Q
% [# [$ d% F6 O# m- B6 e　　void CWingImgDlg::OnPaint()

　　　{

0 \" q" o3 s8 m( o　　　　CPaintDC dc(this); // device context for painting

　　　　file://其他的显示内容，省去。

　　　　if(m_pImgInfo != NULL)
' E- \) b$ R  Y5 D8 t
8 N3 r3 ~2 y2 E　　　　　dc.BitBlt(m_wShowAdjLeft,m_wShowAdjTop,m_lWidth,m_lHeight,&m_AdjDC,
/ h# r" u; k* x. p; c
# x! x& l& ?1 [' B" N. Z　　　　　m_lPicLeft,m_lPicTop,SRCCOPY);
5 |8 [5 c' [) }) a; ?1 @3 K
& U1 x# a# r8 ~( g- G　　　　　CDialog::OnPaint();

* t/ [& A& l+ v　　　　}
　　第四步：刷新处理。

; z% N! e2 A! ~　　　最常想到的方法，当然是使用Invalidate(TRUE)；//刷新整个无效区
, O  ~, U4 c9 b
8 \6 s5 i" |* d+ I# n* |　　　UpdateWindow()；
0 w* [+ |0 h7 b4 z+ S( m) \
0 Y/ z9 A: R8 o1 M. c# Z, J　　　这时，会刷新整个程序区域的无效区，闪烁非常严重，改正如下：

　　　　InvalidateRect(&m_rtPic,TRUE); file://仅刷新图像显示区域
) w0 H; D# n: W) _% w5 L
　　　　UpdateWindow();

! G; D( I# ?% s+ I5 l　　　此时，仅会刷新图像所在区域，闪烁有所缓解，再进一步，可使用

  V5 M" x  ?8 _$ v6 [: X　　　　InvalidateRect(&m_rtPic,TRUE); file://使用快速重画

; B4 v7 c# F, d  l' j2 x　　　　ReDrawWindow(&m_rtPic,NULL,RDW_INTERNALPAINT| RDW_INVALIDATE | RDW_UPDATENOW | RDW_ERASE);

. i& `0 X: K% H- n7 k% z1 k0 @8 w进行处理，此时闪烁更进一步减小，考虑到，其他部分可能影响刷新区域，干脆将OnPaint()直接使用在此处，即变为：

　　OnPaint();
. I9 J4 M) x+ a  V/ x& x0 L
　　但如果在OnPaint()中有大量的绘图语句，这种方法仍旧不可行，考虑到不能激发OnPaint（）这一因素及控制刷新范围，我采用了如下非标准的方法解决，代码如下：
; y+ ^" q7 F, |. C
2 L+ _  Z) d: u4 a　　CDC *pDC;
; f! {! E5 ?3 I
　　pDC = GetDC();

　　if(m_pImgInfo != NULL)

# |- a$ [0 p) ~& }" w  _; _5 H　　　pDC->BitBlt(m_wShowLeft,m_wShowTop,m_lWidth,m_lHeight,&m_AdjDC,m_lPicLeft,m_lPicTop,SRCCOPY);
: y0 K7 q' P. {; q, }# S. F4 u% q
　　　ReleaseDC(pDC);
, t( {/ v0 l/ Y3 t/ ]. r: h
2 e" A  j% [# L) H* m$ Z2 J　　这种方法很好地解决了刷新闪烁的问题，图像拖动时很平稳且无闪烁。
6 g- u; K$ I- p: \
+ A$ T& L3 E2 J& l& I　　这是我在实践中遇到的一个问题，写出来，与大家共享。如果有问题，或者有更好的建议和做法，欢迎和我联系探讨，如需要整个程序的源文件，请Mail联系（DavidZheng@Acercm.com.cn）。