VB.net中如何畫圖？

分類: 電腦/網絡 程序設計 其他編程語言

東興網站制作公司哪家好，找成都創新互聯！從網頁設計、網站建設、微信開發、APP開發、響應式網站建設等網站項目制作，到程序開發，運營維護。成都創新互聯2013年開創至今到現在10年的時間，我們擁有了豐富的建站經驗和運維經驗，來保證我們的工作的順利進行。專注于網站建設就選成都創新互聯。

問題描述:

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

急用啊！！！！！！！！

解析:

VB與VB不同。

VB已經有專門繪圖的類。

可以定義筆刷然后用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制作如下的界面

寫程序不就行了，左邊觸發單擊事件，然后執行相應的程序塊之右邊的內容變動就行了。

用vb.net編寫程序 修改和界面設計

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?=?"錯誤"

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?=?"你已經答了"?+?aa.ToString?+?"題，答對"?+?i.ToString?+?"題，"?+?"答錯"?+?j.ToString?+?"題。"

End?Sub

分享題目：vb.net畫面設計 vb設計軟件界面
地址分享：http://m.newbst.com/article44/dogpohe.html

成都網站建設公司_創新互聯，為您提供網站導航、網站制作、品牌網站設計、云服務器、動態網站、營銷型網站建設

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