从品牌网站建设到网络营销策划,从策略到执行的一站式服务
button 都是可以放图片作为底图的 字体颜色也可以更改的或者你知道画图的话 也可以把按钮变成其他形状
创新互联建站主要从事网站制作、网站设计、网页设计、企业做网站、公司建网站等业务。立足成都服务大洼,十余年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:13518219792
有两种
button的MouseEnter,MouseDown,MouseLeava的事件上写相当的代码(Button.BackColor=Color.Red)
自己做一个UserControl(用户控件)
vb.net中控件都是矩形的,如果一定要看起来是其他形状的,只能用背景图片,一般要三个背景图片,正常时候、鼠标移上时候、按下时候的。分别在按钮的四个事件:MouseHover MouseLeave MouseDown MouseUp的时候更换成相应的背景图片
有点复杂 不过我可以改成椭圆形或者圆形新建一个command1 '函数声明 设置椭圆形窗体
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, _
ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, _
ByVal hRgn As Long, ByVal bRedraw As Long) As LongPrivate Sub Form_Load()
Dim a, b As Long
Dim w, h As Long
h = Command1.Height / 15 '圆高直径=Command1.Height
w = Command1.Width / 15 '圆宽直径 = h
a = CreateEllipticRgn(0, 0, w, h)
b = SetWindowRgn(Command1.hWnd, a, True) '把Command1设置成圆形
End Sub
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图