vb.net半透明按钮 vb如何设置透明窗体
在VB中,如何使按钮透明?
VB设计一个透明的命令按钮常用的有三种做法:
创新互联于2013年开始,先为枞阳等服务建站,枞阳等地企业,进行企业商务咨询服务。为枞阳企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
1、用标签Label来替代命令按钮来执行命令功能,把它设置为透明的即可,但这种方法的缺点是label是平面的;
2、用Image来替代命令按钮来执行命令功能,用它是非常灵活的,效果极好,最常用,因为它本身有个Backstyle属性,从而可以将它设置为透明的,另外做一个或者找一个漂亮的图片加在里边就行了,图片是什么效果的做出来的按钮就是什么效果的;
3、继承VB提供的按钮,然后自己再他的基础上给你编写Backstyle的属性,也就是做一个控件了,这个实用性就很低了,不过有时间可以试着做一下。
4、直接在工程部件选择Microsoft Forms 2.0 Object Library即可;
如何用VB实现半透明控件
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const WS_EX_LAYERED = H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = H2
Private Const LWA_COLORKEY = H1
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Sub SetFormTranslucency(hwnd As Long, crKey As Long, bAlpha As Byte, dwFlags As Long)'实现半透明窗体
Dim rtn As Long
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes hwnd, crKey, bAlpha, dwFlags
End Sub
Private Sub Form_Load()
Call SetFormTranslucency(Me.hwnd, 0, 200, 2) '窗体半透明,200为透明值
End Sub
可以实现窗体和窗体上的控件全都半透明,透明度可调
VB.NET的按钮怎么弄成透明的。
用背景图片替换试试,图片用PS设置成透明
不行的话
用其他控件
自有文本的
反正按钮一般就是点击事件
那你就添加点击事件就好了
在VB.NET中如何将窗体、按钮和标签的背景色设置为透明?
你可以这样的解决你的问题:
(我用的是vs。net2005)
button1.backcolor=transprent
这样你自己好好的试一试吧,我试了一下,感觉不错。
网站名称:vb.net半透明按钮 vb如何设置透明窗体
当前链接:http://pwwzsj.com/article/doshcoh.html