(cache) 乱数の利用でやるのですが、1000個の円の色を全部同じではなく、それぞれの色を乱...

ログイン
IDでもっと便利に[ 新規取得 ]

Yahoo! JAPAN - ヘルプ

公開するID： 未登録 [ 利用登録 ]

ランダム質問 - My知恵袋

　Yahoo!知恵袋に投稿された知識から

を [ 検索オプション ]

すべての質問「Visual Basic」に関する質問

質問する

トップ > コンピュータテクノロジー > プログラミング > Visual Basic

回答受付中の質問

この質問の閲覧数： 71

質問日時： 2008/5/10 13:33:15 残り時間： 4日間

質問番号： 16,430,005

乱数の利用でやるのですが、1000個の円の色を全部同じではなく、それぞれの色を乱...

乱数の利用でやるのですが、1000個の円の色を全部同じではなく、それぞれの色を乱数を使って表すのですが。
各色を指定する数値の部分に乱数を利用すればできるようなのですが。

Private Sub Button1_Click(Byval sender As _
System. Object, Byval e As System.EventArgs) _
Handless Button1.Click
Dim mypen As New Drawing.Pen(Color.Red.2)
Dim i, x, y As Integer
For i = 0 To 1000
x =
y =
CreateGraphics.DrawEllipse(mypen, x, y, 1, 1)
Next
End Sub

x= と y= のところで決まる思うのですが、

至急でお願いします。

回答数： 1　

質問した人： rororororo765さんグレード

1-1 この質問内容が不快なら

回答

回答日時： 2008/5/10 13:56:30

回答番号： 50,024,955

x, y は円の左上座標を指定します。

色を乱数で表すのであれば、myPen.Color で変更する事になります。
1 色（赤）だけ変更するプログラムを示します。残り 2 色（緑、青）は補完してください。
x, y 座標も同様に乱数で変更できます。試してみて下さい。

Dim i, x, y As Integer
Dim rndR as New Random(1)

For i = 0 To 1000
x = 100
y = 100
myPen.Color = Color.FromArgb(rndR.Next(0,255), 50, 50)
CreateGraphics.DrawEllipse(mypen, x, y, 1, 1)
Next

回答した人： cool_justice999さんグレード

2-1 この回答内容が不快なら

質問をみる↑

[ アイコンの説明：

ケータイからの投稿 ]