在vbnet中，我在picturebox里面畫線，用滾動(dòng)條拉動(dòng)picturebox顯示最新畫出的圖

vb.net沒有自動(dòng)重畫功能，要在Paint事件中寫代碼對(duì)圖形重畫。

創(chuàng)新互聯(lián)公司是專業(yè)的瑞昌網(wǎng)站建設(shè)公司，瑞昌接單;提供成都網(wǎng)站設(shè)計(jì)、做網(wǎng)站、成都外貿(mào)網(wǎng)站建設(shè)公司,網(wǎng)頁設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行瑞昌網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴(kuò)展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來合作!

另外一種情況，如果在Image屬性設(shè)置了一幅圖像，圖像能夠保持完整性的。所以你可以把圖形繪在位圖上，把位圖綁定到Image屬性上。

先綁定一幅位圖：

Dim bm as New BitMap(800,600)

PictureBox1.Image=bm

作圖時(shí)不是對(duì)圖片框，而是在位圖上作圖。

dim gr As Grapthics=Graphics.FromImage(bm) '建立位圖的繪圖設(shè)備

接下來就可用gr 的繪圖方法作圖

作完圖，PictureBox1.Refresh 刷新一下。

VB.Net如何實(shí)現(xiàn)摳圖并繪圖

項(xiàng)目中要用圖形來顯示一個(gè)閥門的開度，以及控制閥的開度。本來是要用什么公司買的控件中的餅圖之類的實(shí)現(xiàn)，不過我覺得也是麻煩，就想，還是自己畫吧。

首先添加一個(gè)TrackBar，名字是“TrackBar1”，一個(gè)label，名字是“L_A_SHANG”，一個(gè)GroupBox，名字是“GB_RIGHT”,，然后添加拉動(dòng)滾動(dòng)條時(shí)的處理函數(shù)

'上位機(jī)控制

Dim m_start As Integer

Dim RcDraw As System.Drawing.Rectangle

Private Sub TrackBar1_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll

m_start = (100 - TrackBar1.Value)

Me.L_A_SHANG.Text = Me.TrackBar1.Value.ToString

GB_RIGHT.Invalidate() '重畫GB_RIGHT

End Sub

添加GB_RIGHT重畫時(shí)的處理函數(shù)

Private Sub GB_RIGHT_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles GB_RIGHT.Paint

RcDraw.X = TrackBar1.Location.X - 40

RcDraw.Y = 20

RcDraw.Height = 100

RcDraw.Width = 20

e.Graphics.DrawRectangle(New Pen(Color.Blue, 5), RcDraw)

Dim i = TrackBar1.Location.X - 40

For i = TrackBar1.Location.X - 40 To TrackBar1.Location.X - 20

e.Graphics.DrawLine(New Pen(Color.Blue, 5), i, m_start + 20, i, 120)

Next

Me.L_A_SHANG.Text = Me.TrackBar1.Value.ToString + "%"

End Sub

到此以及可以實(shí)現(xiàn)拉動(dòng)條的時(shí)候，圖像跟著變化，并顯示百分比。

VB.NET怎么重繪？

新建一個(gè)Winform，在和Form1平行的位置粘貼如下代碼

Public?Class?MyLabel

Inherits?Label

Protected?Overrides?Sub?OnPaint(e?As?PaintEventArgs)

e.Graphics.DrawEllipse(New?Pen(Color.Red),?New?Rectangle(2,?2,?10,?10))

MyBase.OnPaint(e)

End?Sub

End?Class

運(yùn)行，停掉，在工具箱找到MyLabel，拖動(dòng)就可以看到效果。這只是最基本的重寫，要模仿QQ還需要其他技術(shù)以及美工。

vb.net 繪圖，重繪知識(shí)

繼承（Inherits）控件就可以重寫它的屬性和方法，圖標(biāo)可以在paint中重繪，用gdi，工具主要在drawing和drawing2d中。

combobox彈出的框增加圖標(biāo)嗎？個(gè)人看法可能需要得到那個(gè)句柄，才可以重繪，但那個(gè)好像是一體的，不知道能不能弄到句柄。

textbox可以自定義高度。只是以行高度為單位，改變字體大小即可，沒必要重寫吧。

我也自學(xué)，感覺基礎(chǔ)容易學(xué)，進(jìn)階資料少。循序漸進(jìn)也沒序可循，基本是在摸索。

都是想到什么問題，就立下一個(gè)目標(biāo)，然后攻破他，結(jié)果可能是嘗試幾天后，發(fā)現(xiàn)目標(biāo)超出能力范圍。

晦澀是相對(duì)的，實(shí)踐出真知，多動(dòng)手，基礎(chǔ)就好了。