用VB 4.0实现多功能按钮 高道强 1997-01-01 　　按钮是交互式界面设计中的一个重要部分。ＶＢ提供的Ｃｏｍｍａｎｄ　Ｂｕｔｔｏｎ按钮对象，虽然很有用，但是随着多媒体的不断发展，这种单调按钮已不能满足这一要求，为此笔者设计了一种多功能图形按钮，它具有以下特点：１）单击鼠标左键时图形按钮弹出，并且按钮界面能够动态地更换多种图形。２）单击鼠标右键时图形按钮能够闪烁不定，颜色交替变换。３）如果左右键同时击，１、２两种特点同时具有。 　　ＶＥＲＳＩＯＮ　４．００ 　　Ｂｅｇｉｎ　ＶＢ．Ｆｏｒｍ　Ｆｏｒｍ１ 　　Ｃａｐｔｉｏｎ＝　”ｂｕｔｔｏｎｓ” 　　Ｂｅｇｉｎ　ＶＢ．ＰｉｃｔｕｒｅＢｏｘ　Ｐｉｃｔｕｒｅ１ 　　ＢａｃｋＣｏｌｏｒ＝＆Ｈ００ＦＦＦＦＦＦ＆ 　　ＴａｂＩｎｄｅｘ＝１ 　　Ｅｎｄ 　　Ｂｅｇｉｎ　ＶＢ．ＰｉｃｔｕｒｅＢｏｘ　Ｐｉｃｔｕｒｅ２ 　　ＢａｃｋＣｏｌｏｒ＝＆Ｈ００ＦＦ００００＆ 　　ＴａｂＩｎｄｅｘ＝０ 　　Ｅｎｄ 　　Ｅｎｄ 　　Ｏｐｔｉｏｎ　Ｅｘｐｌｉｃｉｔ 　　Ｄｉｍ　ｐｉｃ－ｘ　Ａｓ　Ｉｎｔｅｇｅｒ 　　Ｄｉｍ　ｐｉｃ－ｙ　Ａｓ　Ｉｎｔｅｇｅｒ 　　Ｆｕｎｃｔｉｏｎ　ｄｅｌａｙ（ＢｙＶａｌ　ｔｉｍｅ　Ａｓ　Ｉｎｔｅｇｅｒ）Ｄｉｍ　ｊ　Ａｓ　Ｉｎｔｅｇｅｒ 　　ｊ＝０ 　　Ｄｏ　Ｗｈｉｌｅ　ｊ＜ｔｉｍｅ 　　ｊ＝ｊ＋１ 　　Ｌｏｏｐ 　　Ｅｎｄ　Ｆｕｎｃｔｉｏｎ 　　Ｓｕｂ　Ｆｏｒｍ－Ｌｏａｄ（） 　　ｐｉｃ－ｘ＝ｐｉｃｔｕｒｅ２．Ｌｅｆｔ 　　ｐｉｃ－ｙ＝Ｐｉｃｔｕｒｅ２．ＴＯＰ 　　Ｅｎｄ　Ｓｕｂ 　　Ｓｕｂ　Ｐｉｃｔｕｒｅ１－ＭｏｕｓｅＤｏｗｎ（Ｂｕｔｔｏｎ　Ａｓ　Ｉｎｔｅｇｅｒ，ｓｈｉｆｔ　Ａｓ　Ｉｎｔｅｇｅｒ 　　Ｘ　Ａｓ　Ｓｉｎｇｌｅ，Ｙ　Ａｓ　Ｓｉｎｇｌｅ 　　ｓｔａｔｉｃ　ｉ　ａｓ　ｉｎｔｅｇｅｒ 　　Ｉｆ　Ｂｕｔｔｏｎ＝１　Ｔｈｅｎ 　　Ｉｆ（Ｐｉｃ－ｘ＜＞Ｐｉｃｔｕｒｅ２．Ｌｅｆｔ）Ａｎｄ（Ｐｉｃ－ｙ＜＞Ｐｉｃｔｕｒｅ２．Ｔｏｐ） 　　Ｔｈｅｎ 　　Ｆｏｒｍ１．Ｐｉｃｔｕｒｅ２．Ｍｏｖｅ　Ｐｉｃｔｕｒｅ２．Ｌｅｆｔ＋２００，Ｐｉｃｔｕｒｅ２．Ｔｏｐ＋２００ 　　ｉ＝ｉ＋１ 　　Ｓｅｌｅｃｔ　Ｃａｓｅ　ｉ　Ｍｏｄ　４ 　　Ｃａｓｅ　０ 　　Ｐｉｃｔｕｒｅ１．Ｐｉｃｔｕｒｅ＝ 　　ＬｏａｄＰｉｃｔｕｒｅ（”ｃ：＼ｖｂ＼ｉｃｏｎｓ＼ｃｏｍｐｕｔｅｒ＼ｐｃ０４．ｉｃｏ”） 　　Ｃａｓｅ　１ 　　Ｐｉｃｔｕｒｅ１．Ｐｉｃｔｕｒｅ＝ 　　ＬｏａｄＰｉｃｔｕｒｅ（”ｃ：＼ｖｂ＼ｉｃｏｎｓ＼ｃｏｍｐｕｔｅｒ＼ｐｃ０１．ｉｃｏ”） 　　Ｃａｓｅ　２ 　　Ｐｉｃｔｕｒｅ１．Ｐｉｃｔｕｒｅ＝ 　　ＬｏａｄＰｉｃｔｕｒｅ（”ｃ：＼ｖｂ＼ｉｃｏｎｓ＼ｃｏｍｐｕｔｅｒ＼ｐｃ０２．ｉｃｏ”） 　　Ｃａｓｅ　３ 　　Ｐｉｃｔｕｒｅ１．Ｐｉｃｔｕｒｅ＝ 　　ＬｏａｄＰｉｃｔｕｒｅ（”ｃ：＼ｖｂ＼ｉｃｏｎｓ＼ｃｏｍｐｕｔｅｒ＼ｐｃ０３．ｃｏ”） 　　Ｅｎｄ　Ｓｅｌｅｃｔ 　　Ｅｌｓｅ 　　Ｆｏｒｍ１．Ｐｉｃｔｕｒｅ２．Ｍｏｖｅ　Ｐｉｃｔｕｒｅ２．Ｌｅｆｔ－２００，Ｐｉｃｔｕｒｅ２．Ｔｏｐ－２００ 　　Ｅｎｄ　Ｉｆ 　　Ｅｎｄ　Ｉｆ 　　Ｉｆ　Ｂｕｔｔｏｎ＝２　Ｔｈｅｎ 　　Ｄｏ　Ｗｈｉｌｅ　ＤｏＥｖｅｎｔｓ 　　Ｐｉｃｔｕｒｅ１．ＢａｃｋＣｏｌｏｒ＝＆ＨＦＦ００００ 　　ｄｅｌａｙ　（６０００） 　　Ｐｉｃｔｕｒｅ１．ＢａｃｋＣｏｌｏｒ＝＆ＨＦＦＦＦＦＦ 　　Ｌｏｏｐ 　　Ｅｎｄ　Ｉｆ 　　Ｅｎｄ　Ｓｕｂ 　　分析：本程序用了两个Ｐｉｃｔｕｒｅｂｏｘ遮叠，实现了虚拟式阴影效果，但只能在Ｐｉｃｔｕｒｅ１中移动Ｐｉｃｔｕｒｅ２，其它方法笔者都一一试过而无法通过；另外在实现闪烁时在循环语句中用了函数Ｄｏｅｖｅｎｔｓ使程序不至于死循环。