----많은 응용 프로그램 소프트웨어에서 소프트웨어가 시작된 후 화면에 제품, 플랫폼, 버전 번호 및 저작권 정보를 나열하는 정보가 몇 초 동안 표시됩니다. 이를 "프로그램 시작 시 깜박이는 화면"이라고 합니다. ". Visual Basic에서는 어떻게 구현됩니까? 이 문서에서는 스플래시 화면을 생성하고 다채롭게 만드는 한 가지 방법에 대해 설명합니다. 시작 화면이 바탕 화면에 있을 때 프롬프트 텍스트가 바탕 화면에 "흐르는"지 확인하십시오(예: "Orient Express" 시작 화면). 동시에 흐르는 텍스트의 깜박임 및 색상 변경과 같은 효과도 얻을 수 있습니다. 텍스트 하단에 화면을 설정하면 화면에서 텍스트가 흘러나올 수 있습니다. 표시가 완료되어 화면 상단에서 사라진 후 화면 하단에서 다시 올라와 루프로 다시 나타날 수 있습니다. 이 디자인 후에는 소프트웨어 설명, 작성자 목록 등에 사용하여 소프트웨어 화면 표시를 풍부하게 할 수 있습니다.
----프로젝트 1을 가져와 Form1과 Form2를 형성하고 Form1을 시작 폼으로 설정합니다. Form2에 새로운 Frame1, Timer1, Temer2를 생성하고 Frame1의 Caption 속성을 null 값으로 설정하여 아름다운 3차원 테두리를 만듭니다. Timer1 및 Temer2의 Enabled 속성은 True로 설정됩니다. Frame1에 Picture1을 생성하고 Picture1을 적절한 크기로 조정합니다. Form1의 ScaleMode 속성을 1-Twip으로 설정하고 Form2의 StartUpPosition 속성을 2-CenterScreen(가운데 정렬)으로 설정합니다. Form2가 양식 상단에 "파란색 설명 표시줄"을 표시하지 않도록 하려면 Caption 속성을 null 값으로 설정하고 ControlBox 속성을 False로 설정합니다. Picture1에 Label1 레이블을 만들고 BackStyle을 0(투명)으로 조정합니다. 쉽게 관찰할 수 있도록 Label1의 Caption 속성에 "저자: Miss Jiang Xue of Shenyang"이라는 텍스트를 입력합니다. 텍스트 크기와 색상을 조정합니다. Form2에서 레이아웃 정보를 자유롭게 설정할 수 있습니다.
----Form1 코드는 다음과 같습니다.
PRivateSubForm_Load()
Form1.Visible=0' Form1 양식을 보이지 않게 만듭니다.
Form2.Show'표시 양식 Form2
EndSub
Form2의 각 컨트롤에 대한 코드는 다음과 같습니다.
OptionExplicit
DimStep1,Step2,Step3AsInteger
DimZfAsString
DimIA 정수
PrivateSubForm_Click()
'Form2를 클릭하면 Form2의 실행이 종료되고,
Form1 양식을 표시하고 Timer 및 Timer1을 닫습니다.
언로드미
Form1.Show
타이머1.활성화=거짓
Timer2.Enabled=거짓
EndSub
PrivateSubForm_Load()
Picture1.Picture=LoadPicture
("c:/windows/Clouds.bmp")'사진을 선택하세요
Timer1.Interval=80' 시간 간격
타이머2.간격=50
EndSub
PrivateSub
Frame1_Click()'Frame1 컨트롤 내의 영역을 클릭하면,
Form2 양식의 실행을 종료하고 Form1 양식을 표시한 후 Timer 및 Timer1을 닫습니다.
언로드미
Form1.Show
타이머1.활성화=거짓
Timer2.Enabled=거짓
EndSub
PrivateSub
그림1_클릭()
'그림1 내의 영역을 클릭하면 Form2의 실행이 종료되고,
Form1 양식을 표시하고 Timer 및 Timer1을 닫습니다.
언로드미
Form1.Show
타이머1.활성화=거짓
Timer2.Enabled=거짓
EndSub
PrivateSubTimer1_Timer()
ColorLabel1,15,13,9'는 변환된 색상을 호출합니다.
나=나 1
IfI>50Then'Form2 양식 체류 시간, 크기 조정 가능
언로드미
Form1.Show
타이머1.활성화=거짓
Timer2.Enabled=거짓
종료
EndSub
하위 색상(CtrlAsControl,color1AsInteger,
color2AsInteger,color3AsInteger)'색상 선택
IfVal(Ctrl.Tag)=color1Then
Ctrl.태그=color2
ElseIfVal(Ctrl.Tag)=color2Then
Ctrl.태그=color3
ElseIfVal(Ctrl.Tag)=color3Then
Ctrl.태그=color1
또 다른
Ctrl.태그=color1
종료
Ctrl.ForeColor=QBColor(Ctrl.Tag)
EndSub
PrivateSubTimer2_Timer()'는 텍스트 이동 위치와 속도를 제어합니다.
1단계=1800:2단계=4500:3단계=40
IfLabel1.Top<-Step1-Label1.TopThen
Label1.Top=Label1.Top 2단계
종료
Label1.Top=Label1.Top-Step3
EndSub
----텍스트 색상 변경 속도와 텍스트 흐름 속도를 각각 결정하는 Timer1.Interval 및 Timer2.Interval의 값을 조정할 수 있으며 양식 및 제어에 따라 Step1 및 Step2를 적절한 값으로 조정합니다. 조건; Step3은 텍스트 점프 단계이며 ColorLabel1, I, J, K 문에서 I, J, K 값을 변경하여 텍스트 변환 색상을 변경합니다. 중국어 VisualBasic5.0에서 구현되었습니다. ->