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

天云上人

前言：

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

　　实现效果及实现方法：

　　在图像区域中按下鼠标左键，可拖动图像在某一有限区域中任意滚动。

　　方法为 ：拖动时计算上次与本次的偏移，然后将图像显示的起始点进行变化并刷新图像区域。
  J! x% D1 B/ y/ v0 v9 ^
　　实现部分：
' `6 S- v( k+ {' p
6 g: o; ]7 G( O　　第一步：响应WM_LBUTTONDOWN 消息，记录按下开始拖动的起始位置。

9 ~# J0 D8 L5 J# _2 a+ b　　void CWingImgDlg::OnLButtonDown(UINT nFlags, CPoint point)

　　{

　　　// TODO: Add your message handler code here and/or call default
* C, }' ?% o$ L( C4 ?- r
8 X: D  G: e4 n4 k4 L+ z; l" |; B　　　m_lPicOldLeft = point.x;
# y, H  V3 R1 g$ J1 R+ z! ^
　　　m_lPicOldTop = point.y;

　　　CDialog::OnLButtonDown(nFlags, point);
( ], D7 ?5 v1 q- \, }: W, I
　　}
* G# x, W! D/ t  A: x
4 O6 k- u  j4 Y: r, J9 L　　第二步：响应WM_MOUSEMOVE 消息，实现滚动。

　　void CWingImgDlg::OnMouseMove(UINT nFlags, CPoint point)
, j! u; _; [5 U
　　{

$ o6 j( y7 j+ c5 _) J* `! }　　　// TODO: Add your message handler code here and/or call default

　　　file://如果鼠标按下
# E- V' N1 r0 G/ k4 ~) L
- y, s' s( _3 J　　　if( (nFlags & MK_LBUTTON) == MK_LBUTTON )
7 p1 c1 N0 o1 \/ Z( J# L3 y
$ g) c: S5 ?0 h　　　{

　　　　m_lPicNewLeft = point.x;
* M1 x5 t# m! K$ Y/ r) \4 l9 m& Q" z
　　　　m_lPicNewTop = point.y;

5 i# G+ {7 {  T  c8 s" S　　　　DWORD dwLRShift = m_lPicNewLeft - m_lPicOldLeft;
7 ~1 J$ J9 b6 G+ S1 `) g0 g
　　　　DWORD dwTBShift = m_lPicNewTop - m_lPicOldTop;

" @8 @; ^0 y2 Q# p1 e8 e: g　　　　file://改变图像显示的起始点

8 M) E$ k+ B" p! k2 v( l　　　　m_lPicLeft = m_lPicLeft - dwLRShift;
; G, k$ U! @& r1 `  d
7 D' V  g7 y, A. Z　　　　m_lPicTop = m_lPicTop - dwTBShift;
  z/ r! f* `- Y4 q: G8 M2 Z/ f) ?
　　　　file://判断边界的语句，省去。
* x2 P' Y! `; ?5 a( T- m
9 ^; u/ }/ b# Q* {$ q4 T　　　　m_lPicOldLeft = m_lPicNewLeft;

4 o% b/ E: \1 z+ j+ O* }　　　　m_lPicOldTop = m_lPicNewTop;
; N% q  |% N5 B% `. d) s3 P
1 z7 a" K) q; l* S. h& a　　　　file://进行刷新的语句，见第四步。
/ ]& y* T' Q! A- Y2 y8 Q
　　　}

. ^! V' F5 i6 Y5 F/ d5 @3 e　　　CDialog::OnMouseMove(nFlags, point);

3 t5 B3 _7 O( t% L  u　　}
2 P* ]$ W3 a- a+ p
. h  t# `$ F8 a+ ]" ]# Z3 Q　　第三步：在OnPaint中显示,显示的其他部分，如图像的得来等，省去。
0 Y% j3 Y  U2 `0 q9 M
　　void CWingImgDlg::OnPaint()

　　　{
) B2 f; ]- X' C% {- t5 M/ }
　　　　CPaintDC dc(this); // device context for painting

2 \+ h  L# D. {! |# Y# s　　　　file://其他的显示内容，省去。

　　　　if(m_pImgInfo != NULL)
% Y; ]# ~' r" y& k
1 ]7 h0 z7 J% A" L* M5 N2 L* d　　　　　dc.BitBlt(m_wShowAdjLeft,m_wShowAdjTop,m_lWidth,m_lHeight,&m_AdjDC,

/ w' v* p/ V- k* c- G0 M　　　　　m_lPicLeft,m_lPicTop,SRCCOPY);

　　　　　CDialog::OnPaint();
+ D5 X6 ?. X1 S8 T1 S0 d! ?: a
　　　　}
+ w5 b1 Z; I% T+ X9 W　　第四步：刷新处理。

　　　最常想到的方法，当然是使用Invalidate(TRUE)；//刷新整个无效区
  j7 b+ z6 ~5 t9 u9 J7 K3 {
% e: P3 k% ^" E& J; U　　　UpdateWindow()；
( u7 Y' o# ^5 c; [) y
　　　这时，会刷新整个程序区域的无效区，闪烁非常严重，改正如下：

　　　　InvalidateRect(&m_rtPic,TRUE); file://仅刷新图像显示区域

- v/ }5 W9 K9 q# B/ V　　　　UpdateWindow();

3 D/ ?: }2 S: ~$ g4 v　　　此时，仅会刷新图像所在区域，闪烁有所缓解，再进一步，可使用
+ f8 }7 O% f* S
　　　　InvalidateRect(&m_rtPic,TRUE); file://使用快速重画

　　　　ReDrawWindow(&m_rtPic,NULL,RDW_INTERNALPAINT| RDW_INVALIDATE | RDW_UPDATENOW | RDW_ERASE);

进行处理，此时闪烁更进一步减小，考虑到，其他部分可能影响刷新区域，干脆将OnPaint()直接使用在此处，即变为：

　　OnPaint();

( p$ ]  d( Q2 c/ e2 \　　但如果在OnPaint()中有大量的绘图语句，这种方法仍旧不可行，考虑到不能激发OnPaint（）这一因素及控制刷新范围，我采用了如下非标准的方法解决，代码如下：
. Z4 I( S' V# }( Q: N! P- N
　　CDC *pDC;
2 N1 B  h. J3 a2 k( y
( U3 H& j1 |: P+ m　　pDC = GetDC();
' Q. F3 q! C5 D4 d
　　if(m_pImgInfo != NULL)
7 X% }6 h% j- H6 a8 w
　　　pDC->BitBlt(m_wShowLeft,m_wShowTop,m_lWidth,m_lHeight,&m_AdjDC,m_lPicLeft,m_lPicTop,SRCCOPY);
. }# F$ c& L6 R/ u% J8 g
/ a% X- V  [/ S- B. X+ [　　　ReleaseDC(pDC);
3 f, }* K* k& }
　　这种方法很好地解决了刷新闪烁的问题，图像拖动时很平稳且无闪烁。

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