vbnet繪圖的代碼 vb編寫畫圖程序

VB到VB點(diǎn)虐 的繪圖API

VB點(diǎn)虐 里有個(gè)很簡(jiǎn)單的辦法，就是把Form1的TransparencyKey 屬性設(shè)置成白色，你的圖片的白色就會(huì)變成透明的了，很方便吧。

金東網(wǎng)站建設(shè)公司成都創(chuàng)新互聯(lián)公司,金東網(wǎng)站設(shè)計(jì)制作，有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為金東1000+提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站建設(shè)要多少錢，請(qǐng)找那個(gè)售后服務(wù)好的金東做網(wǎng)站的公司定做！

求VB點(diǎn)虐 程序源代碼 繪圖板、二十一點(diǎn)游戲、計(jì)算器、井字棋游戲、屏幕保護(hù)程序等

說明：1.共有4個(gè)文本框其，其中三個(gè)是填入或輸出數(shù)據(jù)的（名稱分別是：txta txtb txtc），剩下的那個(gè)是符號(hào)(txtd)2.共7個(gè)按鈕，4個(gè)是符號(hào)按鈕，一個(gè)計(jì)算，一個(gè)清零．這是我弄的程序”袖珍計(jì)算器”代碼也是自己編寫的，代碼如下：通用聲明Dim j As Integer '定義j為整型

Private Sub Text1_Change()End SubPrivate Sub Command1_Click()

txtfuhao.Text = "+" '將”＋”顯示到文本框txtfuhao.Text中

End SubPrivate Sub Command2_Click()

txtfuhao.Text = "-" ''將”-”顯示到文本框txtfuhao.Text中

End SubPrivate Sub Command3_Click()

txtfuhao.Text = "×" '將”×”顯示到文本框txtfuhao.Text中

End SubPrivate Sub Command4_Click()

txtfuhao.Text = "÷" 將”÷”'顯示到文本框txtfuhao.Text中

End Sub

Private Sub Command5_Click()

Dim a, b, c As Integer

a = Val(txta.Text) '將txta.Text里的內(nèi)容轉(zhuǎn)化為數(shù)值型,然后再賦給a

b = Val(txtb.Text) '將txtb.Text里的內(nèi)容轉(zhuǎn)化為數(shù)值型,然后再賦給b

If txtfuhao.Text = "+" Then '運(yùn)算過程

c = a + b '運(yùn)算過程

ElseIf txtfuhao.Text = "-" Then '運(yùn)算過程

c = a - b '運(yùn)算過程

ElseIf txtfuhao.Text = "÷" Then '運(yùn)算過程

c = a / b '運(yùn)算過程

ElseIf txtfuhao.Text = "×" Then '運(yùn)算過程

c = a * b '運(yùn)算過程

Else

j = MsgBox("您輸入的符號(hào)不正確", vbOKOnly, "錯(cuò)誤信息")

End If

txtc.Text = c '將運(yùn)算結(jié)果c輸出到文本框txtc中

End SubPrivate Sub Command6_Click()

txta.Text = "" '將空字符輸入到文本框內(nèi)（刷新）

txtb.Text = "" '將空字符輸入到文本框內(nèi)（刷新）

txtc.Text = "" '將空字符輸入到文本框內(nèi)（刷新）

txtfuhao.Text = "" '將空字符輸入到文本框內(nèi)（刷新）

End SubPrivate Sub Command7_Click()

End '結(jié)束程序

End SubPrivate Sub Form_Load()End Sub

vb點(diǎn)虐 繪制曲線圖

。net ?其實(shí)還是很好繪制圖形的

你可以看下?Graphics ?類

Dim d As New Bitmap(Me.Width, Me.Height) ?‘一個(gè)圖片吧

? Dim g As Graphics = Graphics.FromImage(d)’繪制 ?準(zhǔn)備在這個(gè)圖片是進(jìn)行

然后 ?就是你繪制的東西了

線 就是 ??g.DrawLine()

圓 弧度 ?就用 ?g.DrawArc(Pens.Black, New Rectangle(0, 0, 400, 200), 0, 360)

復(fù)雜的就是 ? ? ?g.DrawBezier()

等 ?如果你用的是 VS的 ?編譯 ?上面都有詳細(xì)的參數(shù)說明

Dim?d?As?New?Bitmap(Me.Width,?Me.Height)

Dim?g?As?Graphics?=?Graphics.FromImage(d)

g.DrawArc(Pens.Black,?New?Rectangle(0,?0,?200,?200),?0,?360)

g.DrawLine(Pens.Red,?New?Point(0,?0),?New?Point(200,?200))

g.DrawLines(Pens.Green,?New?Point()?{New?Point(0,?0),?New?Point(50,?40),?New?Point(50,?80),?New?Point(90,?70),?New?Point(100,?400)})

g.DrawBezier(Pens.Yellow,?New?Point(0,?100),?New?Point(0,?0),?New?Point(200,?0），?New?Point(200,?200))

g.Dispose()

Me.BackgroundImage?=?d

VB點(diǎn)虐 中如何畫圖？

VB點(diǎn)虐 與VB不同。

VB點(diǎn)虐 已經(jīng)有專門繪圖的類。

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

當(dāng)前標(biāo)題：vbnet繪圖的代碼 vb編寫畫圖程序
URL地址：http://muchs.cn/article28/ddiijcp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供定制開發(fā)、微信小程序、全網(wǎng)營(yíng)銷推廣、、搜索引擎優(yōu)化、Google

廣告

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