首页 相关文章 制作VB另类按钮

制作VB另类按钮

如果你看腻了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...[ 查看全文 ]

2016-02-19 标签:

制作VB另类按钮的相关文章

手机页面
收藏网站 回到头部