要用到这么个程序,在网上找了半天未果,于是动手编了一个,效果不错,有空再把缩放添加进去。编制环境:VB6 SP5、WINDOWS XP SP2
'本程序用以显示图片,并对图片进行漫游浏览
'本程序包含1窗体(form1、2图片框(picture1、picture2)、2滚动条(HScroll1、VScroll1)
'picture1用以显示图像,picture2用以存放图像,picture2不可见
'声明API之BitBlt,完成从picture2到picture1的图像复制
Private Declare Sub BitBlt Lib "gdi32" _
(ByVal hDestDC As Long, ByVal X As Long, _
ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, _
ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, _
ByVal dwRop As Long)
'声明变量储存窗体加载时picture1的宽和高
'在先浏览小图片,再浏览大图片时,如果无此变量,将出现问题,问题就是……
Pri