用VB 4.0制作软件封面 李磊 1997-01-01 　　巧用ＶＢ　４．０和Ｗｉｎｄｏｗｓ　ＡＰＩ函数可以为您的应用程序设计一个像ＷＯＲＤ、ＥＸＣＥＬ启动封面那样的标准软件封面，具体步骤如下： #2　　１．建立窗体和控件　 　　进入ＶＢ　４．０编辑器，打开你应用程序所在的项目，新建一窗体（Ｆｏｒｍ），选取其属性，将ＢｏｒｄｅｒＳｔｙｌｅ改为“０－ＮＯＮＥ”，将Ｎａｍｅ改为“Ｃｏｖｅｒ”，然后调整窗体大小。选取Ｔｏｏｌｓ菜单中的“Ｃｕｓｔｏｍ　Ｃｏｎｔｒｏｌｓ”，为控制工具箱添加一个Ｓｈｅｒｉｄａｎ　３Ｄ　Ｃｏｎｔｒｏｌｓ工具，在窗体上添置一个“ＳＳＰａｎｅｌ”控件（这可使你的封面图片具有立体感），使其大小恰好覆盖窗体，再在“ＳＳＰａｎｅｌ”上放置一个“Ｉｍａｇｅ”控制，并通过它的“Ｐｉｃｔｕｒｅ”属性，选取已做好的封面图片文件。然后在窗体上放置两个时钟控件：Ｔｉｍｅｒ１和Ｔｉｍｅｒ２，并将“Ｉｎｔｅｒｖａｌ”分别设置为４０００和２０００。 #2　　２．函数说明　 　　本例中用到的Ｗｉｎｄｏｗｓ　ＡＰＩ函数应在应用程序的代码模块中加以说明。首先打开ＶＢ程序组中的ＡＰＩ　Ｖｉｅｗｅｒ，选ＡＰＩ　Ｔｙｐｅ为“ｄｅｃｌａｒｅｓ”，再选取“文件”菜单中的“Ｌｏａｄ　Ｔｅｘｔ　Ｆｉｌｅ”，查到函数Ｓｅｔｗｉｎｄｏｗｐｏｓ（），将其说明语句复制到说明模块中；然后选ＡＰＩ　Ｔｙｐｅ为“Ｃｏｎｓｔａｎｔｓ”，再“Ｌｏａｄ　Ｔｅｘｔ　Ｆｉｌｅ”，查到函数所用的两个常数“Ｓｗｐ－ｓｈｏｗｗｉｎｄｏｗ”和“Ｓｗｐ－ｎｏｓｉｚｅ”，将其说明语句也复制到说明模块中。也可在说明模块中直接写入以下语句： 　　Ｐｕｂｌｉｃ　Ｃｏｎｓｔ　ＳＷＰ＿ＮＯＳＩＺＥ＝＆Ｈ１ 　　Ｐｕｂｌｉｃ　Ｃｏｎｓｔ　ＳＷＰ＿ＳＨＯＷＷＩＮＤＯＷ＝＆Ｈ４０ 　　Ｄｅｃｌａｒｅ　Ｓｕｂ　ＳｅｔＷｉｎｄｏｗＰｏｓ　Ｌｉｂ　“Ｕｓｅｒ”（ＢｙＶａｌ　ｈＷｎｄ　Ａｓ　Ｉｎｔｅｇｅｒ，ＢｙＶａｌ　ｈＷｎｄＩｎｓｅｒｔＡｆｔｅｒ　Ａｓ　Ｉｎｔｅｇｅｒ，ＢｙＶａｌ　Ｘ　Ａｓ　Ｉｎｔｅｇｅｒ，ＢｙＶａｌ　Ｙ　Ａｓ　Ｉｎｔｅｇｅｒ，ＢｙＶａｌ　ｃｘ　Ａｓ　Ｉｎｔｅｇｅｒ，ＢｙＶａｌ　ｃｙ　Ａｓ　Ｉｎｔｅｇｅｒ，ＢｙＶａｌ　ｗＦｌａｇｓ　Ａｓ　Ｉｎｔｅｇｅｒ） #3　　注：“ｄｅｃｌａｒｅ　Ｓｕｂ…”部分要在一行之内输完。 #2　　３．编写程序 　　（１）在Ｆｏｒｍ－Ｌｏａｄ写入： 　　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ＿Ｌｏａｄ（） 　　ＳｅｔＷｉｎｄｏｗＰｏｓ　Ｃｏｖｅｒ．ｈＷｎｄ，－１，Ｃｏｖｅｒ．Ｌｅｆｔ／１５，＿ 　　Ｃｏｖｅｒ．Ｔｏｐ／１５，Ｃｏｖｅｒ．Ｗｉｄｔｈ／１５，＿ 　　Ｃｏｖｅｒ．Ｈｅｉｇｈｔ／１５，ＳＷＰ＿ＮＯＳＩＺＥ　ｏｒ　ＳＷＰ＿ＳＨＯＷＷＩＮＤＯＷ 　　′使封面窗体（Ｃｏｖｅｒ）始终在主界面（Ｚｊｍ）窗体的上面 　　Ｅｎｄ　Ｓｕｂ 　　（２）在Ｔｉｍｅｒ１－Ｔｉｍｅｒ中写入： 　　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｔｉｍｅｒ１＿Ｔｉｍｅｒ（） 　　Ｕｎｌｏａｄ　Ｍｅ　　　′封面显示４秒后卸载 　　Ｅｎｄ　Ｓｕｂ 　　（３）在Ｔｉｍｅｒ２－Ｔｉｍｅｒ中写入： 　　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｔｉｍｅｒ２＿Ｔｉｍｅｒ（） 　　Ｚｊｍ．Ｓｈｏｗ　　　′封面显示２秒后主界面装入 　　Ｅｎｄ　Ｓｕｂ 　　（４）在Ｉｍａｇｅ１－ｃｌｉｃｋ中写入： 　　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｉｍａｇｅ１＿Ｃｌｉｃｋ（） 　　Ｕｎｌｏａｄ　Ｍｅ 　　ｚｊｍ．Ｓｈｏｗ　　　′卸载封面，装入主界面 　　Ｅｎｄ　Ｓｕｂ #2　　４．程序运行　 　　通过主菜单“Ｔｏｏｌｓ”中的“Ｏｐｔｉｏｎ”选项将封面（Ｃｏｖｅｒ窗体）设置为起动窗体，按下工具栏中的ｒｕｎ按钮，运行程序。首先封面显示，２秒后程序主界面装入，封面保持在主界面的上面，再过２秒，封面卸载，进入主程序运行状态。在封面处于显示状态时，单击封面，也可将其卸载，装入程序主界面。窗体和主界面的显示时间可通过调节Ｔｉｍｅｒ１和Ｔｉｍｅｒ２的Ｉｎｔｅｒｖａｌ属性值来实现。