假如我们想要美化自己的程序用户界面 ,我们需要做到3点:
准备:一个cmd控件 名称:command1 一个timer控件 interval属性设置为6000(以毫秒计算的) Enabled=0
第一:对自得的设计方案进行推敲 对于我们所熟知的cmd控件来说 我没可以让它有动态浮动的形势 再cmd控件的style属性中设置=2 然后在相应的事件中写入一下代码:
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
timer1.enabled=ture
command1.picutre=loadpicture("相应图片路径1")
End Sub
Private Sub Command1_up(Button As Integer, Shift As Integer, X As Single, Y As Single)
command1.picture=loadpicture("相应图片路径2")
End Sub
Private Sub Command1_Click()
command1.picture=loadpicture("相应图片路径3")
End Sub
第二种方法:用shape控件建立热区域 配合image后者picturebox控件作福东按扭
shape控件: borderclolor=白色 (即;给人视觉效果将其透明掉)
image控件: strech属性= ture
picturebox: autosize= ture
把相应的shape控件置顶在image或者picture控件前 在相应的shape控件处罚的事件中写入和以上类
似的代码即可
本人qq:313185141 有什么为题可以qq联系 欢迎你和我交流一下
注释*: "相应图片路径"指的是当你按下或者滑过cmd控件事不同事件所载入按钮表面的图片不同,这样给你以立体效果