程序里面使用了浮动按钮，可以使程序看起来更美观和更容易使用。实现的方法是首先建立四条line。和一个image的控件，在程序根目录下把图标先改成macos.ico或者把程序相应更改一下图标文件的名字。然后代码如下：
private sub form_load()
image1.picture = loadpicture(app.path & "\macos.ico")
'使line控件不可见
line1.visible = false
line2.visible = false
line3.visible = false
line4.visible = false
'调整line1控件在image1的左边,并调整大小
line1.x1 = image1.left - 1
line1.y1 = image1.top - 1
line1.x2 = line1.x1
line1.y2 = image1.top + image1.height + 1
'调整line2控件在image1的上面,并调整大小
line2.x1 = image1.left - 1
line2.y1 = image1.top - 1
line2.x2 = image1.top + image1.height + 1
line2.y2 = line1.y1
'调整line3控件在image1的右边,并调整大小
line3.x1 = line2.x2
line3.y1 = line2.y1
line3.x2 = line2.x2
line3.y2 = line1.y2
'调整line4控件在image1的下面,并调整大小
line4.x1 = line1.x1
line4.y1 = line1.y2
line4.x2 = line2.x2
line4.y2 = line1.y2
'按钮凸起效果
line1.bordercolor = qbcolor(15) '白色
line2.bordercolor = qbcolor(15) '白色
line3.bordercolor = qbcolor(0) '黑色
line4.bordercolor = qbcolor(0) '黑色
end sub
private sub form_mousemove(button as integer, shift as integer, x as single, y as single)
if line1.visible = true then
'防止无意义调用下列语句
line1.visible = false
line2.visible = false
line3.visible = false
line4.visible = false
image1.picture = loadpicture(app.path & "\macos.ico")
end if
end sub
private sub image1_mousedown(button as integer, shift as integer, x as single, y as single)
'左键
if button = 1 then
line1.bordercolor = qbcolor(0)
line2.bordercolor = qbcolor(0)
line3.bordercolor = qbcolor(15)
line4.bordercolor = qbcolor(15)
end if
msgbox "jason guo提醒你!要好好学习vb哦!!!"
end sub
private sub image1_mousemove(button as integer, shift as integer, x as single, y as single)
if line1.visible = false then
'防止无意义调用下面语句
line1.visible = true
line2.visible = true
line3.visible = true
line4.visible = true
image1.picture = loadpicture(app.path & "\macos.ico")
end if
end sub
private sub image1_mouseup(button as integer, shift as integer, x as single, y as single)
'右键
if button = 1 then
line1.bordercolor = qbcolor(15)
line2.bordercolor = qbcolor(15)
line3.bordercolor = qbcolor(0)
line4.bordercolor = qbcolor(0)
end if
end sub
