用VB 4.0实现多功能按钮

Author: 高道强 Date: 1997-01-01

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