用vbnet畫紅心 vb畫愛心

如何用VB打“*”構(gòu)成愛心

夠費(fèi)勁的，可算畫完了

網(wǎng)站設(shè)計(jì)制作過程拒絕使用模板建站；使用PHP+MYSQL原生開發(fā)可交付網(wǎng)站源代碼;符合網(wǎng)站優(yōu)化排名的后臺(tái)管理系統(tǒng)；網(wǎng)站建設(shè)、網(wǎng)站制作收費(fèi)合理；免費(fèi)進(jìn)行網(wǎng)站備案等企業(yè)網(wǎng)站建設(shè)一條龍服務(wù).我們是一家持續(xù)穩(wěn)定運(yùn)營了10多年的創(chuàng)新互聯(lián)建站網(wǎng)站建設(shè)公司。

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點(diǎn)虐 中畫一個(gè)點(diǎn)呢？

畫點(diǎn)：

在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畫同心圓

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

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坐標(biāo)

Dim Cy As Integer = 150 '圓心的Y坐標(biāo)

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（畫筆的顏色，繪制橢圓所需要的矩形區(qū)域）

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

例如1：

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

就是以圓心坐標(biāo)為（100,100），繪制半徑為50 的圓。其實(shí)在VB.NET中，是告訴系統(tǒng)在以左上角坐標(biāo)（150,150），邊長為50的正方形里繪制內(nèi)切圓。理解了是在正方形里繪制內(nèi)切圓，就可以通過數(shù)學(xué)計(jì)算，知道如何繪制了。

同理例如2：

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

就是以圓心坐標(biāo)為（100,100），繪制半徑為50 的圓。其實(shí)在VB.NET中，是告訴系統(tǒng)在以左上角坐標(biāo)（150,150），長軸為100，短軸為50的內(nèi)切橢圓。

用VB的circle畫實(shí)心紅色的圓，就是在窗體上畫一個(gè)圓，控件窗體為1980，據(jù)窗體左邊距為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

網(wǎng)頁名稱：用vbnet畫紅心 vb畫愛心
網(wǎng)頁地址：http://muchs.cn/article18/ddijggp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供做網(wǎng)站、品牌網(wǎng)站設(shè)計(jì)、電子商務(wù)、手機(jī)網(wǎng)站建設(shè)、網(wǎng)站收錄、網(wǎng)站維護(hù)

廣告

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