如何用VB打“*”構成愛心

夠費勁的，可算畫完了

網站設計制作過程拒絕使用模板建站；使用PHP+MYSQL原生開發可交付網站源代碼;符合網站優化排名的后臺管理系統；網站建設、網站制作收費合理；免費進行網站備案等企業網站建設一條龍服務.我們是一家持續穩定運營了10多年的創新互聯建站網站建設公司。

Private Sub Command1_Click()

Print Tab(10); "**";

Print Tab(20); "**",

Print Tab(6); "*";

Print Tab(14); "*";

Print Tab(18); "*";

Print Tab(25); "*",

Print Tab(4); "*";

Print Tab(15); "*";

Print Tab(17); "*";

Print Tab(27); "*",

Print Tab(3); "*";

Print Tab(16); "*";

Print Tab(28); "*",

Print Tab(3); "*";

Print Tab(28); "*",

Print Tab(4); "*";

Print Tab(27); "*",

Print Tab(5); "*";

Print Tab(26); "*",

Print Tab(7); "*";

Print Tab(24); "*",

Print Tab(9); "*";

Print Tab(22); "*",

Print Tab(11); "*";

Print Tab(20); "*",

Print Tab(13); "*";

Print Tab(17); "*",

Print Tab(15); "*",

End Sub

怎樣在VB點虐 中畫一個點呢？

畫點：

在PictureBox的Paint事件里面：

dim myGraphics=e.Graphics

Dim myPointArray As Point() = {New Point(0, 0), New Point(50, 30), New Point(30, 60)}

myGraphics.DrawPolygon(myPen, myPointArray)

畫圓：

Dim g As Graphics

g = PictureBox1.CreateGraphics

g.FillEllipse(Brushes.Red, x, y, 10, 10)

如何用VB.NET畫同心圓

窗體上添加一個按鈕，在該按鈕的單擊事件里編寫代碼如下：

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

'聲明窗體的Me.CreateGraphics對象

Dim MyGraphics As Graphics = Me.CreateGraphics

Dim Cx As Integer = 150 '圓心的X坐標

Dim Cy As Integer = 150 '圓心的Y坐標

Dim R As Integer '圓的半徑

'繪制半徑為R的圓

For R = 5 To 100 Step 5

MyGraphics.DrawEllipse(Pens.Black, New Rectangle(Cx - R, Cy - R, 2 * R, 2 * R))

Next

End Sub

‘用黑色畫筆繪制一組同心圓，半徑從5開始，增量為5。

說明：

DrawEllipse是VB.Net的Graphics類的繪制橢圓的方法；他有幾種格式，上面使用的是一種；

DrawEllipse（畫筆的顏色，繪制橢圓所需要的矩形區域）

其中：繪制橢圓所需要的矩形區域，如果被定義為正方形，就演變成繪制圓，定義該區域由死個數值確定，第1個數值，確定該區域左上角的X坐標，第2個數值，確定該區域左上角的Y坐標，第3個數值，確定該區域的寬度，第4個數值，確定該區域的高度。

例如1：

DrawEllipse(Pens.Black, New Rectangle(150, 150, 50, 50))

就是以圓心坐標為（100,100），繪制半徑為50 的圓。其實在VB.NET中，是告訴系統在以左上角坐標（150,150），邊長為50的正方形里繪制內切圓。理解了是在正方形里繪制內切圓，就可以通過數學計算，知道如何繪制了。

同理例如2：

DrawEllipse(Pens.Black, New Rectangle(150, 150, 100, 50))

就是以圓心坐標為（100,100），繪制半徑為50 的圓。其實在VB.NET中，是告訴系統在以左上角坐標（150,150），長軸為100，短軸為50的內切橢圓。

用VB的circle畫實心紅色的圓，就是在窗體上畫一個圓，控件窗體為1980，據窗體左邊距為1320，請問怎么做

'窗體上添加Shape控件

Private Sub Form_Load()

Shape1.Move 1320, 500, 1980, 1980

Shape1.Shape = 3

Shape1.BackStyle = 1

Shape1.BackColor = vbRed

Shape1.BorderColor = vbRed

End Sub

畫橢圓：

Private Sub Form_Load()

Shape1.Move 1320, 500, 1980, 580

Shape1.Shape = 2

Shape1.BackStyle = 1

Shape1.BackColor = vbRed

Shape1.BorderColor = vbRed

End Sub

網頁名稱：用vbnet畫紅心 vb畫愛心
網頁地址：http://vcdvsql.cn/article18/ddijggp.html

成都網站建設公司_創新互聯，為您提供做網站、品牌網站設計、電子商務、手機網站建設、網站收錄、網站維護

廣告

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