VisualBasic5.0은 시각적 프로그래밍 방법으로 인해 프로그래머들 사이에서 점점 더 인기를 얻고 있습니다. VisualBasic5.0을 사용하면 아름다운 인터페이스와 아름다운 음악을 갖춘 멀티미디어 소프트웨어를 작성할 수 있습니다. 그러나 실제 프로그래밍 과정에서 해결하기 어려운 몇 가지 문제에 직면할 수 있습니다. 다음은 멀티미디어 액세서리 상자를 풍요롭게 할 수 있는 저자의 멀티미디어 제작 경험 중 일부입니다.
1. 배경음악
Visual Basic 5.0을 사용하여 응용 프로그램을 컴파일할 때 OLE 중첩 방법을 사용하여 응용 프로그램에 배경 음악을 쉽게 추가할 수 있습니다.
VisualBasic5.0 시스템 환경을 입력하고 새 양식을 만듭니다. '양식 컨트롤'에서 'OLE 컨테이너'를 클릭하고 양식의 아무 곳으로나 끌어 놓습니다. '개체 삽입' 창에서 '미디어 클립'을 선택하고 '아이콘으로 표시' 열을 선택한 후(이 열은 선택해야 하며 그렇지 않으면 숨길 수 없음) '확인' 키를 눌러 종료합니다.
'미디어 플레이어' 창에서 '파일', '열기'를 선택하고, 파일 목록에서 배경음악으로 사용하고 싶은 사운드 파일을 선택하세요. 음악 파일은 일반적으로 그리 길지 않기 때문에 루프 재생이 필요하며, 이는 '미디어 플레이어'를 반복 재생하도록 설정하면 가능합니다. 그런 다음 '편집' 메뉴에서 '옵션'을 선택하고 옵션 창에서 '반복 재생'을 선택한 다음 '재생 제어 막대' 앞의 체크 표시를 제거하고 확인하고 종료합니다.
Visual Basic 5.0 시스템 환경으로 돌아와 마우스 오른쪽 버튼을 누른 후 팝업 메뉴에서 '속성' 항목을 클릭하면 속성창이 나타납니다. 'Ole1' 개체를 선택하고 'Visible' 속성을 .F로 설정하고 'Autosize' 속성을 .F.로 설정합니다. 다시 마우스 오른쪽 버튼을 누르고 팝업 메뉴의 '코드' 열을 클릭하여 프로세스 쓰기 창으로 들어가서 'Form1' 객체의 '로드' 프로세스를 작성합니다.
PRivateSubForm_Load()
OLE1.DoVerb(0)
EndSub
4. 'F5' 키를 눌러 실행하세요.
2. 투명효과를 주는 입체적인 버튼
멀티미디어 소프트웨어를 만들 때 투명한 효과를 주는 3차원 버튼이 필요할 때가 있습니다. 라벨(LABEL)과 모양(SHAPE)을 조합하여 디자인을 완성할 수 있습니다.
Visual Basic 5.0 시스템 환경을 입력하고 새 폼(FORM1)을 만든 다음 FORM1의 그림 속성을 WINDOWS 비트맵 파일(.BMP)로 설정합니다.
"Form Control Bar"에서 "Shape"를 클릭하고 FORM1에서 직사각형 상자(SHAPE1)를 꺼냅니다. 같은 방법으로 SHAPE2, SHAPE3, SHAPE4를 생성합니다. 속성 창에서 다음과 같이 4개 SHAPE의 속성을 설정합니다.
모양1:
테두리색상=&HFFFFFF
테두리 너비=3왼쪽=2160
상단=2040너비=1100
모양2:
테두리색상=&H80000008
테두리 너비=3왼쪽=2160
상단=2520너비=1100
모양3:
테두리색상=&HFFFFFF
테두리 너비=3왼쪽=2160
상단=2040높이=500
모양4:
테두리색상=&H80000008
테두리 너비=3왼쪽=3240
상단=2040높이=500
마우스로 "Form Control Bar"의 "Label"을 클릭하고 FORM1의 직사각형 상자(LABEL1)를 끌어낸 다음 4개의 SHAPE에 맞게 크기를 조정합니다. Caption 속성을 사용자 정의된 버튼의 제목으로 설정하고 Alignment를 2로, Backstyle을 0으로 설정합니다.
LABEL1을 두 번 클릭하고 LABEL1의 MouseDown 프로세스와 MouseUp 프로세스를 다음과 같이 작성합니다.
PrivateSubLabel1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Shape1.BorderColor=&H80000008
Shape3.BorderColor=&H80000008
Shape2.BorderColor=&HFFFFFF
Shape4.BorderColor=&HFFFFFF
Label1.Top=Label1.Top 10
EndSub
PrivateSubLabel1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Shape1.BorderColor=&HFFFFFF
Shape3.BorderColor=&HFFFFFF
Shape2.BorderColor=&H80000008
Shape4.BorderColor=&H80000008
Label1.Top=Label1.Top-10
EndSub
'F5' 키를 누르면 실행됩니다.
3. 모바일 자막
TV에서 우리는 화면 하단에 프롬프트 텍스트나 광고 정보가 오른쪽에서 왼쪽으로 이동하는 것을 종종 볼 수 있는데, 이는 프롬프트 역할을 할 뿐만 아니라 전체 화면을 손상시키지 않습니다. VisualBasic5.0에서도 이 디자인을 완성할 수 있습니다.
Visual Basic 5.0 시스템 환경을 입력하고 새 폼(FORM1)을 만든 다음 FORM1의 Backcolor 속성을 RGB(192,192,192)로 설정합니다.
"Form Control Bar"의 "Label"을 마우스로 클릭한 후 FORM1에서 직사각형 상자(LABEL1)를 꺼냅니다. 해당 속성 Caption을 "Active Subtitle Demonstration"으로, Autosize를 .T.로, Backstyle을 0으로, Forecolor를 RGB(128, 128, 128)로, Fontname을 "official script"로, Fontbold를 .T.로, Fontsize를 36으로 설정합니다.
마우스로 LABEL1을 클릭하고 CTRL C(복사) 키를 누른 다음 CTRL V(붙여넣기) 키를 눌러 FORM1의 LABEL1과 동일한 제목을 가진 다른 레이블(LABEL2)을 만들고 Forecolor 속성을 RGB(255)로 설정합니다. , 255, 0). LABEL1이 LABEL2의 그림자처럼 보이도록 LABEL2의 위치를 LABEL1보다 약간 높게 조정합니다.
"Form Control Bar"의 "Timer"를 마우스로 클릭한 후 FORM1을 한 번 클릭하면 FORM1에 타이머(TIMER1)가 생성된다. 간격 속성을 200으로 설정합니다.
FORM1을 두 번 클릭하고 FORM1의 로드 프로세스를 다음과 같이 작성합니다.
PrivateSubForm_Load()
Label1.Left=너비 50
Label2.Left=너비
EndSub
6. TIMER1을 두 번 클릭하고 TIMER1의 타이머 프로세스를 다음과 같이 작성합니다.
PrivateSubTimer1_Timer()
IfLabel1.Left<0-Label1.WidthThen
Label1.Left=너비 50
Label2.Left=너비
종료
Label1.Left=Label1.Left-500
Label2.Left=Label2.Left-500
EndSub
7. 'F5' 키를 눌러 실행하면 화면 오른쪽부터 자막이 나오고 화면 왼쪽 끝으로 이동하면 자막이 사라집니다.
4. 텍스트 페이드 인 및 페이드 아웃
많은 게임 시작 부분의 해설 자막과 폭발 후의 크리에이티브 크레딧은 문자 페이드 인 및 페이드 아웃 방법을 사용합니다. 페이드 인 및 페이드 아웃 효과가 있는 텍스트도 Visual Basic 5.0에서 생성할 수 있습니다.
Visual Basic5.0 시스템 환경을 입력하고 새 폼(FORM1)을 만듭니다.
"Form Control Bar"의 "Label"을 마우스로 클릭한 후 FORM1에서 직사각형 상자(LABEL1)를 꺼냅니다. 캡션 속성을 "텍스트 페이드 인 및 페이드 아웃"으로, 자동 크기를 .T.로, 백스타일을 0으로, 텍스트 색상을 RGB(0,128,128)로, 글꼴을 "공식 스크립트"로, Fontbold를 .T.로, 글꼴 크기를 36으로 설정합니다. .
"Form Control Bar"의 "Timer"를 마우스로 클릭한 후 FORM1을 한 번 클릭하면 FORM1에 타이머(TIMER1)가 생성된다. Interval 속성을 100으로 설정하고 Enabled 속성을 .F.로 설정합니다.
"양식 제어 표시줄"에서 "명령 단추"를 클릭하고 FORM1에서 직사각형 상자(COMMAND1)를 꺼냅니다. Caption 속성을 "Start"로 설정합니다.
COMMAND1을 두 번 클릭하고 COMMAND1의 클릭 프로세스를 다음과 같이 작성합니다.
PrivateSubCommand1_Click()
IfTimer1.Enabled=FalseThen
타이머1.활성화=참
종료
EndSub
FORM1을 두 번 클릭하고 FORM1의 활성화 프로세스를 다음과 같이 작성합니다.
뒷면색상=RGB(0,128,128)
나=0
7. TIMER1을 두 번 클릭하고 TIMER1의 타이머 프로세스를 다음과 같이 작성합니다.
PrivateSubTimer1_Timer()
나=나 10
I>=255*2그러면
타이머1.활성화=거짓
나=0
종료
I>=255이면
Label1.ForeColor=RGB(255*2-I,128,128)
또 다른
Label1.ForeColor=RGB(I,128,128)
종료
EndSub
실행하려면 'F5' 키를 누르세요. 마우스로 "시작" 버튼을 클릭하면 제목이 배경색에서 빨간색으로, 그리고 빨간색에서 배경색으로 점차 바뀌는 것을 볼 수 있습니다.
위의 프로그램은 모두 Visual Basic 5.0 및 WINDOWS95에서 성공적으로 실행됩니다. ->