도시의 밤에는 온갖 종류의 네온 불빛이 번쩍이고 있는데, 그중 가장 흔히 사용되는 것은 아마도 흐르는 물빛이 조용한 밤에 활력을 불어넣는 것일 것이다. 우리가 만든 멀티미디어 소프트웨어의 인터페이스에 일련의 반짝이는 물빛을 추가하면 어떤 효과가 있을까요? 멀티미디어 프로그램에 추적 효과를 주는 일련의 흐르는 물 조명을 추가하려면 아래 단계를 따르십시오.
1. 새 양식을 만듭니다. Visual5asic4.0 시스템 환경에 들어가서 새 양식(FORM1)을 만들고 FORM1의 Backcolor 속성을 RGB(192,192,192)로 설정합니다.
2. 첫 번째 랜턴을 만듭니다. "Form Control Bar"의 "Label"을 마우스로 클릭한 후 FORM1에서 직사각형 상자(LABEL1)를 꺼냅니다. Caption 속성을 "★"로 설정합니다(다른 문자일 수도 있습니다. 여기서 "★"는 WINDOWS95의 "액세서리"의 "문자표"에서 찾을 수 있음). Autosize는 .T., Backstyle은 0, Forecolor 빨간색으로, 글꼴 크기는 18입니다.
3. 다른 29개의 랜턴을 만듭니다. LABEL1을 마우스로 클릭하고 CTRL C(복사) 키를 누른 다음 CTRL V(붙여넣기) 키를 눌러 FORM1의 LABEL1과 동일한 제목을 가진 다른 레이블(LABEL1 (1))을 생성하라는 메시지가 나타나면 'YES'를 선택합니다. 컨트롤 배열을 생성할지 여부를 화면에 표시합니다. 이 복사를 반복하여 총 30개의 라벨을 만들고 이 30개의 라벨을 직사각형 상자에 순서대로 배열합니다.
4. 타이머를 생성하세요. "Form Control Bar"의 "Timer"를 마우스로 클릭한 후 FORM1을 한 번 클릭하면 FORM1에 타이머(TIMER1)가 생성된다. 간격 속성을 400으로 설정합니다.
5. FORM1을 두 번 클릭하고 FORM1의 로드 프로세스를 다음과 같이 작성합니다.
PRivateSubForm_Load()
나=0
Forj=0To9
Label1(j*3).ForeColor=&HFF&'red
Label1(j*3 1).ForeColor=&HFF00&'녹색
Label1(j*3 2).ForeColor=&HFFFF&'노란색
넥스트
EndSub
6. TIMER1을 두 번 클릭하고 TIMER1의 타이머 프로세스를 다음과 같이 작성합니다.
PrivateSubTimer1_Timer()
I=30이면
나=0
종료
나=나 1
J=0To29의 경우
Label1(J).Visible=False
다음J
IfIMod3=2그러면
J=0To9의 경우
Label1(J*3 1).Visible=True
다음J
또 다른
IfIMod3=0그러면
J=0To9의 경우
Label1(J*3 2).Visible=True
다음J
또 다른
J=0To9의 경우
Label1(J*3).Visible=True
다음J
종료
종료
EndSub
양식을 실행한 후 빨간색, 녹색, 파란색 표시등이 번갈아 켜지는 것을 볼 수 있습니다. Timer1의 Interval 속성 값을 조정하면 세 가지 조명 그룹의 주기 속도를 변경할 수 있습니다.
위 프로그램은 VisualBasic5.0과 Windows95에서 성공적으로 실행됩니다. ->