怎么用Netdraw繪制帶權(quán)值的有向圖？建立一個(gè)K大小的堆遍歷圖，每次嘗試將遍歷值放入堆中，前提是遍歷值小于堆中的最大值（按大小排序）；最后得到圖中權(quán)重最小的K節(jié)點(diǎn)，然后將顏色權(quán)重0分配給K節(jié)點(diǎn)中稍大

怎么用Netdraw繪制帶權(quán)值的有向圖？

建立一個(gè)K大小的堆遍歷圖，每次嘗試將遍歷值放入堆中，前提是遍歷值小于堆中的最大值（按大小排序）；最后得到圖中權(quán)重最小的K節(jié)點(diǎn)，然后將顏色權(quán)重0分配給K節(jié)點(diǎn)中稍大的節(jié)點(diǎn)，最后我們得到了權(quán)重乘VB.net版已經(jīng)有專門從事繪畫的課程了。

您可以定義畫筆，然后使用drawing類中的方法進(jìn)行繪制。

Private Sub DrawEllipse（）

將myPen設(shè)置為新系統(tǒng)圖筆( 系統(tǒng)圖顏色.Red）

Dim formGraphics組件系統(tǒng)圖圖形

窗體圖形=Me.CreateGraphics公司()

formGraphics.DrawEllipse格式（myPen，新矩形（0,0200300））我的筆。處理()

formGraphics.處理（）

結(jié)束Sub

專用Sub DrawRectangle（）

將myPen變暗為新系統(tǒng)圖筆( 系統(tǒng)圖顏色.Red）

Dim formGraphics組件系統(tǒng)圖圖形

窗體圖形=Me.CreateGraphics公司()

formGraphics.DrawRectangle格式（myPen，新矩形（0,0200300））我的筆。處理()

formGraphics.處理（）

末端接頭