tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 変数名を使ってオブジェクト名の指定を変更
投稿日: 2006/07/17(Mon) 20:20
投稿者MOKO
ExcelVBAからVB2005にソフトを作り替えようとしております。
フォーム上にあるテキストボックスのオブジェクト名の指定を変数名を使って可変させたいと思っております。
計算内容は、各商品の数量と金額の合計を出すだけです。
下記、プログラムはVBAの時に使っていたモノです。
これをVB2005で似たように動作させたいのですがうまく出来ません。

各テキストボックスは、下図の様に表になっております。
ans_A1、kazu_A1、kingaku_A1
ans_A2、kazu_A2、kingaku_A2
ans_B1、kazu_B1、kingaku_B1
ans_B2、kazu_B2、kingaku_B2
最後の_A1の部分のみを変更して、コマンドボタンごとにセットした値を使ってテキストボックスのオブジェクト名を可変するにようにしたいのですがうまくいきません。
ご教授の程宜しく御願いします。

Option Explicit
Dim my_set As String
Dim my_ans As String
Dim my_kazu As String
Dim my_kingaku As String

Private Sub CommandButton1_Click()
    my_set = "_A1"
    Call code
End Sub

Private Sub CommandButton2_Click()
    my_set = "_B1"
    Call code
End Sub

Private Sub code()
'合計=数量×金額 の計算
        Me.Controls("my_ans" & my_set).Value = Me.Controls("my_kazu" & my_set).Value * Me.Controls("my_kingaku" & my_set).Value
End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。