VB.net中如何畫(huà)圖？

分類: 電腦/網(wǎng)絡(luò) 程序設(shè)計(jì) 其他編程語(yǔ)言

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

問(wèn)題描述:

VB6中的form1.circle (100,200),rgb(0,255,0)的語(yǔ)句如何在VB中使用??？

急用?。。。。。。。?！

解析:

VB與VB不同。

VB已經(jīng)有專門(mén)繪圖的類。

可以定義筆刷然后用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

如何使用VB.net或VB制作如下的界面

寫(xiě)程序不就行了，左邊觸發(fā)單擊事件，然后執(zhí)行相應(yīng)的程序塊之右邊的內(nèi)容變動(dòng)就行了。

用vb.net編寫(xiě)程序 修改和界面設(shè)計(jì)

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

Dim?aa?As?Integer?=?Val(TextBox1.Text)

Dim?i?As?Integer

For?i?=?2?To?aa

If?aa?Mod?i?=?0?Then

TextBox2.Text?+=?i.ToString?+?"??"

aa?=?aa?/?i

i?=?2

End?If

Next

End?Sub

Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load

TextBox1.Text?=?ss()

TextBox2.Text?=?ss()

End?Sub

Function?ss()

Randomize()

Dim?a?As?Integer?=?Int(Rnd()?*?100)

Return?a

End?Function

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

If?Val(TextBox1.Text)?+?Val(TextBox2.Text)?=?Val(TextBox3.Text)?Then

i?+=?1

Label3.Text?=?"正確"

Else

j?+=?1

Label3.Text?=?"錯(cuò)誤"

End?If

aa?+=?1

End?Sub

Private?Sub?Button2_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button2.Click

TextBox1.Text?=?ss()

TextBox2.Text?=?ss()

TextBox3.Text?=?""

Label3.Text?=?""

End?Sub

Private?Sub?Button3_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button3.Click

TextBox4.Text?=?"你已經(jīng)答了"?+?aa.ToString?+?"題，答對(duì)"?+?i.ToString?+?"題，"?+?"答錯(cuò)"?+?j.ToString?+?"題。"

End?Sub