锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net按钮形状 vb按钮default

IT技术形状

如何创建特殊形状的VB按钮？耐心的大侠帮忙?。。?/h2>1，使用其它控件
2，用api切割需要更改的控件，就像做不规则的窗体一样
3，用image加上一些漂亮的ico图标代替command button
如何修改VB里面按钮的形状？有点复杂 不过我可以改成椭圆形或者圆形新建一个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
vb.net中 如何改变button控件的形状vb.net中控件都是矩形的，如果一定要看起来是其他形状的，只能用背景图片 ， 一般要三个背景图片，正常时候、鼠标移上时候、按下时候的 。分别在按钮的四个事件：MouseHover MouseLeave MouseDown MouseUp的时候更换成相应的背景图片
vb.net 平面按钮本来有个属性FlatStyle设置为Popup基本上能实现这个情况 ， 怎奈有个线框怎么也弄不掉 。FlatAppearance.BorderSize设置为0不起作用，只对Flat有用，所以用代码在Flat和Popup两种风格之间切换 。
'在鼠标进入时设置为浮雕风格
Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
Button1.FlatStyle = FlatStyle.Popup
End Sub
'离开时设置为平面风格，这样像标签一样只剩下文字，当然要FlatAppearance.BorderSize设置为0
【vb.net按钮形状 vb按钮default】Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
Button1.FlatStyle = FlatStyle.Flat
End Sub
'另外把UseVisualStyleBackColor 设置为 False也会好看一点 。
vb.net怎么样美化按钮button 都是可以放图片作为底图的字体颜色也可以更改的或者你知道画图的话 也可以把按钮变成其他形状
关于vb.net按钮形状和vb按钮default的介绍到此就结束了 ， 不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：sqlserver中vdi，SQLSERVER游标循环

    下一篇：引入js文件的作用，js引入js文件