VisualBasic6.0으로 영화 특수 효과 구현

영화나 TV에서 자막이나 그림의 동적인 변화를 흔히 볼 수 있는데, 멀티미디어 교육용 소프트웨어나 광고 등 멀티미디어 프리젠테이션 문서를 제작할 때에는 그림과 텍스트의 동적인 변화가 필요한 경우가 많습니다. Windows 소프트웨어를 위한 강력한 개발 도구인 VB6.0은 멀티미디어 프로그래밍 분야에서 광범위한 응용 가능성을 가지고 있습니다. 이 문서에서는 그림이나 텍스트의 동적 크기 조절 및 페이딩과 같은 특수 효과를 얻기 위해 Windows API 기능과 결합된 VB6.0 타이머를 사용하는 방법에 대해 설명합니다.

1. 그래픽과 텍스트의 동적 스케일링과 페이드아웃 효과를 구현하는 프로그래밍 방법

1. 프로그램 인터페이스

양식 이름을 Form1로 지정하고 Windowstate 속성을 2로 설정합니다. Form1 양식에서 다음 컨트롤과 속성을 설정합니다. 배경색이 form1의 배경색과 같고 Autosize가 True인 레이블 컨트롤 Label1입니다. 이미지 제어 image1, 해당 Stratch 및 Visible은 모두 Bordstyle이 0입니다. 두 개의 그림 상자 컨트롤 Picture1 및 Picture2, Visible 속성 Picture1은 False이고 Picture2는 True입니다. ScaleModel 속성은 모두 Pixels입니다. 3개의 타이머 컨트롤 Timer1, Timer2 및 Tirner3; 명령 버튼 컨트롤 배열 cmd(0),...,Cmd(4), 해당 캡션 속성은 "텍스트 확대/축소", "그림 확대/축소", "텍스트" 숨기기," "그림 숨기기' 및 '종료'를 선택합니다.

2. 텍스트의 동적 크기 조정

VB6.0의 타이머 제어를 통해 정기적으로 텍스트의 Size 속성을 변경하면 텍스트가 동적으로 확대되거나 축소되는 효과를 얻을 수 있습니다. 프로그램에서 Label1 라벨의 캡션 속성의 텍스트 크기는 타이머1의 튜너 프로세스를 통해 제어됩니다. cmd(0)에 의해 트리거된 cmd_click 이벤트는 논리 변수 1(0)(배열 요소)을 통해 텍스트가 변경되는 방식을 제어하는 ​​타이머1_time 프로세스를 트리거합니다. 1(0)=true이면 글꼴이 동적으로 확대되고, 1(0)=false 글꼴을 동적으로 더 작게 만듭니다.

3. 그래픽의 동적 스케일링

이미지 컨트롤 image1의 Stretch 속성을 true로 설정하여 imagel 컨트롤의 크기가 변경됨에 따라 컨트롤의 그림 크기도 변경되도록 합니다. 타이머2의 튜너 프로세스를 통해 이미지 컨트롤의 크기를 정기적으로 변경하면 이미지의 동적 스케일링 효과가 달성됩니다. cmd(1)에 의해 트리거된 cmd_click 이벤트는 논리 변수 1(1)을 통해 이미지가 변경되는 방식을 제어하는 ​​타이머2_time 프로세스를 트리거합니다. 1(1)=true이면 이미지의 동적 확대를 제어합니다. (1)=false이면 이미지의 동적 축소를 제어합니다.

4. 텍스트 페이드인 및 페이드아웃 효과

레이블 Label1의 캡션 값으로 문자열에서 여러 단어를 가져옵니다. 문자열에서 가로채는 단어 수가 증가하면(문자열의 총 단어 수와 같아질 때까지) 텍스트 페이드 효과가 달성됩니다. 가로채는 단어 수가 감소하고(문자열의 단어 수에서) 문자열의 총 문자 수가 0으로 감소하고 텍스트 페이드 효과가 달성됩니다. 이 효과는 time:timer3의 프로세스를 통해 가로채는 단어의 수를 정기적으로 변경함으로써 달성됩니다. cmd(2)에 의해 트리거됩니다. md_click 이벤트는 타이머3_time 프로세스를 트리거하고 논리 변수 1(2)을 통해 텍스트가 변경되는 방식을 제어합니다. 1(2)=true이면 텍스트가 페이드 인되고, 1(2)=false이면 텍스트가 페이드 아웃됩니다. .

5. 그래픽의 페이드인 및 페이드아웃 효과

이는 Windows API 함수 BitBlt를 사용하여 사진을 복사함으로써 달성됩니다. BitBlt 기능의 사용법은 다음과 같습니다.

