なぜVBは扱いが低いのか (200ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん
10(7): 名前は開発中のものです。 [sage] 2010/09/18(土) 14:08:42 ID:A4GUH+kV(1/3) AAS
さてっとおいらがVBでゲーム作りますよってゲ製なんでゲーム作る話題にしようぜ
とりあえず課題スレにある１５パズルから作ろうとおもたけどいきなりは大変なので９パズルに挑戦な
んで、下記はピースの動きのコード下にしか動かんけど、いい感じだフォームとピクチャーボックスでいける
Sub picDown()
Dim nowX As Integer = PictureBox1.Left
Dim nowHeight As Integer = PictureBox1.Height
Dim newY As Integer = PictureBox1.Top + nowHeight
Dim idouY As Integer = nowHeight / 6
For i As Integer = 1 To 6
PictureBox1.Top += idouY
Threading.Thread.Sleep(10)
Me.Refresh()
Next
PictureBox1.Top = newY
Me.Refresh()
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If (e.KeyData = Windows.Forms.Keys.Down) Then
'MsgBox("↓", MsgBoxStyle.Information, "Form1_KeyDown")
picDown()
End If
End Sub
Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
MsgBox(e.KeyChar, MsgBoxStyle.Information, "Form1_KeyPress")
End Sub
12: 名前は開発中のものです。 [sage] 2010/09/18(土) 20:00:19 ID:A4GUH+kV(2/3) AAS
おっす、おいら10
ちょっと進歩したぜ！あぁ>>1111(2): 名前は開発中のものです。 [sage] 2010/09/18(土) 19:25:55 ID:eXol6kqo(1) AAS
SFC・メガドラ・PCエンジンのSTGを語るスレ
2chｽﾚ:gamestg
> 779 名前：名無しさん＠弾いっぱい[] 投稿日：2010/09/15(水) 13:08:43 ID:9cI7/JLI0
> ＰＣＥでもＭＤでもＳＦＣでもないが、それっぽい（昭和っぽい）画面の
> ゲームがある。
> はっぴぃしゅーたーＶＢ６
> 外部ﾘﾝｸ[html]:homepage1.nifty.com
> なんとなくＰＣＥ版究極タイガーやガンヘッドあたりを参考に作ったようだ。
> ＰＣ用だが、試しにやってみるといいかも？
これ、ソースが公開されていればもっと良かったのにとか身勝手な事を言ってみる。
Visual Basic でシューティングとはなかなか頑張ってるね。
さんオイラシューティング苦手だから無理な
ちょっとソース長くなったからここに貼らないほうがいいかな
どこかUPローダーない？
13: 10 [sage] 2010/09/18(土) 20:12:18 ID:A4GUH+kV(3/3) AAS
あぁみっけた
外部ﾘﾝｸ[txt]:gmdev.xrea.jp
とりあえず、上下移動ができるようになった
キモはピクチャーボックスオブジェクトを配列にいれて処理してるとこだな
こりゃ楽勝だぜ
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.644s*