在VB中滚动比窗口大的图形

Author: 马文涛 Date: 1997-01-01

　　Ｖｉｓｕａｌ　Ｂａｓｉｃ窗体不能大于屏幕的大小。在程序设计中，我们有时需要显示比窗口还要大的图形，这就需要滚动图形来实现。滚动图形的方法很多，本文介绍一种简单的方法加以实现。
　　１．在Ｖｉｓｕａｌ　Ｂａｓｉｃ中建一个新项目，缺省建立Ｆｏｒｍ１窗体。
　　２．给Ｆｏｒｍ１窗体增加两个图片框，分别是Ｐｉｃｔｕｒｅｌ和Ｐｉｃｔｕｒｅ２。图片框的大小将在程序中自动设置。
　　３．给Ｆｏｒｍ１窗体增加一个水平滚动条ＨＳｃｒｏｌｌ１和垂直滚动条ＶＳｃｒｏｌｌ１。滚动条的大小将在程序中自动设置。
　　４．将以下代码加入到Ｆｏｒｍ＿Ｌｏａｄ事件。
　　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ＿Ｌｏａｄ（）
　　’设置窗体标题
　　ｆｏｒｍ１．Ｃａｐｔｉｏｎ＝”滚动图片框中的图形”
　　’窗体和图片框的ＳｃａｌｅＭｏｄｅ属性，以像素为单位
　　Ｆｏｒｍ１．ＳｃａｌｅＭｏｄｅ＝３
　　Ｐｉｃｔｕｒｅ１．ＳｃａｌｅＭｏｄｅ＝３
　　Ｐｉｃｔｕｒｅ２．ＳｃａｌｅＭｏｄｅ＝３
　　’使Ｐｉｃｔｕｒｅ２图片框能自动调节大小
　　Ｐｉｃｔｕｒｅ２．ＡｕｔｏＳｉｚｅ＝Ｔｒｕｅ
　　Ｐｉｃｔｕｒｅ２．Ｐｉｃｔｕｒｅ＝ＬｏａｄＰｉｃｔｕｒｅ（”ｆ：＼ｄｅｍｏ＼ｂｍｐ＼ｆｌｇ１０７．ｂｍｐ”）
　　Ｅｎｄ　Ｓｕｂ
　　５．将以下代码加入到Ｆｏｒｍ＿Ｒｅｓｉｚｅ事件。
　　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ＿Ｒｅｓｉｚｅ（）
　　’图片框的大小能适应窗体的大小
　　Ｉｆ　ＳｃａｌｅＷｉｄｔｈ＞ＶＳｃｒｏｌｌ１．Ｗｉｄｔｈ　Ａｎｄ　ＳｃａｌｅＨｅｉｇｈｔ＞ＨＳｃｒｏｌｌ１．Ｈｅｉｇｈｔ　Ｔｈｅｎ
　　Ｐｉｃｔｕｒｅ１．Ｍｏｖｅ　０，０　ＳｃａｌｅＷｉｄｔｈ－ＶＳｃｒｏｌｌ１．Ｗｉｄｔｈ，ＳｃａｌｅＨｅｉｇｈｔ－ＨＳｃｒｏｌｌ１．Ｈｅｉｇｈｔ
　　Ｅｎｄ　Ｉｆ
　　Ｐｉｃｔｕｒｅ２．Ｍｏｖｅ　０，０
　　’设置水平滚动条的位置
　　ＨＳｃｒｏｌｌ１．Ｔｏｐ＝Ｐｉｃｔｕｒｅ１．Ｈｅｉｇｈｔ
　　ＨＳｃｒｏｌｌ１．Ｌｅｆｔ＝０
　　ＨＳｃｒｏｌｌ１．Ｗｉｄｔｈ＝Ｐｉｃｔｕｒｅ１．Ｗｉｄｔｈ
　　’设置垂直滚动条的位置
　　ＶＳｃｒｏｌｌ１．Ｔｏｐ＝０
　　ＶＳｃｒｏｌｌ１．Ｌｅｆｔ＝Ｐｉｃｔｕｒｅ１．Ｗｉｄｔｈ
　　ＶＳｃｒｏｌｌ１．Ｈｅｉｇｈｔ＝Ｐｉｃｔｕｒｅ１．Ｈｅｉｇｈｔ＋ＨＳｃｒｏｌｌ１．Ｈｅｉｇｈｔ
　　’设置滚动条的Ｍａｘ和Ｍｉｎ属性
　　ＨＳｃｒｏｌｌ１．Ｍａｘ＝Ｐｉｃｔｕｒｅ２．Ｗｉｄｔｈ－Ｐｉｃｔｕｒｅ１．Ｗｉｄｔｈ
　　ＶＳｃｒｏｌｌ１．Ｍａｘ＝Ｐｉｃｔｕｒｅ２．Ｈｅｉｇｈｔ－Ｐｉｃｔｕｒｅ１．Ｈｅｉｇｈｔ
　　ＨＳｃｒｏｌｌ１．Ｍｉｎ＝ＨＳｃｒｏｌｌ１．Ｍａｘ／１００
　　ＶＳｃｒｏｌｌ１．Ｍｉｎ＝ＶＳｃｒｏｌｌ１．Ｍａｘ／１００
　　’若Ｐｉｃｔｕｒｅ１比Ｐｉｃｔｕｒｅ２加载的图形要大，则使滚动条无效
　　Ｉｆ　Ｐｉｃｔｕｒｅ１．Ｈｅｉｇｈｔ＜Ｐｉｃｔｕｒｅ２．Ｈｅｉｇｈｔ　Ｔｈｅｎ
　　ＶＳｃｒｏｌｌ１．Ｅｎａｂｌｅｄ＝－１
　　Ｅｌｓｅ
　　ＶＳｃｒｏｌｌ１．Ｅｎａｂｌｅｄ＝０
　　Ｅｎｄ　Ｉｆ
　　Ｉｆ　Ｐｉｃｔｕｒｅ１．Ｗｉｄｔｈ＜Ｐｉｃｔｕｒｅ２．Ｗｉｄｔｈ　Ｔｈｅｎ
　　ＨＳｃｒｏｌｌ１．Ｅｎａｂｌｅｄ＝－１
　　Ｅｌｓｅ
　　ＨＳｃｒｏｌｌ１．Ｅｎａｂｌｅｄ＝０
　　Ｅｎｄ　Ｉｆ
　　Ｅｎｄ　Ｓｕｂ