閺€鎯版 (0) +1 鐠э拷 (0) +1 闊拷 (0) +1

正在阅读：用Visual Basic设计三维图形按钮用Visual Basic设计三维图形按钮

2004-02-14 09:34 出处：eNet学院作者：enet 责任编辑：zwg

另一种方法是： 2. Sub Image1_Click () 　　image1.Picture = LoadPicture("C:\......\3D－dwn.bmp") 　　[用户按钮执行程序] 　　...... 　　...... 　　image1.Picture = LoadPicture("C:\......\3D－up.bmp") 　　End Sub 　　如有必要，可参照上面程序再编制一个双击按钮事件过程。　　当鼠标移到按钮上面时，在格式窗口下端显示一行提示信息的设计方法是：在格式窗口最底部增加一个标签控件Label1，设置其Caption属性为空。编制按钮事件过程如下：　　Sub Image3_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single) 　　Label1.Caption = "<提示信息......>" 　　End Sub 　　别忘了当鼠标移出按钮时擦掉提示信息。编制格式事件过程：　　Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 　　Label1.Caption = "" 　　End sub 　　除非你把格式边界类型BorderStyle定义为0－None、3－Fixed double类型或者1－Fixed Single类型外加取消最大化按钮和最小化按钮(将格式的MaxButton、MinButton属性设置为False)。否则，当用户改变格式窗口大小时，你的提示信息有可能不在窗口的底部、或者短于窗口宽度甚至丢失，所以提示信息的位置和长度应随着窗口的变化而改变。具体编程如下：　　Sub Form_Resize () 　　label1.Top = scaleheight － label1.Height 　　label1.Width = scalewidth 　　End Sub 　　现在，我们已经编好了一个漂亮的三维图形动态按钮。你也试试看。