锐客网

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

vb.net画图笔刷 vb画画( 二 )

IT技术控件


Dim 中间位置 = 矩形.Top + 矩形.Height - 下面高度 '获取中间分界线的Y坐标
Dim 上矩形 = New Rectangle(矩形.X, 矩形.Y, 矩形.Width, 矩形.Height - 下面高度)
Dim 下矩形 = New Rectangle(矩形.X, 中间位置, 矩形.Width, 下面高度)
g.FillRectangle(上面笔刷, 上矩形)
g.FillRectangle(下面笔刷, 下矩形)
'绘制文字
Dim 文字 As String = String.Format("{0:0.00}%", 进度 * 100)
g.DrawString(文字, 字体, 文字笔, 矩形, 文字格式)
End Sub
End Class
下面是Form1窗体的代码：添加一个Button1和Timer1控件，将Button1尺寸拖大点
Public Class Form1
Public g As Graphics
Public 进度条UI As New 进度条UI
Public 进度 As Double
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
g = Button1.CreateGraphics()
Timer1.Enabled = Not Timer1.Enabled
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
进度 += 0.01
进度条UI.绘制(Button1, g, 进度)
End Sub
End Class
VB.NET 下给Listbox 添加图片或者渐变背景 。在普通window应用程序中的背景是不能有ALPHA通道的
既然是.net，试试用WPF窗体吧：
Listbox1.Background=New SolidBrush(Color.FromARGB(200,0,0,0))
当然你要是了解.net的笔刷类，绘制复杂的背景也不成问题
vb.net画图笔刷的介绍就聊到这里吧 ， 感谢你花时间阅读本站内容，更多关于vb画画、vb.net画图笔刷的信息别忘了在本站进行查找喔 。

推荐阅读


上一篇：精通asp.netmvc5框架，aspnet web框架

下一篇：卖货首场直播如何设置背景，直播卖货怎么设置