VB.Net - 여러 컨트롤에 대한 이벤트 및 속성 관리

이 시연은 다음을 목표로합니다.

Group Click과 TextBox_Changed evens는 6 개의 TextBox를 하나의 Sub로 묶었습니다.
색인을 허용하는 모음에는 6 개의 레이블을 포함하십시오.

전제 조건

새 Windows (양식) 프로젝트를 엽니 다.

여섯 개의 텍스트 상자를 붙여 넣으면 이름은 중요하지 않지만 Tag 속성에 숫자 (1 ~ 6)를 입력해야합니다.

여섯 개의 레이블을 붙이면 이름은 중요하지 않지만 Tag 속성에 숫자 (1 - 6)를 입력해야합니다.

레이블 (하단)에 이름 붙여 넣기 : Label14

TextBox 왼쪽의 여섯 개의 레이블은 선택 사항이며 벤치 마크로만 사용됩니다.

FormLoad 코드

데모는 6 개의 stextbox와 label을 기반으로하지만 번호는 있지만 쉽게 변경할 수 있습니다.

 Private Sub Form1_Load (ByVal 보낸 System.Object, ByVal e As System.EventArgs 같이) 처리합니다 MyBase.Load Dim Ctr 컨트롤로 각 Ctr Me.Controls 경우 TypeOf Ctr 경우 TextBox Then '텍스트 상자를 초기화합니다. AddHandler Ctr.TextChanged, AddressOf AllTextBox_TextChanged AddHandler Ctr.Click, AddressOf AllTextBox_Click ElseIf TypeOf Ctr이 레이블 인 경우 Ctr.Tag ""Then 레이블을 초기화합니다. LbGroupe.Add (Ctr, Ctr.Tag) End If End If Next End Sub

다운로드 중

== 클릭 및 텍스트 상자 _ 변경된 코드 =

 Private Sub AllTextBoxTextChanged (ByVal 보낸 사람 System.Object, ByVal e System.EventArgs) LbGroupe (sender.tag) .text = sender.text End Sub Private Sub AllTextBox_Click (ByVal 보낸 사람 Object, ByVal e System.EventArgs) Label14. Text = "TexBox N °"& sender.tag End Sub