大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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