disable toàn bộ button click, textbox trong form(page)

[thanhnhanubnd]

trong form mình có nhiều page 1,2,3.Trong page 2 của mình có 2 nút option và 1 số button click, textbox. Nay mình muốn disable toàn bộ button click, textbox chỉ chưà lại option thì làm cách nào.Nếu disable từng cái thì vẫn được nhưng dòng code dài quá.

 

[tedaynui]

trong form mình có nhiều page 1,2,3.Trong page 2 của mình có 2 nút option và 1 số button click, textbox. Nay mình muốn disable toàn bộ button click, textbox chỉ chưà lại option thì làm cách nào.Nếu disable từng cái thì vẫn được nhưng dòng code dài quá.

Bạn cho thuộc tính ENABLE của mỗi đối tượng là False. Nhưng nếu có nhiều đối tượng, bạn muốn code ngắn hơn thì có nhiều bài trên 4R có đề cập vấn đề này. Hoặc bạn đưa file ví dụ sẽ tiện hơn. Ví dụ như :

Dim Obj As Object
  For Each Obj In UserForm1.Controls
      If UCase(TypeName(Obj)) = "TEXTBOX" Then
            '......
            '.....
      End If
  Next Obj

TDN

 

[sealand]

Dưới đây là đoạn code để ẩn tất cả trừ OptionButton1

Private Sub CommandButton1_Click()
Dim dk As Control
For Each dk In Me.Controls
If dk.Name <> "OptionButton1" Then dk.Visible = False
Next
End Sub

 

[cobedethuong]

ai có code của C# về vấn đề này không gửi cho mình với