각 매개변수의 의미는 다음과 같습니다. hDestDC 및 hSrcDC는 각각 대상 장치 설명 테이블 핸들과 소스 장치 설명 테이블 핸들을 나타냅니다. 그것은 hSrcDC에서 hDestDC로 그림을 복사하는 것입니다. Picturellox 컨트롤의 hDC 속성은 우리가 사용하려는 장치 컨텍스트 핸들입니다. x, Y는 대상의 왼쪽 상단 위치를 나타내고, nWidth, nHeight는 대상의 너비와 높이를 나타냅니다. 즉, 대상 장치 컨텍스트 테이블의 어디에 이미지를 복사해야 하는지, 너비와 높이를 얼마나 복사해야 하는지입니다. xsrc와 ySrc는 원본 이미지의 왼쪽 상단 위치, 즉 복사를 시작할 위치를 나타냅니다. DwRop 매개변수는 그리기 방식을 나타내며, 이 경우에는 SRCCOPY를 주로 사용한다.

2. 이미지와 텍스트의 동적 스케일링과 페이드인 및 페이드아웃 특수 효과를 구현하는 프로그램 코드

Dim1(4)AsBoolean,iasLong,sAsString,ztAsInteger

'그림의 페이드인과 페이드아웃을 구현하는 일반적인 과정:

PRivateSubPicCpy(OptionalstripAsInteger=10,OptionaldelayAsInteger=20)

DimplwAsInteger,plhAsInteger,p2AsInteger

If1(3)=TrueThen

Picture1=LoadPicture("c:/win98/installer.bmp")

또 다른

Picture1=사진 로드("")

종료

plw=그림.폭

plh=그림.높이

p2=0

DoWhilep2<=plw

BitBltPicture2.hDC,p2,0,strip,plh,Picture1.hDC,p2,0,SRCCOPY

p2=p2 스트립

수면지연

Do이벤트

루프' 이미지의 너비가 반드시 스트립의 정수배일 필요는 없으므로 전체 이미지가 아래에 복사됩니다.

BitBltPicture2.hDC,0,0,plw,plh,Picture1.hDC,0,0,SRCCOPY

EndSub

PrivateSubForm_load()

Label1.Font.Name="보존"

이미지1.Top=0

이미지1.왼쪽=0

Picture2.Top=0

Picture2.Left=화면.폭-Picthne2.폭

s="크기 조정 및 어렴풋한 효과를 생성하는 텍스트"

zt=5'zt는 글꼴 크기 제어 변수입니다.

i=0'i는 텍스트를 표시할 때 텍스트를 가로채는 데 사용되는 단어 번호 변수입니다.

EndSub

PrivateSubCmd_Click(IndexAsInteger)

If1(색인)=TrueThen

1(색인)=거짓

또 다른

1(Idex)=참

종료

SelectCaseIndex

Case0'은 타이머1의 타이머 프로세스를 활성화합니다.

타이머1.활성화=참

타이머1.간격=50

...'케이스 1과 2는 위와 유사하며 각각 타이머 2와 타이머 3의 타이머 프로세스를 활성화합니다.

Case3'은 사진 복사 프로세스인 Piccpy를 호출합니다.

PiCpy10,50

Case4'End 프로그램 실행 중

언로드미

끝

선택 종료

EndSub

PrivateSubTimer1_Timer()'텍스트 스케일링 구현 과정

If1(0)=TrunThen

zt=zt< 5

또 다른

Zt=Zt-5

ElseIf

Ifzt>50orzt<=5그러면

타이머1.활성화=거짓

종료

WithLabel1

.Font.Size=zt

.Left=(Form1.Width-Lable1.Width)/2

.Top=(Form1.Height-Label1.Height)/2

끝

Label1.Caption=s

EndSub

PrivateSubTimer2_Timer()'는 이미지 크기 조정 프로세스를 구현합니다.

If1(1)=TrueThen'그림을 더 크게 만드세요

Image1.Width=Image1.Width Form1.Width/10

Image1.Height=Image1.Height Form1.Height/10

Else'이미지를 더 작게 만듭니다

Image1.Width=Image1.Width-Form1.Width/10

Image1.Height=Image1.Height-Form1.Height/10

종료

If(Image1.Width>=Form1.Width/2)또는(Image1.Width<=Form1.Width/10)Then

Timer2.Enabled=거짓

종료

Image1=LoadPicture("c:/win98/installer.bmp")

EndSub

PrivateSubTimer3.Timer()

Label1.Font.Size=30

If1(2)=TrueThen

나=il

또 다른

나는=i-1

종료

Ifi>=렌(들)오니<1Then

타이머3.활성화=거짓

종료

만약>=0그러면

Label1.Caption=왼쪽$(s,i)

종료

EndSub->

위 프로그램은 VB6.0 및 Windows98/2000 환경에서 디버깅되었습니다.

->