図形の描画

環境/言語:[VB.net]
分類:[.NET]

はじめまして
ほりいと言います

早速、教えていただきたいことですが、
フォームに四角形を100×100個並べたいのです。
でもうまくいきません。
どうすればいいでしょうか。

ご教授ください。

> 早速、教えていただきたいことですが、
> フォームに四角形を100×100個並べたいのです。
> でもうまくいきません。
> どうすればいいでしょうか。

どのようにうまくいかなかったのでしょうか？
一例としてはこんな感じでできると思いますが…。

private void Form1_Paint(object sender, System.Windows.Forms.PaintEventArgs e)
{
　　e.Graphics.DrawRectangles(new Pen(Color.Blue, 1F), CreateRects(new Size(3, 3)));
}

private Rectangle[] CreateRects(Size oneSize)
{
　　Rectangle[] rects = new Rectangle[100*100];
　　for(int i=0; i<100; i++)
　　{
　　　　for(int j=0; j<100; j++)
　　　　{
　　　　　　rects[i*100 + j] = new Rectangle((oneSize.Width + 3)*j, (oneSize.Height + 3)*i, oneSize.Width, oneSize.Height);
　　　　}
　　}
　　return rects;
}

■No6607に返信(antさんの記事)
すいません、
VB.netの言語なのですが。
antさんの言語はCですか？
申し訳ないのですが、
VB.netに直してくれますか？
教えていただいた上に
こんなことを押し付けてしまって、
申し訳ないのですが、
よろしければお願いいたします。

> 申し訳ないのですが、
> VB.netに直してくれますか？

DOBON.NET .NET Tips - C#のコードをVB.NETへ変換する
http://dobon.net/vb/dotnet/links/convertcs2vb.html

を参考にしてみてください。

■No6611に返信(管理人さんの記事)
わかりました。
antさん、管理人さん、
どうもありがとうございました。

> VB.netの言語なのですが。
> antさんの言語はCですか？
> 申し訳ないのですが、
> VB.netに直してくれますか？
> 教えていただいた上に
> こんなことを押し付けてしまって、
> 申し訳ないのですが、
> よろしければお願いいたします。

おっと（＾＾；これは失礼しました。
見落としておりました。
すでに管理人様からの助言でうまく言っていると思いますが、
一応VBのほうも載せておきます。

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
　　e.Graphics.DrawRectangles(New Pen(Color.Blue, 1.0F), CreateRects(New Size(3, 3)))
End Sub

Private Function CreateRects(ByVal oneSize As Size) As Rectangle()
　　Dim rects(100 * 100) As Rectangle
　　For i As Integer = 0 To 99
　　　　For j As Integer = 0 To 99
　　　　　　rects(i * 100 + j) = New Rectangle((oneSize.Width + 3) * j, (oneSize.Height + 3) * i, oneSize.Width, oneSize.Height)
　　　　Next j
　　Next i
　　Return rects
End Function

■No6619に返信(antさんの記事)
ほんとにたすかりました。
antさん、感謝いたします。