me . load drive info(drives onpc . items(drives onpc . selectedindex))計算小數位數。
Me.invalid()觸發表單繪制。
表單繪圖(餅圖)
private Sub form 3 _ paint(ByVal sender As System。對象,ByVal e作為系統。Windows.Forms.PaintEventArgs)處理MyBase。顏料
設置RECTANGLE結構變量以確定繪圖的範圍和大小。
Dim rect As Rectangle =新矩形(280,20,200,200)
Dim rect2 As Rectangle =新矩形(270,10,400,320)
Dim freelegend As Rectangle =新矩形(280,300,20,20)
Dim usedlegend As Rectangle =新矩形(280,275,20,20)
e.Graphics.DrawRectangle(鋼筆。黑色,正面2)
e.圖形。畫線(鋼筆。黑色,270,260,670,260)
如果Me.isSpaceInfoVailable = True,則
填充橢圓圖像(角度)
e.圖形。FillPie(畫筆。洋紅色,矩形,0,掃描)
e.圖形。FillPie(畫筆。藍色、矩形、掃描、360度掃描)
填滿廣場
e.Graphics.FillRectangle(畫筆。洋紅色,自由圖例)
e.Graphics.FillRectangle(畫筆。藍色,已用圖例)
e.圖形。拉繩(