VB中如何把控件变成透明的?
VB中如何把控件设制成透明的?不影响背景颜色,主要是PICTUREBOX,LABLE和COMBOBOX三个控件。谁能帮我??请给详细答案...
VB中如何把控件设制成透明的?
不影响背景颜色,
主要是PICTUREBOX, LABLE和COMBOBOX三个控件。
谁能帮我??
请给详细答案 展开
不影响背景颜色,
主要是PICTUREBOX, LABLE和COMBOBOX三个控件。
谁能帮我??
请给详细答案 展开
展开全部
BackStyle 属性
返回或设置一个值,它指定 Label 控件或 Shape 控件的背景是透明的还是非透明的。
设置值
0 透明-在控件后的背景色和任何图片都是可见的。
1 (缺省值)非透明-用控件的 BackColor 属性设置值填充该控件,并隐藏该控件后面的所有颜色和图片。
在 Form 对象或 Picturebox 控件上使用背景色、或在图片上放置控件时,可以利用 BackStyle 属性来创建透明控件;如果想要突出控件,可以使用非透明控件。
回答完毕,期待被采纳。
返回或设置一个值,它指定 Label 控件或 Shape 控件的背景是透明的还是非透明的。
设置值
0 透明-在控件后的背景色和任何图片都是可见的。
1 (缺省值)非透明-用控件的 BackColor 属性设置值填充该控件,并隐藏该控件后面的所有颜色和图片。
在 Form 对象或 Picturebox 控件上使用背景色、或在图片上放置控件时,可以利用 BackStyle 属性来创建透明控件;如果想要突出控件,可以使用非透明控件。
回答完毕,期待被采纳。
展开全部
用这段代码:
Option Explicit
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, _
ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, _
ByVal hObject As Long) As Long
Private Sub Form_Load()
Dim Bitmap
Me.AutoRedraw = True
Bitmap = CreateCompatibleBitmap(Me.hdc, 0, 0)
SelectObject Me.hdc, Bitmap '设置窗体透明
End Sub
Private Sub Label1_DblClick()
End
End Sub
Option Explicit
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, _
ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, _
ByVal hObject As Long) As Long
Private Sub Form_Load()
Dim Bitmap
Me.AutoRedraw = True
Bitmap = CreateCompatibleBitmap(Me.hdc, 0, 0)
SelectObject Me.hdc, Bitmap '设置窗体透明
End Sub
Private Sub Label1_DblClick()
End
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
点击form中的任意控件(如shape)后,
设置属性为
shape\backstyle\1-opaque,
如果所选控件没有这个属性则不能用
至少在shape控件中是这样使用的.
设置属性为
shape\backstyle\1-opaque,
如果所选控件没有这个属性则不能用
至少在shape控件中是这样使用的.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
属性里设置
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询