VB.net中如何在picturebox畫線，有什么函數(shù)？

Dim b As New Bitmap(PictureBox1.Width, PictureBox1.Height)

創(chuàng)新互聯(lián)建站專注于企業(yè)全網(wǎng)營銷推廣、網(wǎng)站重做改版、曲麻萊網(wǎng)站定制設(shè)計、自適應(yīng)品牌網(wǎng)站建設(shè)、HTML5、電子商務(wù)商城網(wǎng)站建設(shè)、集團(tuán)公司官網(wǎng)建設(shè)、外貿(mào)營銷網(wǎng)站建設(shè)、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁設(shè)計等建站業(yè)務(wù)，價格優(yōu)惠性價比高，為曲麻萊等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。

Dim g As Graphics = Graphics.FromImage(b)

g.Clear(Color.White)

Dim p As New Pen(Color.Black)

p.EndCap = Drawing2D.LineCap.ArrowAnchor

g.DrawLine(p, 30, PictureBox1.Height - 30, 30, 30)

g.DrawLine(p, 30, PictureBox1.Height - 30, PictureBox1.Width - 30, PictureBox1.Height - 30)

Dim i As Integer

Dim bs As New SolidBrush(Color.Green)

Dim po As New Point

po.X = 0

po.Y = PictureBox1.Height - 35

For i = 700 To 1000 Step 50

g.DrawString(i, Me.Font, bs, po.X, po.Y)

g.DrawLine(p, po.X + 28, po.Y + 5, po.X + 30, po.Y + 5)

po.Y -= (PictureBox1.Height - 100) / 6

Next

po.X = 30

po.Y = PictureBox1.Height - 30

For i = 0 To 40 Step 5

g.DrawString(i, Me.Font, bs, po.X, po.Y + 5)

g.DrawLine(p, po.X, po.Y + 2, po.X, po.Y)

po.X += (PictureBox1.Width - 100) / 8

Next

PictureBox1.Image = b

vb.net中怎么給label設(shè)置下劃線

將Label1 改成相應(yīng)的 label 控件名稱。

'鼠標(biāo)經(jīng)過時，顯示下劃線

Private Sub Label1_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.MouseEnter

Dim LabelFont As Font = New Font(Label1.Font.Name, Label1.Font.Size, FontStyle.Underline)

Label1.Font.Dispose()

Label1.Font = LabelFont

End Sub

'鼠標(biāo)離開時，去除下劃線

Private Sub Label1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.MouseLeave

Dim LabelFont As Font = New Font(Label1.Font.Name, Label1.Font.Size, FontStyle.Regular)

Label1.Font.Dispose()

Label1.Font = LabelFont

End Sub

VB.Net中畫直線問題

不想整個重畫，最好用單色的背景，例如黑色，線條是白色的

用變量把線條的內(nèi)容備份

當(dāng)想改變線條的位置或者長度之前，先用存下來的變量以黑色重畫一次，覆蓋原來的白色線條

然后再畫新的白色線條，這種重畫方法比較節(jié)省資源

假如需要用花哨的背景或者圖片當(dāng)背景，也可以用局部重回的方式。

代碼就不提供了，只提供思路。