运用VB4浏览图片一法

Author: 张成 Date: 1997-01-01

　　用ＶＢ４编制有关图片显示方面的程序时，有时会遇到要打开的图象比所存放的图片框大的情况，将图片框中的ＡＵＴＯＤＲＡＷ设置为ＴＲＵＥ，可以使图片框与要打开的图象一样大，但在实际应用中，上述方法并不能看到整个图片。虽然用Ｗｉｎｄｏｗｓ的ＡＰＩ函数中的ＢＩＴＢＬＴ（）可以实现在图片框中移动图象，但这种方法太专业且使用复杂。其实可以运用ＶＢ４新增的绘图功能ＰＡＩＮＴ来解决这个问题。具体实现方法如下：
　　一、在窗体中设置横滚动条（ＨＳＣＲＯＬＬ１）和竖滚动条（ＶＳＣＲＯＬＬ１）用于图片的定位。
　　二、在横滚动条控件和竖滚动条中写入以下代码：
　　ｐｒｉｖａｔｅ　ｓｕｂ　ｈｓｃｒｏｌｌ１＿ｃｈａｎｇｅ（）　＂当改变ＨＳＣＲＯＬＬ１．ＶＡＬＵＥ时激发
　　　　ｐｉｃｔｕｒｅ１．ｐｉｃｔｕｒｅ＝ｌｏａｄｐｉｃｔｕｒｅ　＂清空图片框
　　　　ｐｉｃｔｕｒｅ１．ｐａｉｎｔｐｉｃｔｕｒｅ　ｌｏａｄｐｉｃｔｕｒｅ（＂ｐｉｃｔｕｒｅｎａｍｅ＂），－ｈｓｃｒｏｌｌ１．ｖａｌｕｅ，－ｖｓｃｒｏｌｌ１．ｖａｌｕｅ
　　　　ｅｎｄ　ｓｕｂ
　　ｐｒｉｖａｔｅ　ｓｕｂ　ｖｓｃｒｏｌｌ１－ｃｈａｎｇｅ（）　＂当激发ＶＳＣＲＯＬＬ１．ＶＡＬＵＥ时激发
　　　　ｐｉｃｔｕｒｅ１．ｐｉｃｔｕｒｅ＝ｌｏａｄｐｉｃｔｕｒｅ
　　　　ｐｉｃｔｕｒｅ１．ｐａｉｎｔｐｉｃｔｕｒｅ　ｌｏａｄｐｉｃｔｕｒｅ（＂ｐｉｃｔｕｒｅｎａｍｅ＂），－ｈｓｃｒｏｌｌ１．ｖａｌｕｅ，－ｖｓｃｒｏｌｌ１．ｖａｌｕｅ
　　ｅｎｄ　ｓｕｂ
　　程序中的ＰＩＣＴＵＲＥＮＡＭＥ表示要打开的图片文件名，之所以用－ＨＳＣＲＯＬＬ１．ＶＡＬＵＥ和－ＶＳＣＲＯＬＬ１．ＶＡＬＵＥ是因为图片框的标度在缺省设定时左上角定义为（０，０）。当ＨＳＣＲＯＬＬ１．ＶＡＬＵＥ＝１０，ＶＳＣＲＯＬＬ．ＶＡＬＵＥ＝５０则画图起点在（－１０，－５０）处，这两种情况下所显示的图象不一样，因此产生一种图片在移动的感觉，这样就解决了在小图片框看大图片的问题。