なぜVBは扱いが低いのか (200ﾚｽ)
なぜVBは扱いが低いのか http://mevius.5ch.net/test/read.cgi/gamedev/1284400196/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
必死ﾁｪｯｶｰ(本家)
(べ)
自ID
ﾚｽ栞
あぼーん
15: 10 [sage] 2010/09/19(日) 01:04:51 ID:9fB8MUem おっす！>>14見てくれてうれしいぜ 終了判定いれてみた Sub EndOfGame() For i As Integer = 1 To 9 If Not (obPicsWin(i).Name = obPics(i).Name) Then Label1.Text += ":No" Exit Sub End If Next Label1.Text += ":End" End Sub キモは配列に正解を入れておくとこだぜLOAD処理でやってる これで最初のならびに達したかどうかがわかるぜ！ ReDim obPics(10), obPicsWin(10) obPics(1) = PictureBox1 obPics(2) = PictureBox2 obPics(3) = PictureBox3 obPics(4) = PictureBox4 obPics(5) = PictureBox5 obPics(6) = PictureBox6 obPics(7) = PictureBox7 obPics(8) = PictureBox8 obPics(9) = PictureBox9 For i As Integer = 1 To 9 obPicsWin(i) = obPics(i) Next 既にゲームぽいけどもっと進化させるぜ http://mevius.5ch.net/test/read.cgi/gamedev/1284400196/15
16: 10 [sage] 2010/09/19(日) 15:06:33 ID:9fB8MUem おはよう！オイラ10 ちょっと工夫して画像を自分で設定できるようにしてる んで画像読み込んでコピーするまで出来た！フォームとピクチャボックス２つとダイアログ１つで簡単にできる これ組み込んだら完成だな 次のがコピーのコードだ、結構厄介だったぞ Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim img = New Bitmap(PictureBox1.Image) 'PictureBox1のGraphicsオブジェクトの作成 Dim g As Graphics = PictureBox2.CreateGraphics() '元の画像の(10,10)-(100,100)の部分を切り取って表示する '座標(0,0)に表示し、単位をピクセルとする Dim rect As New Rectangle(PictureBox2.Top, PictureBox2.Left, PictureBox2.Width, PictureBox2.Height) g.DrawImage(img, 0, 0, rect, GraphicsUnit.Pixel) Dim newBMP As Bitmap = img.Clone(rect, img.PixelFormat) PictureBox2.Image = newBMP.Clone 'Graphicsオブジェクトを破棄 g.Dispose() End Sub http://mevius.5ch.net/test/read.cgi/gamedev/1284400196/16
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.008s