同じ署名で複数の定義が存在します???
投稿者 るきお  (社会人)
投稿日時
2013/10/15 12:52:31
Timer1_Tickが2つあるということはありませんか?
この記事は少しずつプログラムを作っていくスタンスなので、記事中にはプログラムが異なる Timer1_Tick が何回か登場します。
でも、これはTimer1_Tickを複数記述するという意味ではありません。
Timer1_Tickは1つだけにする必要があります。
この記事は少しずつプログラムを作っていくスタンスなので、記事中にはプログラムが異なる Timer1_Tick が何回か登場します。
でも、これはTimer1_Tickを複数記述するという意味ではありません。
Timer1_Tickは1つだけにする必要があります。
投稿者 ぇえええええ  (小学生)
投稿日時
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
申し訳ないです。。。
________________________________________
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
申し訳ないです。。。
投稿者 HiDE-Ada  (社会人)
投稿日時
2013/10/16 00:48:40
下の部分にある
Private Sub Timer1_Tick...
End Sub
が不要ですね。
Private Sub Timer1_Tick...
End Sub
が不要ですね。
投稿者 ぇえええええ  (小学生)
投稿日時
2013/10/16 17:30:35
おぉ!消したらビルドエラーはなくなりました!
ありがとうございます。
自分の注意不足でした。。
今回はありがとうございました!
ありがとうございます。
自分の注意不足でした。。
今回はありがとうございました!
そして、Timer を使ってキャラクターを表示させるプログラムをフォームに書き込んだら、
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)には
同じ署名で複数の定義が存在します。
と出て、エラーが起きてしまいます。
どういうことなのか、またどのようにすればよいのか、教えてください m(_ _)m
VB2010です。