トランプ画像 への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 HiDE-Ada  (社会人) 投稿日時 2013/11/2 18:22:18
一度Pictureboxに画像をセットしてからあと、画像を変更しないなら
Tagプロパティの利用で問題ないと思います。
注意点は、TagプロパティがObject型なので、使用時にCStr()などで
キャストする必要があります。

たぶん、配列などにカードのファイル名を格納していると思うのですが
cardlist(0) = "H-1.jpg"
　：
cardlist(11) = "H-12.jpg"

この配列の添え字、上の例では0をTagプロパティへ設定してもいいです。

また、同じカードを何度も判断する必要があるなら、
structure typecard
  dim mark as string
  dim num as integer　…　integerにするかstringにするかは今後の使用方法による
end structure

をどこかで定義して、Pictureboxへ画像をセットするときに
dim tc as typecard
tc.mark = "H"  …実際にはLeft(filename,1)とかのコードで
tc.num = 1　…同様に、filenameなどからコードで
Picturebox1.tag = tc

として、使用時に
tc1 = ctype(Picturebox1.tag, typecard)
tc2 = ctype(Picturebox2.tag, typecard)
if tc1.num = tc2.num then
 ：

とすれば、何度も変換処理する必要がなくなります。
0
投稿者 bz9  (中学生) 投稿日時 2013/11/2 11:08:03
Picturebox のTagプロパティを使ってみるっていう手もありじゃないですか？
Tag = "H-1"
みたいにカードの情報を入れて、

Dim Mark As String = Tag.Split("-")(0)
Dim Num As String = Tag.Split("-")(1)

変数名、区切り文字などは自由ですけど、例として MarkとNum 区切り文字に ハイフンを使いました。
0
投稿者 一二三  (学生) 投稿日時 2013/11/2 09:09:27
ハートの１だったら「H-1.jpg」です
0
投稿者 一二三  (学生) 投稿日時 2013/11/2 09:07:27
ファイル名はカードがハートの１だったら「H-1」にしています。       
0
投稿者 HiDE-Ada  (社会人) 投稿日時 2013/11/2 01:38:33
トランプねたが続いてますが、カードを表示できているようなので
カードの画像のファイル名はなんでしょうか？

たとえば、ハートのＱの画像のファイル名はなんですか？
H12.pngとかでしょうか？
0
投稿者 一二三  (学生) 投稿日時 2013/11/2 00:09:26
今ピクチャーボックスにトランプ53枚をランダムに表示させているのですが 、表示中のトランプカードの数字やマークなどの情報を管理しておくようにしたいのですがどうしたら良いのかわからないのでぜひ教えて貰いたいです。
よろしくお願いいたします。(@_@)
0