VB.net與VB不同。
創(chuàng)新互聯(lián)技術團隊10余年來致力于為客戶提供網站建設、網站設計、成都品牌網站建設、全網營銷推廣、搜索引擎SEO優(yōu)化等服務。經過多年發(fā)展,公司擁有經驗豐富的技術團隊,先后服務、推廣了數千家網站,包括各類中小企業(yè)、企事單位、高校等機構單位。
VB.net已經有專門繪圖的類。
可以定義筆刷然后用Drawing類中的方法繪制。
Private Sub DrawEllipse()
Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics as System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.DrawEllipse(myPen, New Rectangle(0,0,200,300))
myPen.Dispose()
formGraphics.Dispose()
End Sub
Private Sub DrawRectangle()
Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics as System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.DrawRectangle(myPen, New Rectangle(0,0,200,300))
myPen.Dispose()
formGraphics.Dispose()
End Sub
webbrowser是不斷刷新的。就算你繪了圖,那個位置馬上又被刷新為原來的樣子,所以此路不通。
可不可以這樣變通:
把你的圖片制作好,然后在htm文件中引用它,最后通過webbrowser顯示。
我做了一個示例,在3*4的picturebox上畫圓,你可以通過該參數來達到100個圓。
Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load
For?j?As?Integer?=?0?To?2
For?i?As?Integer?=?0?To?3
Dim?nPic?As?New?PictureBox
With?nPic
.Size?=?New?Size(100,?100)
.Location?=?New?Point(i?*?150?+?20,?j?*?150?+?20)
.ImageLocation?=?"C:\Users\Xiansr\Pictures\絲綢\20121142591274218.jpg"
.Load()
End?With
Me.Controls.Add(nPic)
Dim?gm?As?Graphics?=?Graphics.FromImage(CType(Me.Controls.Item(i?+?(j?*?4)),?PictureBox).Image)
gm.DrawArc(Pens.White,?25,?25,?50,?50,?0,?360)
Next
Next
End?Sub