VB 창의 모든 텍스트 상자 비우기 (기타 컨트롤 동일)

615 단어 vbeachtextbox
text1.text=""
text2.text=""
...........
.........
위의 그런 방법은 너무 품이 든다
    Dim ctrl As Control
    For Each ctrl In Me.Controls
        If TypeOf ctrl Is TextBox Then   '      TextBox
            ctrl.Text = ""
        End If
    Next

코드는 간단하고 이해하기 쉬우나 실로 우리에게 큰 편리를 가져다 주었다. 다른 컨트롤러를 비우면 변화를 적게 하면 된다
예를 들어 랩의 내용을 비우려면 세 번째 줄의textbox를 랩의 네 번째 줄의ctrl로 바꾸십시오.text를 ctrl로 변경합니다.캡션하면 돼요.
이 코드는'비우기'뿐만 아니라 여러 번 실행해야 하는 비슷한 것들도 실행할 수 있습니다. 서로 다른 기능에 대해 상응하는 변형만 하면 됩니다. 구체적인 예는 제가 들지 않겠습니다. 여러분은 서로 다른 수요에 따라 스스로 개조하세요.

좋은 웹페이지 즐겨찾기