[حل شده] سوال در مورد CheckBox

[میثم مقدم نیا]

با سلام خدمت اساتید و دوستان گلم
سوال من اینکه آیا امکانش هست
با چک باکس توی یوزر فورم چند آیتم مثل تکس باکس ،
لیبل و دکمه را مخفی و آشکار کرد
اگه راه حلی بود لطفاً با مثلا برام شرح دهید
ممنون از لطف شما اساتید ارجمند

[majid_mx4]

با سلام

توضیح : برای مخفی کرد شی های روی یوزر فرم مانند لیبل ، کمبوباکس، و دکمه و .... میتوانید از دستور زیر استفاده نمایید.( لطفا فرم را ایجاد یک چک باکس به آن اضافه کرده و دستور زیر را در محیط ماکرو کپی کنید )

[CODE][Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
ComboBox1.Visible = False
CommandButton1.Visible = False
Label1.Visible = False
Else
ComboBox1.Visible = True
CommandButton1.Visible = True
Label1.Visible = True
End If
End Sub
/CODE]
پایدار باشید میر

[میثم مقدم نیا]

با سلام خدمت استاد گلم آقا مجید ممنون بابت کدتون

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
ComboBox1.Visible = False
CommandButton1.Visible = False
Label1.Visible = False
Else
ComboBox1.Visible = True
CommandButton1.Visible = True
Label1.Visible = True
End If
End Sub 

موفق وسربلند باشید .

[میثم مقدم نیا]

با سلام

توضیح : برای مخفی کرد شی های روی یوزر فرم مانند لیبل ، کمبوباکس، و دکمه و .... میتوانید از دستور زیر استفاده نمایید.( لطفا فرم را ایجاد یک چک باکس به آن اضافه کرده و دستور زیر را در محیط ماکرو کپی کنید )

private sub checkbox1_click()
if checkbox1.value = true then
    combobox1.visible = false
    commandbutton1.visible = false
    label1.visible = false
else
    combobox1.visible = true
    commandbutton1.visible = true
    label1.visible = true
end if
end sub 

پایدار باشید میر

با سلام مجدد اقا مجید من کد php شما را وارد کردم ولی با یه مشکل روبرو شدم اونم اینکه وقتی یوزر فرم را باز میکنم اون آیتم های را که میخوام مخفی باشن و بعد از باز کردن هنوز فعال هستند و وقتی که تیک چک باکس را میزنم عمل میکنه یک فایل براتون پیوست میکنم که با توجه به اون راهنماییم کنید

[majid_mx4]

با سلام

دوست عزیز اگر درست متوجه منظورتان شده باشم لطفا کد زیر را به دستورات قبلی اضافه نمایید .

Private Sub UserForm_Initialize()
TextBox4.Visible = False
TextBox5.Visible = False
TextBox6.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = False
CommandButton2.Visible = False
End Sub

موفق باشید میر

[میثم مقدم نیا]

با سلام

دوست عزیز اگر درست متوجه منظورتان شده باشم لطفا کد زیر را به دستورات قبلی اضافه نمایید .

Private Sub UserForm_Initialize()
TextBox4.Visible = False
TextBox5.Visible = False
TextBox6.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = False
CommandButton2.Visible = False
End Sub 

موفق باشید میر

با سلام مجدد
خیلی ممنون عالی بود

---

در سرزمینی کہ نتوان مردانہ زیست ، مردانہ مردن بهتر از این زندگیست