VB.net - 양식의 컨트롤 색인 바꾸기

소개

이미 VB6에 도입 된 사람들에게는 동일한 이름이지만 다른 색인을 가진 컨트롤을 쉽게 만들 수 있습니다.

VB.Net BG에서, 어려운 일들; 컨트롤 모음이 더 이상 존재하지 않습니다.

따라서이 부족을 극복하기위한 트릭을 개발해야하지만 걱정하지 마세요. VB.Net을 사용하면 모든 것이 가능합니다.
양식의 모든 컨트롤은 이미 컬렉션의 일부로 간주 할 수 있습니다. 거기에서 우리는 그들을 식별하려고 노력할 수 있습니다!
우리는 폼의 디자인을 구성하는 모든 "컨트롤"을 검토 할 수 있지만, 가장 큰 어려움은 각 컨트롤이 자체 속성을 소유한다는 것입니다.
이 첫 번째 접근 방식에서는 여러 유형의 여러 컨트롤의 속성을 단일 하위 코드의 일부 줄로 처리합니다.

예비

새 Windows Form 프로젝트 열기

4 개의 textBox를 붙여넣고 태그 속성 1, 2, 3 및 4를 설정합니다.
그림 상자 6 개를 붙여넣고 태그 속성 1, 2, 3, 4 ... 6을 설정합니다.
2 개의 단추 붙여 넣기

암호

이 코드는 가독성을 높이기 위해 두 개의 하위로 나뉘지만 단일 하위로 구현할 수 있습니다.

원하는 경우 두 줄을 모두 지울 수 있습니다. Img.image = ...

이미지는 지퍼에 있습니다.

'=========================================== =============

'양식에,

'4 TextBox 독점 태그 1 4

'6 PictureBox 고유 태그 1 6

'=========================================== =============

 공용 클래스 Form1 Private Sub Form1_Load (ByVal 보낸 사람으로 System.Object, ByVal e As System.EventArgs) 처리 MyBase.Load InitPic () InitText () End Sub Sub InitText () Dim Ctl 컨트롤로 Dim Txt 텍스트 상자로 정적 NbAlea As Integer NbAlea + = 1 : NbAlea> 4이면 NbAlea = 1 각 컨트롤에 대해 Me.Controls '컨트롤을 클릭하십시오. TypeOf Ctl이 텍스트 상자 인 경우'텍스트 큐브를 선택하십시오. Txt = Ctl Txt.Tag = NbAlea 그 다음에 TextBox는 TextBox의 "TextBox": "Txt.Name"Txt.BackColor = Color .Fuchsia Else Txt.Text = ""Txt.BackColor = Color.Empty End If End If 다음 End Sub Sub InitPic () 희미한 그림으로 제어 Img PictureBox로 정적 NbAlea As Integer NbAlea + = 1 : NbAlea> 6이면 NbAlea = 1 '그림 상자에 그림 문자를 입력하십시오. 그림에 문자를 입력하십시오. 그림에있는 각 그림에 대해 그림을 그리십시오. TypeOf Pi c PictureBox이면 Img = Pic이면 Pic.Tag = NbAlea이면 Img.BackColor = Color.Aquamarine Img.BorderStyle = BorderStyle.Fixed3D 'Img.Image = System.Drawing.Bitmap.FromFile (My.Application.Info.DirectoryPath & \ bt "& NbAlea &".bmp ") 'Img.SizeMode = PictureBoxSizeMode.StretchImage Else Img.BackColor = Color.Chocolate Img.BorderStyle = BorderStyle.FixedSingle End If End If 다음 End Sub 개인 하위 Button1_Click (시스템으로 ByVal 보낸 사람. Object, ByVal e As System.EventArgs) Button1.Click InitText () End Sub Private Sub Button2_Click (ByVal 보낸 사람 System.Object, ByVal e As System.EventArgs) 처리 Button2.Click InitPic () End Sub End Class

다운로드 :