窗體上添加一個(gè)按鈕，在該按鈕的單擊事件里編寫代碼如下：
成都創(chuàng)新互聯(lián)公司堅(jiān)持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：成都網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計(jì)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時(shí)代的勐海網(wǎng)站設(shè)計(jì)、移動(dòng)媒體設(shè)計(jì)的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'聲明窗體的Me.CreateGraphics對(duì)象
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），邊長(zhǎng)為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），長(zhǎng)軸為100，短軸為50的內(nèi)切橢圓。
我用一個(gè)命令按鈕來實(shí)現(xiàn)你所說的效果 Private Sub Command1_Click() Dim r As Single r = Val(InputBox("請(qǐng)輸入圓的半徑：", "輸入")) MsgBox "當(dāng)半徑為" r "時(shí)圓的面積為：" r * r * 3.14 End Sub 代碼我已經(jīng)在電腦上試過了，應(yīng)該滿足你...
1.制作一組圓形的圖片文件，（一般制作2個(gè)文件，一為鼠標(biāo)沒駐留情況，二為鼠標(biāo)駐留時(shí)的亮點(diǎn)情況），使用gif文件編輯器保存為透明圖形文件，只保留圓形部分。（Office安裝完整版，里面有一個(gè)PhotoEdit的GIF編輯器，也可以使用ps編輯器，或網(wǎng)頁查找其他GIF編輯器）
2.使用image控件載入第一張圖，在 Image_Move()事件 過程寫代碼載入第二張圖
3.在Image_Click()事件寫鼠標(biāo)點(diǎn)擊的代碼。
還有一個(gè)方法就是自己制作一個(gè) 控件，這個(gè)比較復(fù)雜，而且第一個(gè)步驟也是需要的。
重慶分公司
重慶分公司
