[365.xls]



' [mjSumple] のコード
'■■ テキストボックスに補足的な情報を設定する ■■
'
'

'フォームを表示します
Sub frmSumple_Show()
       
    frmSumple.txtInput1.Tag = 1 'Tagﾌﾟﾛﾊﾟﾃｨに 1 をセット
    frmSumple.txtInput2.Tag = 2 'Tagﾌﾟﾛﾊﾟﾃｨに 2 をセット
    frmSumple.txtInput3.Tag = 1 'Tagﾌﾟﾛﾊﾟﾃｨに 1 をセット
    
    'フォームの表示
    frmSumple.Show
End Sub


Sub Btn1_Click()
    Dim ctrl As Control 'コントロール型の変数を作成

    'frmSumple上の全てのコントロールを調べます。
    For Each ctrl In frmSumple.Controls
        'そのコントロールがTextBoxだったら
        If ctrl = TextBox Then
            'Tagプロパティの値が 1 だったら
            If ctrl.Tag = "1" Then
                'そのコントロールを非表示にします
                ctrl.Visible = False
            Else
                'そのコントロールを表示にします
                ctrl.Visible = True
            End If
        End If
    Next ctrl
End Sub

Sub Btn2_Click()
    Dim ctrl As Control 'コントロール型の変数を作成

    'frmSumple上の全てのコントロールを調べます。
    For Each ctrl In frmSumple.Controls
        'そのコントロールがTextBoxだったら
        If ctrl = TextBox Then
            'Tagプロパティの値が 2 だったら
            If ctrl.Tag = "2" Then
                'そのコントロールを非表示にします
                ctrl.Visible = False
            Else
                'そのコントロールを表示にします
                ctrl.Visible = True
            End If
        End If
    Next ctrl
End Sub




' [frmSumple] のコード

Private Sub cmdBtn1_Click()
    Call Btn1_Click
End Sub

Private Sub cmdBtn2_Click()
    Call Btn2_Click
End Sub