开发学院软件开发VB 使用VB设计具有「动感」的命令图标栏 阅读

使用VB设计具有「动感」的命令图标栏

 2006-02-27 21:08:38 来源:WEB开发网   
核心提示:我们在使用Word、Excel等Windows应用程序时,经常会见到在程序界面顶端有一行“立体式”图标按钮,使用VB设计具有「动感」的命令图标栏,当用鼠标按下某一个图标按钮时,程序就执行相应的操作,BMP是常见的一种图像格式,也可以使用VB提供的丰富的不同状态的命令图标位图文件,这一行“立体式”图标按钮通常就称作命令图
我们在使用Word、Excel等Windows应用程序时,经常会见到在程序界面顶端有一行“立体式”图标按钮。当用鼠标按下某一个图标按钮时,程序就执行相应的操作。这一行“立体式”图标按钮通常就称作命令图标栏或工具条。命令图标栏一般提供一些最常用的命令,供用户快速地取用,并且它设计时采用了“立体式”按钮,操作时会产生凹下去和凸出来的“动感”,笔者这里就谈谈如何用VB来建立具有“动感”的命令图标栏。
使命令图标具有“动感”是依靠对命令图标的不同状态的图像切换来获得的。当鼠标按下时,图标显示为凹入状态的图像;当松开时,图标显示为凸出状态的图像。通过图像切换就使命令图标具有了“动感”,具体设计步骤如下:
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\中。->

Tags:使用 VB 设计

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
更多精彩
    赞助商链接

    热点阅读
      焦点图片
        最新推荐
          精彩阅读