用VB.NET繪制GDI圖形

下面的例子通過重載Form 窗體的OnPaint()方法繪制GDI圖形Protected Overrides Sub onpaint(ByVal e As System Windows Forms PaintEventArgs)注釋 /////////////繪制任意直線Dim g As Graphics = e GraphicsDim mypen As Pen = New Pen(Color Red )g DrawLine(mypen )注釋 /////////////繪制矩形(任意直線構(gòu)成的封閉圖形)Dim point As PointF = New PointF( F F)Dim point As PointF = New PointF( F F)Dim point As PointF = New PointF( F F)Dim point As PointF = New PointF( F F)Dim curvepoints As PointF() = {point point point point }g DrawPolygon(New Pen(Color Blue ) curvepoints)注釋 ////////////文本表示Dim FFamily As FontFamily = New FontFamily( Arial )Dim font As Font = New Font(FFamily FontStyle Bold FontStyle Italic GraphicsUnit Pixel)Dim text As String = I love you! Dim solidbrush As SolidBrush = New SolidBrush(Color Red)Dim pr As PointF = New PointF( )e Graphics DrawString(text font solidbrush pr)注釋 ////////////平面繪制Dim rec As RectangleF = New RectangleF( )g DrawPie(mypen rec )注釋 ///////////封閉圖形 應該是個圓g DrawClosedCurve(mypen curvepoints Drawing Drawing D FillMode Alternate)注釋 ///////////大家自己試試看吧g DrawArc(mypen )g DrawCurve(mypen curvepoints)g DrawBezier(mypen )g DrawBeziers(mypen curvepoints)注釋 //////////這可是一個圓Dim rec As RectangleF = New RectangleF( )g DrawEllipse(mypen rec )注釋 //////////這是一個橢圓Dim rec As RectangleF = New RectangleF( )g DrawEllipse(mypen rec )End Sub 這些是我自己試驗出來的 當然了 還有好多 我只是開了一個頭 大家要是發(fā)現(xiàn)什么好東東 別忘了通知一下 ） lishixinzhi/Article/program/net/201311/11800

涉縣網(wǎng)站制作公司哪家好，找創(chuàng)新互聯(lián)！從網(wǎng)頁設計、網(wǎng)站建設、微信開發(fā)、APP開發(fā)、響應式網(wǎng)站建設等網(wǎng)站項目制作，到程序開發(fā)，運營維護。創(chuàng)新互聯(lián)于2013年成立到現(xiàn)在10年的時間，我們擁有了豐富的建站經(jīng)驗和運維經(jīng)驗，來保證我們的工作的順利進行。專注于網(wǎng)站建設就選創(chuàng)新互聯(lián)。

vb.net GDI繪圖刷新問題

繪圖代碼寫在Paint事件中，如

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

Dim g As Graphics = Me.CreateGraphics

g.DrawLine(Pens.Red, 100, 100, 200, 100)

End Sub

'方法二：在 PictureBox1上顯示圖像----圖畫在Bitmap

PictureBox1.Image = Nothing

Dim wid As Integer = PictureBox1.ClientSize.Width

Dim hgt As Integer = PictureBox1.ClientSize.Height

Dim bm As New Bitmap(wid, hgt)

Dim g As Graphics = Graphics.FromImage(bm)

'畫圖代碼

'畫圖代碼

PictureBox1.Image = bm

PictureBox1.Refresh()

g.Dispose()

vb.net 繪圖，重繪知識

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

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

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

我也自學，感覺基礎容易學，進階資料少。循序漸進也沒序可循，基本是在摸索。

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

晦澀是相對的，實踐出真知，多動手，基礎就好了。

vb.net中使用GDI畫圖，然后平移，可是平移之前的圖還在，怎么去掉平移之前的，保留平移之后的？

如果是簡單的移動，先把圖形繪制到大小和PictureBox的Bitmap上，然后再繪制到PictureBox就行。

不過在VB.NET中用GDI繪制最好用BufferedGraphics圖形緩沖區(qū)，速度馬馬虎虎（VB就這樣了），但是不閃爍，不存在背景擦除的問題。