Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
同じ署名で複数の定義が存在します???
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=11361#CommentId29026
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
ぇえええええ
 (小学生)
投稿日時
2013/10/15 21:44:14
以下Timer1_Tickがあるコードです。
________________________________________
Public Class Form1
Private mainGraphics As Graphics
Private PlayerImage As Bitmap
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Init()
Timer1.Enabled = True
End Sub
Private Sub Init()
'▼描画用のGraphicsクラスの確保(技術的な処理)
If mainGraphics Is Nothing Then
'初回のみ生成
Dim bmp As New Bitmap(Me.ClientRectangle.Width, Me.ClientRectangle.Height)
Me.BackgroundImage = bmp
mainGraphics = Graphics.FromImage(bmp)
End If
'exeと同じフォルダーにあるPlayer1.bmpを読み込む。
'これができるのは、ファイルのプロパティで出力ディレクトリにコピーする設定になっているから。
PlayerImage = Image.FromFile(Application.StartupPath & "\Player1.bmp")
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ←コレ↑
mainGraphics.DrawImage(PlayerImage, 0, 0)
'フォームを再描画
Me.Invalidate()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ←コレ
End Sub
End Class
__________________________________________
\(゜ロ\)3つある・・・
で、これをどうすれば???? 何にも知らなくて本当にすいませんm(_ _)m
申し訳ないです。。。