如果你看腻了VB的中规中矩的按钮,有时想改变一下的话,本文或许对你有所启发。以下二例用Line方法结合其它手段,在窗体上绘制出别具一格的“按钮”,呵呵,还是有那么一点儿新意的(怎么象是吹牛?)。建议在不需要太多的按钮的窗体中使用。
例一:用Line方法制作初始时为平面、鼠标移到时突出的按钮,此类按钮其实更象是第一层菜单,可为之通过Form_MouseDown或者Form_MouseUp编写类似于Click的事件。当然了,用标签 线条或者 ImageBox来实现更简单些。
PrivateSubForm_Load()
Me.AutoRedraw=True
CurrentX=280:CurrentY=150
Me.Print"Exit"
Me.Caption="请将鼠标移近文字观察效果"
EndSub
PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1Then
IfX=900AndX=100AndY=500AndY=100...[ 查看全文 ]