ダイレクトキャスト への返答
投稿で使用できる特殊コードの説明。(別タブで開きます。)
以下の返答は逆順(新しい順)に並んでいます。
投稿者 魔界の仮面弁士 (社会人)
投稿日時
2008/11/14 21:07:29
とりあえず、ClickPicture.Name で判断してみては如何でしょう。
もしくはデザイン時に、PictureBox の Tag プロパティに
管理用の番号を振っておき、それを受け取るようにするとか。
Dim CharacterNumber As Integer = CInt(ClickPicture.Name.Substring("waku".Length))
もしくはデザイン時に、PictureBox の Tag プロパティに
管理用の番号を振っておき、それを受け取るようにするとか。
Dim CharacterNumber As Integer = CInt(ClickPicture.Tag)
投稿者 コーエーレーお (小学生)
投稿日時
2008/11/14 20:52:44
緋竜はダサイんで、名前を変えましたｗｗ
ピクチャBoxの何番目を参照してるか、変数に代入したいんですが。
別の方法ではやれるんだけど、このsubの中でやりたい。
パネル1に15個のピクチャBoxがあるんです。
できる人が居たら、教えて（＾ｗ＾）
Private Sub waku_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles waku1.Click, waku9.Click, waku8.Click, waku7.Click, waku6.Click, waku5.Click, waku4.Click, waku3.Click, waku2.Click, waku15.Click, waku14.Click, waku13.Click, waku12.Click, waku11.Click, waku10.Click
Dim ClickPicture As Windows.Forms.PictureBox = DirectCast(sender, Windows.Forms.PictureBox)
ClickPicture.Image = form1Kyara(kyaraNo)
End Sub
ピクチャBoxの何番目を参照してるか、変数に代入したいんですが。
別の方法ではやれるんだけど、このsubの中でやりたい。
パネル1に15個のピクチャBoxがあるんです。
できる人が居たら、教えて（＾ｗ＾）
Dim ClickPicture As Windows.Forms.PictureBox = DirectCast(sender, Windows.Forms.PictureBox)
ClickPicture.Image = form1Kyara(kyaraNo)
Dim Kyara As Integer = CInt(ClickPicture.Tag)
MsgBox(Kyara)
確認しました。（＾＾）
すごい即答ですね。
（＾礼＾）