Question

vb.net 画图问题

请看这个连接 http://zhidao.baidu.com/question/872252559622869292.html
要解决的问题是这样
我们有一个已经生成好的随机二维数组 a（n,n），ps: a（n,n）对角线都等于0，别的元素等于1或0
我们有一个按钮 buttuon1和一个gruopbox1
在按button1的时候在groupbox1里面画图
主要思路是这样的
先在groupbox1 画n个小圆 （小圆旁边显示序号）
如果a（i,j）=1 则 把第i个点和第j个点连接
要实现的效果是这样的

Answer 1

先写一个绘小圆圈的函数，再写一个绘线的函数

追问

求代码 我是初学者

追答

Public Class Form1
    Public myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
    Public formGraphics As System.Drawing.Graphics
    Private r As Integer = 5 '点半径
    Private data(10) As System.Drawing.Point '数据点
    Private link(10, 10) As Integer
    
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For Each pt In data
            formGraphics.DrawEllipse(myPen, New Rectangle(pt.X, pt.Y, r, r))
        Next
        DrawLink(data)
    End Sub
    Private Sub DrawLink(data() As System.Drawing.Point)
        Dim pt1, pt2 As System.Drawing.Point
        For i = 0 To UBound(link)
            For j = 0 To UBound(link, 2) - i - 1
                If link(i, j) = 1 Then
                    pt1.X = data(i).X + r / 2 : pt1.Y = data(i).Y + r / 2
                    pt2.X = data(j).X + r / 2 : pt2.Y = data(j).Y + r / 2
                    formGraphics.DrawLine(myPen, pt1, pt2)
                End If
            Next j
        Next i
End Class

 代码在这里贴不完，还有不会的用站内信。