مخفی کردن چند object همزمان

[look20]

سلام خسته نباشید
دوستان کسی میدونه چطور میشه همزمان چند object رو مخفی کرد و نمایش داد
همون Visible منظورمه
البته برای دکمه میتونم تعریف کنم ولی برای همزمان دکمه تصویر کمبو تکس باکس و ... نتونستم
با تشکر

[saeedvir]

Private Sub Form_Load()

Text1.Visible = False
Picture1.Visible = False
Image1.Visible = False
Combo1.Visible = False
Command1.Visible = False

End Sub

[parselearn]

http://barnamenevis.org/showthread.php?154594-%D8%A7%D8%B2-%DA%A9%D8%A7%D8%B1-%D8%A7%D9%86%D8%AF%D8%A7%D8%AE%D8%AA%D9%86-%D8%AA%D8%A7%DB%8C%D9%85%D8%B1&highlight=form.control

[look20]

با تشکر از دوستان ولی منظورم این نیست اینو که همه بلدن میخام یه sub تعریف کنم و مثلا توی اون تمام object هایی رو که میخام در دستورش Visible=False کنم و هر جا خواستم فقط این sub رو صدا کنم و مثلا True یا False کنم
این دستور برای مخفی یا نمایش دادن دکمه

Private Sub SetButtons4(bVal As Boolean)
Buttons1.Visible = bVal
Buttons2.Visible = bVal
Buttons3.Visible = bVal
Buttons4.Visible = bVal
End Sub
و این دستور هم برای استفاده از sub
SetButtons4 True
یا
SetButtons4 False
این دستور فقط برای دکمه کاربرد داره وبرای عکس و تکس باکس و کمبو و ... همزمان جواب نمیده

[skh1300]

سلام
یه چک باکس بزار و کنترل هایی را روی فرم قرار بده


Dim obj As Object
For Each obj In Me.Controls
If obj.Name <> Check1.Name Then obj.Visible = Check1.Value
Next

[knight-rak]

سلام
یه چک باکس بزار و کنترل هایی را روی فرم قرار بده


Dim obj As Object
For Each obj In Me.Controls
If obj.Name <> Check1.Name Then obj.Visible = Check1.Value
Next


میشه یکم در موردش توضیح بدید که چطور هست و چطور کار میکنه

[skh1300]

میشه یکم در موردش توضیح بدید که چطور هست و چطور کار میکنه

خط اول یه متغیر از نوع آبجکت تعریف میکنیم(می تونیم به جاش control هم قرار بدیم)
خط دوم میگه از اولین کنترل تا آخرین کنترل را پیدا میکنیم
خط سوم اگر کنترلی که مورد نظر هست نامش مخالف check1 شد کنترل visible برابر با check1.value بشه
به همین سادگی!:لبخند:

[vb study]

بهترين و ساده ترين راه استفاده از frame است همه ابجكتها رو تو يك frame قرار بده و بعد كافيه فقط visible اون رو خاموش كني