----저자는 VISUALFOXPRO에서 문자 페이드아웃 및 페이드인을 구현하는 방법에 대한 "컴퓨터 세계"의 기사를 가끔 읽었습니다. 이에 영감을 받아 저자는 원본 기사를 참조하여 유사한 문자 페이드아웃 및 페이드인을 작성했습니다- Visual Basic 4.0 프로그램을 사용하여 Microsoft의 시각적 개발 도구의 공통점(동일하거나 유사한 그래픽 사용자 인터페이스(GUI), 객체 지향 및 이벤트 중심 기능, 동일하거나 유사한 기능 등)을 설명합니다. 이 기능을 통해 프로그램 개발자와 디자이너는 다양한 Microsoft 시각화 도구를 사용하여 개발된 응용 프로그램에서 학습하고 편리한 이식을 수행하여 개발 주기를 단축할 수 있습니다. 동시에 이는 컴퓨터 언어를 학습하는 데에도 중요한 역할을 할 수 있습니다.
----문자의 페이드인 및 페이드아웃 기능은 라벨(LABEL) 컨트롤의 전경을 지속적으로 변경하여 수행할 수 있습니다. 컨트롤 전경의 변경,
디자인 타임에 레이블 컨트롤의 전경 속성을 사용하여 설정할 수도 있고, 전경 속성에 다른 색상 값을 할당하여 프로그램에서 구현할 수도 있습니다. 색상은 RGB 기능으로 제공됩니다(VisualFoxpro에도 이 기능이 있습니다). 타이머 제어에 의해 생성된 인터럽트는 RGB 매개변수 값을 연속적으로 변경하는 데 사용되므로 문자의 전경이 이에 따라 변경되어 페이드 인 및 아웃 목적을 달성할 수 있습니다.
----Visual Basic 4.0으로 작성된 다음 프로그램은 두 가지 기능을 완성합니다. (1) 문자 페이드 인 및 아웃, 256*256*256 색상 변경이 있습니다. 여기서는 회색에서 빨간색으로의 변경만 선택됩니다.
(2) 페이드 아웃할 때는 문자가 작은 것에서 큰 것으로, 페이드 인할 때는 큰 것에서 작은 것으로 이동합니다. 또한, 본 프로그램의 구현과정은 VisualC, Visualjava 등의 시각적 언어에 완전하고 쉽게 이식될 수 있다.
----1. VisualBasic4.0을 시작하고 자동으로 양식을 생성합니다. 기본값은 FORM1입니다.
----2. 다음과 같이 양식의 속성을 설정합니다.
이름:데모
캡션: VB는 문자 페이드인 및 페이드아웃을 구현합니다.
BACKCOLOR: &H00C0C0C0, 즉 배경이 회색입니다.
----3. DEMO 형식으로 다음과 같은 형식 변수를 정의합니다. 즉, General-선언 과정에서 색상 매개변수 R, G, B를 정의합니다.
DimrAsInteger
DimgAsInteger
DinbAsInteger
----4. Form-load 과정에서 문자 색상의 초기값, 즉 회색을 설정합니다.
색상:
PrivateSubForm_Load()
r=192
g=192
b=192
EndSub
----5. DEMO 양식에 레이블을 추가하고 다음과 같이 속성을 설정합니다.
이름:LABEL1
캡션: 하얼빈 SDIC 채권 거래 시스템
AUTOSIZE: TRUE, 문자 크기 조정을 달성하는 데 사용됩니다.
백스타일: 0-TRANSPARENT, 즉 투명
FONT : 폰트는 공식 스크립트이며, 크기는 8로 선택되었습니다.
----6. 페이드아웃 기능을 완료하려면 양식에 타이머 컨트롤을 추가하세요.
이름: 아웃타이머
INTERVAL: 50, 이는 1초에 한 번씩 중단되고 색상이 한 번씩 변경됨을 의미합니다.
----7. 페이드인 기능을 완료하려면 다른 타이머를 추가하세요.
이름: 인타이머
간격: 50
----8. OUTTIMER의 TIMER 프로세스에 다음 코드를 추가합니다.
PrivateSubOuttimer_Timer()
Ifr<255그러면
r=r1
또 다른
r=255
종료
Ifg>3그러면
g=g-3
그렇지 않으면:g=0
종료
Ifb>3그러면
b=b-3
그렇지 않으면:b=0
종료
Label1.FontSize=Label1.FontSize 0.75
Label1.ForeColor=RGB(r,g,b)
IfLabel1.FontSize>=72그러면
Outtimer.Enabled=False
Intimer.Enabled=참
종료
EndSub
----9. INTIMER에 다음 코드를 추가합니다.
PrivateSubIntimer_Timer()
Ifr>192그러면
r=r-1
또 다른
r=192
종료
Ifg<192그러면
g=g3
그렇지 않으면:g=192
종료
Ifb<192그러면
b=b3
그렇지 않으면:b=192
종료
Label1.FontSize=Label1.FontSize-0.75
Label1.ForeColor=RGB(r,g,b)
IfLabel1.FontSize<=8Then
Intimer.Enabled=거짓
Outtimer.Enabled=참
종료
EndSub
----위 단계를 완료한 후 실행 버튼을 누르면 "하얼빈 SDIC 증권 거래 시스템"이라는 단어가 작은 크기에서 큰 크기로, 글꼴이 지정된 크기에 도달하면 얕은 크기에서 깊은 크기로 표시되는 것을 볼 수 있습니다. 도달하면 페이드인 및 페이드아웃 기능을 실현하기 위해 점차 형태로 사라집니다.
->