visible

質問

いつもお世話になってます。
a1というチェックboxによって、表示を変えたいのですが、上手くいきません。ご教授ください。

Private Sub a1_Change()
Dim z As Integer

For z = 23 To 38
az .Visible = a1.Value
Next

Dim x As Integer

For x = 42 To 57
az .Visible = a1.Value
Next
Frame181.Visible = a1.Value
End Sub

回答No.2

josyo_m · ベストアンサー

お疲れ様です。

通常、「az」として現されているものが同じコントロールであれば
コントロール配列を使用します。

コントロール配列を用いた場合の書き方は、

Private Sub a1_Click()

　　Dim z As Integer

　　For z = 23 To 38

　　　　a(z).Visible = a1.Value

　　Next z

　　For z = 42 To 57

　　　　a(z).Visible = a1.Value

　　Next z

　　Frame181.Visible = a1.Value

End Sub

と、なります。

もし、同じコントロールでは無い、その他の理由でコントロール配列に
出来ない場合の書き方は、

Private Sub a1_Click()

　　Dim z As Integer

　　For z = 23 To 38

　　　　Me.Controls("a" & CStr(z)).Visible = a1.Value

　　Next z

　　For z = 42 To 57

　　　　Me.Controls("a" & CStr(z)).Visible = a1.Value

　　Next z

　　Frame181.Visible = a1.Value

End Sub

と、なります。

間違っていたらごめんなさい。

補足

完璧に出来ました！(ちなみに下の方で。)

有り難うございます。

　　　　Me.Controls("a" & CStr(z)).Visible = a1.Value

の意味、特にme.controlsの部分、もし宜しかったら意味もご教授いただけますでしょうか？

回答No.3

josyo_m

お疲れ様です。

うまくいって良かったですね＾＾ほっとしました＾＾

補足の件を説明いたします。

「Me」は、プログラムソースを記述しているFormオブジェクト自身を指します。
「Controls」は、そのオブジェクトに属しているコントロールのコレクションです。

「Me.Controls」で、Formオブジェクトに属しているコントロールを参照することが出来ます。
Meを使わずにForm名を使っても良いです。(Form1.Controls等でもＯＫ)
「Me.Controls(コントロール名)」でコントロールを参照できます。

なので、例にあげたソースで、z = 32の時に、
Me.Controls("a" & CStr(z)).Visible = a1.Value
は、
Me.Controls(a32).Visible = a1.Value
となり、
a32.Visible = a1.Value
と同じ扱いになります。

ただし、通常VBではこのような使い方は滅多にしません。(自分の経験上)
コントロール配列を使用することの方が多いと思われます。

間違っていたらごめんなさい。

お礼

解りやすい説明ありがとうございました！
とっても勉強になります！
コントロール配列・・・よくわからないのでこれも勉強してみます！

回答No.1

noname#3241

Visibleプロパティは『True』か『False』で値を返すので、

表示したいときは
az .Visible = True

非表示の場合は
az .Visible = False

をセットすれば良いと思うのですが。もしやりたいことが見当外れでしたら申し訳ありません。