Vb: 색상 열거 유형을 선언합니다. 열거 유형의 멤버를 사용하여 양식의 다른 레이블 색상 변경: 528740768@qq.com

"Private Enum Color" 는 Color 라는 열거 유형을 정의합니다.

블랙 = 1

흰색 = 2

노란색 = 3

빨간색 = 4

녹색 = 5

파란색 = 6

열거를 마치다

개인 하위 명령 1_Click ()

Dim My_Color As Color 변수 My _ Color 를 색상으로 사용하여 열거 유형을 정의합니다.

Dim Back_Color As Color 변수 Back _ Color 를 색상으로 사용하여 열거 유형을 정의합니다.

"내 색상 = 녹색" 은 내 색상에 값을 할당합니다.

"Back_Color = Black" 은 Back_Color 에 값을 할당합니다.

Text1.text = My _ Color+Back _ Color' 텍스트 상자에 my _ color+back _ color 값을 표시합니다.

끝단 접합

구체적으로 참고할 수 있습니다.

안에 그림이 있어 절차가 더 잘 보일 것이다.