PictureBoxs(0).Image〜PictureBoxs(8).Imageにはそれぞれ、JPG画像が入れております。その画像が同じか検証し、3つのIF内のPictureBoxsの画像が同じならcoinが+10されるプログラムです。しかしエラーが出ました。どの様にしたら良いでしょうか?
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Timer3.Stop()
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
If PictureBoxs(0).Image = PictureBoxs(3).Image<A> And PictureBoxs(3).Image = PictureBoxs(6)<A>.Image Then
coin = coin + 10
End If
If PictureBoxs(1).Image = PictureBoxs(4).Image<A> And PictureBoxs(4).Image = PictureBoxs(7).Image<A> Then
coin = coin + 10
End If
If PictureBoxs(2).Image = PictureBoxs(5).Image<A> And PictureBoxs(5).Image = PictureBoxs(8).Image<A> Then
coin = coin + 10
End If
If PictureBoxs(0).Image = PictureBoxs(4).Image<A> And PictureBoxs(4).Image = PictureBoxs(8).Image<A> Then
coin = coin + 10
End If
If PictureBoxs(2).Image = PictureBoxs(4).Image<A> And PictureBoxs(4).Image = PictureBoxs(6).Image<A> Then
coin = coin + 10
End If
Text1.Text = coin
If coin >= 3 Then
Button1.Enabled = True
End If
End Sub
<A>演算子'='は、型'System.Drawing.Image'及び'System.Drawing.Image'に対して定義されてません。
[VB.NET]の場合、メニューより
[表示]-[その他のウィンドウ]-[タスク一覧]
で表示されるウィンドウにエラーメッセージが表示されます。
エラー表示を選択して[F1]キーを押すとエラーの説明と解決法
のヘルプへ飛びますので参考にして下さい。
Is 演算子を使うことになると思いますが、Is 演算子は、2 つの
オブジェクト参照が同じオブジェクトを参照しているかどうかを
判定します。値の比較は行われません。
同じ画像でも、メモリ上のアドレスが違う(コピーされている)場合は
違う画像と判断されます。ヘルプに書いてある動作を理解してから
ご使用下さい。
ヘルプは、PCが重過ぎるため未インストールです。
ココは「軽いヘルプ」ではありませんよね
http://msdn.microsoft.com/library/ja/
ここがヘルプ代わりになりますよ :D
他のスレを見ると[VB2005]のようなのでこっちかな?
[MSDN2 Library]
http://msdn2.microsoft.com/ja-jp/library/default.aspx
> ヘルプは、PCが重過ぎるため未インストールです。
キーワードを知ってればオンラインヘルプでも調べられるけど、
知らないならローカルにヘルプのインストールは必須でしょう。
それをしないなら、開発をあきらめた方が賢明です。
確かに、、、orz
特攻隊長まるるうさんフォローありがとうございます。
もしもですけどスロットのプログラムだというのなら、現在出ている絵柄を数値などで格納している変数を作ってその変数の内容を調べる事でどうかなと思いました。
第六感が当たって無かったらすいません。
ツイート | ![]() |