在VB中给窗体加墙纸

小欣
1997-01-01

　　首先，在主窗体上，建立一个ＰｉｃｔｕｒｅＢｏｘ对象，将该对象改名为ｐｉｃ。
　　源程序如下：（假设ｆｏｒｍ１为主窗体）
　　Ｄｅｃｌａｒｅ　Ｓｕｂ　ｂｉｔｂｌｔ　Ｌｉｂ　＂ＧＤＩ＂（ＢｙＶａｌ　ｈＤｅｓｔＤＣ　Ａｓ　Ｉｎｔｅｇｅｒ，ＢｙＶａｌ　ｘ　Ａｓ　Ｉｎｇｅｇｅｒ，ＢｙＶａｌ　ｙ　Ａｓ　Ｉｎｔｅｇｅｒ，ＢｙＶａｌ　ｎＷｉｄｔｈ　Ａｓ　Ｉｎｔｅｇｅｒ，ＢｙＶａｌ　ｎＨｅｉｇｈｔ　Ａｓ　Ｉｎｔｅｇｅｒ，ＢｙＶａｌ　ｈＳｒｃＤＣ　Ａｓ　Ｉｎｔｅｇｅｒ，ＢｙＶａｌ　ＸＳｒｃ　Ａｓ　Ｉｎｔｅｇｅｒ，ＢｙＶａｌ　ＹＳｒｃ　Ａｓ　Ｉｎｔｅｇｅｒ，ＢｙＶａｌ　ｄｗＲｏｐ　Ａｓ　Ｌｏｎｇ）　　　’这一句可以从ＶＢ程序组中的Ｗｉｎｄｏｗｓ　３．１　ＡＰＩ中拷贝得到
　　Ｓｕｂ　ｆｉｌｌｗｉｎｄｏｗ（）　　　’实现上述功能的子程序
　　ｘｘ＝Ｉｎｔ（ｆｏｒｍ１．Ｗｉｄｔｈ／ｐｉｃ．Ｗｉｄｔｈ＋．５）
　　ｙｙ＝Ｉｎｔ（ｆｏｒｍ１．Ｈｅｉｇｈｔ／ｐｉｃ．Ｈｅｉｇｈｔ＋．５）
　　ｆｏｒｍ１．ＡｕｔｏＲｅｄｒａｗ＝Ｔｒｕｅ
　　Ｆｏｒ　ｉ＝１　Ｔｏ　ｘｘ
　　Ｆｏｒ　ｊ＝１　Ｔｏ　ｙｙ
　　ｂｉｔｂｌｔ　ｆｏｒｍ１．ｈＤＣ，（ｉ－１）＊ｐｉｃ．Ｗｉｄｔｈ／１５，（ｊ－１）＊ｐｉｃ．Ｈｅｉｇｈｔ／１５，ｐｉｃ．Ｗｉｄｔｈ，ｐｉｃ．Ｈｅｉｇｈｔ，ｐｉｃ．ｈＤＣ，０，０，＆ＨＣＣ００２０
　　Ｎｅｘｔ　ｊ
　　Ｎｅｘｔ　ｉ
　　ｆｏｒｍ１．ＡｕｔｏＲｅｄｒａｗ＝Ｆａｌｓｅ　’这两句是将内存中的图像刷新成现在所显示的图像
　　ｆｏｒｍ１．Ｃｌｓ
　　Ｅｎｄ　Ｓｕｂ
　　Ｓｕｂ　Ｆｏｒｍ－Ｌｏａｄ（）
　　ｐｉｃ．ＢｏｒｄｅｒＳｔｙｌｅ＝０
　　ｐｉｃ．ＡｕｔｏＳｉｚｅ＝Ｔｒｕｅ
　　ｐｉｃ．ｖｉｓｉｂｌｅ＝ｆａｌｓｅ
　　ｐｉｃ．Ｐｉｃｔｕｒｅ＝ＬｏａｄＰｉｃｔｕｒｅ（＂ｃ：＼ｗｉｎｄｏｗｓ＼ｚｉｇｚａｇ．ｂｍｐ＂）
　　’这是Ｗｉｎｄｏｗｓ中原有的墙纸图案，你也可以将其改成其它文件名
　　Ｅｎｄ　Ｓｕｂ
　　Ｓｕｂ　Ｆｏｒｍ－Ａｃｔｉｖａｔｅ（）
　　ｆｉｌｌｗｉｎｄｏｗ
　　’设定在窗体被激活时执行了程序，保证在程序一执行，就可以显示背景
　　Ｅｎｄ　Ｓｕｂ
　　再把素材光盘上的一些精美墙纸图案利用上去，不费吹灰之力，一个令人炫目的背景就出来了，这样，你就轻松完成了完美的“装潢工作”了！

 