タイトル : Re: 変数名を使ってオブジェクト名の指定を変更 投稿日 : 2006/07/17(Mon) 20:42 投稿者 : YAS
次のようにすれば動作はします。が,このようなやり方はたぶん推奨されないと思います。 答えておいてなんですが,「使わないほうがよい」とみんなに言われるコードです。 参考:http://jeanne.wankuma.com/tips/form/findcontrol.html ※他のサイトで申し訳ありません。VBレスキューのVB.NETTipsも探したのですが... 見つかりませんでした。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click Call code("_A1") End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button2.Click Call code("_B1") End Sub Private Sub code(ByVal s As String) Me.Controls("ans" & s).Text = CStr(CInt(Me.Controls("kazu" & s).Text) * _ CInt(Me.Controls("kingaku" & s).Text)) End Sub |