新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
VB.net要在Picture中Label显示透明色,如下示例:DimLabel_1AsNewLabel()WithLabel_1.Height=20.Width=100.Text="动态添加Label控件.".Left=9.Top=9.BackColor=Color.TransparentEndWithMe.PictureBox1.Controls.Add(Label_1)如图你可以看到效果.在代码任意处加上事件就行了PrivateSubLabel_1_MouseMove(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.MouseEventArgs)HandlesLabel_1.mouseMove...EndSub
专注于为中小企业提供网站建设、成都网站设计服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业绥中免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了近1000家企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。
'没办法,需的把窗口隐藏一下,还的隐藏后延迟一下再截图。
Dim WithEvents Timer1 As New Timer With {.Interval = 30, .Enabled = False}
Dim Imgrect As Rectangle
Dim img As Bitmap
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Imgrect = Me.RectangleToScreen(Me.ClientRectangle)
img = New Bitmap(Imgrect.Width, Imgrect.Height)
Me.Hide()
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Stop()
Graphics.FromImage(img).CopyFromScreen(Imgrect.X, Imgrect.Y, 0, 0, Imgrect.Size)
Me.BackgroundImage = img
Me.Show()
End Sub
你可以这样的解决你的问题:
(我用的是vs。net2005)
button1.backcolor=transprent
这样你自己好好的试一试吧,我试了一下,感觉不错。
button是没有backgroundimage属性的哈,哥。你应该是要切换背景的图片吧,那你应该设置你当前主控件的背景图片哈,而不是button的背景哈。