使用VB设计具有「动感」的命令图标栏
2018-06-17 17:16:20来源:未知 阅读 ()
使命令图标具有“动感”是依靠对命令图标的不同状态的图像切换来获得的。当鼠标按下时,图标显示为凹入状态的图像;当松开时,图标显示为凸出状态的图像。通过图像切换就使命令图标具有了“动感”,具体设计步骤如下:
1首先在窗体中创建一个图片框(PictureBox),将其Align属性置为1,使图片框固定在窗体上端,调节其宽度使其能安置图像或命令按钮。
2在图标框内创建若干个图像框(ImageControl),设置其Autosize=True,Picture属性在程序运行中设置。
3编写程序代码。这里假设某个命令图标凸出状态的图像文件名为"zrup.bmp",凹入状态的图像文件名为"zrdown.bmp"。
窗体装入时:Subform-load()
Imagel.picture=Loadpicture("zrup.bmp")'命令图标凸出
Endsub
鼠标按下时:SubImagel-mousedown(ButtonAsIntegerShiftAsInteger,XAssingle,YAssingle)
Imagel.picture=Loadpicture("zrdown.bmp")'命令图标如下:
Endsub
鼠标松开时:SubImagel-mouseup(ButtonAsInteger,ShiftAsInteger,XAssingle,YAssingle)Imagel.picture=Loadpicture("zrup.bmp")'命令图标凸出
Endsub
以上只能使命令图标具备凹下去的功能,但当在按鼠标按钮不放,并拖曳鼠标使光标移到外头,原来图标仍然处于凹下状态。要使其自动凸起,就要编写如下代码:
SubImagel-mouseup(ButtonAsInteger,ShiftAsInteger,XAssingle,YAssingle)
SelectCaseButton
Case1
IfX<=0orX>Imagel.WidthorY<=0orY>Imagel.HeightthenImagel.picture=Loadpicture("zrup.bmp")'凸出
else
Imagel.picture=Loadpicture("zrdown.bmp")'凹入
Endif
Endselect
Endsub
通过以上三步骤就可以建立具有“动感”的命令图标,若具有多个命令图标时,可通过创建图像控制数组来实现。BMP是常见的一种图像格式,也可以使用VB提供的丰富的不同状态的命令图标位图文件,它在VB的子目录\bitmaps\中。->
标签:
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有
- 在Windows98中使用VB5.0编程疑难一解 2018-06-17
- VB编程问与答 2018-06-17
- 怎样在VB中声明和使用API函数 2018-06-17
- 为常量定义合适的类型 2018-06-17
- 用VB设计VCD播放器的方法与技巧 2018-06-17
IDC资讯: 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营: 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程: Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术: Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧: 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作: FrontPages Dreamweaver Javascript css photoshop fireworks Flash