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

天云上人

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

　　实现效果及实现方法：
) e7 K9 h# M$ `* t! Z* q
　　在图像区域中按下鼠标左键，可拖动图像在某一有限区域中任意滚动。
3 b9 @# o/ u  z' v6 E4 M1 ?7 n
　　方法为 ：拖动时计算上次与本次的偏移，然后将图像显示的起始点进行变化并刷新图像区域。

　　实现部分：

　　第一步：响应WM_LBUTTONDOWN 消息，记录按下开始拖动的起始位置。
/ ^4 ?( y: G& a+ t  K, ^  D
　　void CWingImgDlg::OnLButtonDown(UINT nFlags, CPoint point)
  t+ M% j, o7 ?% y0 Z* p, Y& W% d/ h4 l& P1 `
　　{

0 O  C' b% L0 ?# Z9 ^　　　// TODO: Add your message handler code here and/or call default

　　　m_lPicOldLeft = point.x;

　　　m_lPicOldTop = point.y;
# h4 e6 ~4 H( }9 q( ~' K
　　　CDialog::OnLButtonDown(nFlags, point);

　　}
* r/ x8 s( Y5 }" S) u8 Z) t
　　第二步：响应WM_MOUSEMOVE 消息，实现滚动。

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

　　{

2 z4 v, p' t& w　　　// TODO: Add your message handler code here and/or call default
/ \/ g7 b$ V& ^# U, A4 j
# s* N9 Z, x$ n0 o: Z# b- ?　　　file://如果鼠标按下

8 _, u0 D: y+ n0 H" k　　　if( (nFlags & MK_LBUTTON) == MK_LBUTTON )
* n# f- t* F" t
　　　{

　　　　m_lPicNewLeft = point.x;
3 E, b1 N7 i  z' a
7 j9 o! U3 p9 A% \& q9 F　　　　m_lPicNewTop = point.y;

　　　　DWORD dwLRShift = m_lPicNewLeft - m_lPicOldLeft;
, j; h- ]3 Z& P" A- {/ S
8 v$ [) m3 _) b+ @, ~4 C/ W　　　　DWORD dwTBShift = m_lPicNewTop - m_lPicOldTop;

2 a+ S) B) \) E# x4 u8 V　　　　file://改变图像显示的起始点
0 E' l* W: R* u4 o9 w0 h
% ^: o: I! J0 K) X　　　　m_lPicLeft = m_lPicLeft - dwLRShift;
7 M% x% H8 ?& q% e" P' p9 }
　　　　m_lPicTop = m_lPicTop - dwTBShift;

1 h* T/ r5 `, O( D# H9 \　　　　file://判断边界的语句，省去。
; e6 f  G* e) G- g
　　　　m_lPicOldLeft = m_lPicNewLeft;

　　　　m_lPicOldTop = m_lPicNewTop;
0 z) X. \  I2 ~0 X, W/ Y; o" g
　　　　file://进行刷新的语句，见第四步。

6 ~- K  J! u5 [" c　　　}

9 X" y5 g1 s8 X8 I4 P1 Z　　　CDialog::OnMouseMove(nFlags, point);
+ ~* `  ]5 H& ]; s+ J9 g
* v; X4 Y! T# r: q1 U, R) a; r　　}

' D3 r' h$ i  k/ j0 Z　　第三步：在OnPaint中显示,显示的其他部分，如图像的得来等，省去。
2 f; a; E8 A. _$ E6 C
4 q$ o  G4 }* ~% L' i& K　　void CWingImgDlg::OnPaint()

　　　{

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

　　　　file://其他的显示内容，省去。
2 j' c( Z* Q0 I6 @$ O+ D3 l( `
1 n8 Q6 n* j% H　　　　if(m_pImgInfo != NULL)
# E+ s5 r) A; o" t
　　　　　dc.BitBlt(m_wShowAdjLeft,m_wShowAdjTop,m_lWidth,m_lHeight,&m_AdjDC,

7 L2 M/ ]( e" b, [9 L5 M　　　　　m_lPicLeft,m_lPicTop,SRCCOPY);

" V3 m7 d; J6 U, r  Z6 e　　　　　CDialog::OnPaint();
- j: }. O; C( w- I# c
3 U( W# k6 q- w$ J2 G　　　　}
　　第四步：刷新处理。

, |- p/ Y) N: \　　　最常想到的方法，当然是使用Invalidate(TRUE)；//刷新整个无效区

6 P% b* l7 P, J! Z; C- o$ b　　　UpdateWindow()；
( S. p  x5 z: ]4 F- l2 _
　　　这时，会刷新整个程序区域的无效区，闪烁非常严重，改正如下：
! ^. ]2 l- Y" i
　　　　InvalidateRect(&m_rtPic,TRUE); file://仅刷新图像显示区域
' O& K' Q. z) C' R$ w
　　　　UpdateWindow();

　　　此时，仅会刷新图像所在区域，闪烁有所缓解，再进一步，可使用

- E" r" E# k1 ]/ f　　　　InvalidateRect(&m_rtPic,TRUE); file://使用快速重画
, Q" P$ X3 B. R9 R' A" W3 k7 Z
. {8 {! d) D8 u$ ~- x　　　　ReDrawWindow(&m_rtPic,NULL,RDW_INTERNALPAINT| RDW_INVALIDATE | RDW_UPDATENOW | RDW_ERASE);

进行处理，此时闪烁更进一步减小，考虑到，其他部分可能影响刷新区域，干脆将OnPaint()直接使用在此处，即变为：
5 ?, G% X. K4 l3 i% P: n) {
　　OnPaint();
/ [8 W' W) ~( ]9 n
% `! O% B  N- A1 c. u6 t5 E　　但如果在OnPaint()中有大量的绘图语句，这种方法仍旧不可行，考虑到不能激发OnPaint（）这一因素及控制刷新范围，我采用了如下非标准的方法解决，代码如下：
/ t0 x5 u: T- f: }3 m
. E; h  Y- y# \! I6 i8 O  j　　CDC *pDC;
' v" M# ?: {. m
2 m% S* \/ [0 r. h2 h2 {& f4 H　　pDC = GetDC();

$ z* u" o) T  k3 `5 K　　if(m_pImgInfo != NULL)
5 X' h) H6 _- U/ N
　　　pDC->BitBlt(m_wShowLeft,m_wShowTop,m_lWidth,m_lHeight,&m_AdjDC,m_lPicLeft,m_lPicTop,SRCCOPY);

+ A$ O4 a4 J5 l) U, Y, A　　　ReleaseDC(pDC);

　　这种方法很好地解决了刷新闪烁的问题，图像拖动时很平稳且无闪烁。

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