----Dalam sejumlah besar perangkat lunak aplikasi, setelah perangkat lunak dimulai, layar menampilkan informasi selama beberapa detik, mencantumkan produk, platform, nomor versi, dan informasi hak cipta, yang disebut "layar berkedip saat memulai program ". Bagaimana penerapannya di Visual Basic? Artikel ini membahas salah satu cara membuat splash screen dan membuatnya berwarna. Pastikan bahwa ketika layar pengaktifan tetap berada di desktop, teks perintah "mengalir" di desktop (seperti layar pengaktifan "Orient Express"). Pada saat yang sama, efek seperti kedipan dan perubahan warna teks mengalir juga dapat dicapai. Jika Anda mengatur layar di bagian bawah teks, teks dapat mengalir dari layar. Setelah tampilan selesai dan menghilang dari atas layar, tampilan dapat muncul kembali dari bawah layar dan muncul kembali dalam satu lingkaran. Setelah desain ini, dapat digunakan dalam deskripsi perangkat lunak, daftar penulis, dll. untuk memperkaya tampilan layar perangkat lunak.
---- Ambil proyek 1, formulir Form1 dan Form2, dan tetapkan Form1 sebagai formulir permulaan. Buat Frame1, Timer1 dan Temer2 baru di Form2, dan atur properti Caption Frame1 ke nilai null untuk membentuk batas tiga dimensi yang indah. Properti Diaktifkan Timer1 dan Temer2 diatur ke True. Buat Gambar1 di Bingkai1 dan sesuaikan Gambar1 ke ukuran yang sesuai. Atur properti ScaleMode dari Form1 menjadi 1-Twip dan properti StartUpPosition dari Form2 menjadi 2-CenterScreen (rata tengah). Untuk memastikan bahwa Form2 tidak menampilkan "bilah deskripsi biru" di bagian atas formulir, atur properti Caption ke nilai null dan properti ControlBox ke False. Buat label Label1 pada Gambar1 dan sesuaikan BackStyle ke 0 (transparan). Isi teks "Penulis: Nona Jiang Xue dari Shenyang" pada atribut Caption Label1 untuk memudahkan pengamatan. Sesuaikan ukuran dan warna teks. Anda dapat dengan bebas mengatur informasi tata letak pada form Form2.
---- Kode Form1 adalah sebagai berikut:
PrivatSubForm_Load()
Form1.Visible=0'membuat form Form1 tidak terlihat
Form2.Tampilkan tampilan form Form2
Sub Akhir
Kode-kode untuk setiap kontrol di Form2 adalah sebagai berikut:
Opsi Eksplisit
DimStep1,Step2,Step3AsInteger
DimZfAsString
DimIAsInteger
PrivateSubForm_Klik()
'Ketika Anda mengklik Form2, akhiri eksekusi Form2,
Tampilkan form Form1 dan tutup Timer dan Timer1.
Bongkar Saya
Formulir1.Tampilkan
Timer1.Enabled=Salah
Timer2.Enabled=Salah
Sub Akhir
PrivateSubForm_Load()
Gambar1.Gambar=MuatGambar
("c:/windows/Clouds.bmp")'Pilih gambar
Timer1.Interval=langkah waktu 80'
Timer2.Interval=50
Sub Akhir
Sub Pribadi
Frame1_Click()'Saat mengklik area di dalam kontrol Frame1,
Akhiri eksekusi form Form2, tampilkan form Form1, dan tutup Timer dan Timer1.
Bongkar Saya
Formulir1.Tampilkan
Timer1.Enabled=Salah
Timer2.Enabled=Salah
Sub Akhir
Sub Pribadi
Gambar1_Klik()
'Ketika Anda mengklik area di dalam Gambar1, akhiri eksekusi Form2,
Tampilkan form Form1 dan tutup Timer dan Timer1.
Bongkar Saya
Formulir1.Tampilkan
Timer1.Enabled=Salah
Timer2.Enabled=Salah
Sub Akhir
PrivateSubTimer1_Timer()
ColorLabel1,15,13,9' memanggil warna yang diubah
saya = saya 1
JikaI>50Maka waktu tinggal formulir2, dapat diubah ukurannya
Bongkar Saya
Formulir1.Tampilkan
Timer1.Enabled=Salah
Timer2.Enabled=Salah
AkhirJika
Sub Akhir
SubWarna(CtrlAsControl,color1AsInteger,
color2AsInteger,color3AsInteger)'Pilih warna
IfVal(Ctrl.Tag)=warna1Lalu
Ctrl.Tag=warna2
ElseIfVal(Ctrl.Tag)=warna2Lalu
Ctrl.Tag=warna3
ElseIfVal(Ctrl.Tag)=warna3Lalu
Ctrl.Tag=warna1
Kalau tidak
Ctrl.Tag=warna1
AkhirJika
Ctrl.ForeColor=QBColor(Ctrl.Tag)
Sub Akhir
PrivateSubTimer2_Timer()' mengontrol posisi dan kecepatan pergerakan teks
Langkah1=1800:Langkah2=4500:Langkah3=40
JikaLabel1.Top<-Langkah1-Label1.TopThen
Label1.Atas=Label1.Atas Langkah2
AkhirJika
Label1.Top=Label1.Top-Langkah3
Sub Akhir
----Anda dapat menyesuaikan nilai Timer1.Interval dan Timer2.Interval, yang masing-masing menentukan kecepatan perubahan warna teks dan kecepatan aliran teks; sesuaikan Langkah1 dan Langkah2 ke nilai yang sesuai sesuai dengan bentuk dan kontrol syarat; Langkah 3 adalah langkah lompatan teks; Mengubah warna transformasi teks dengan mengubah nilai I, J, K pada pernyataan ColorLabel1, I, J, K. Diimplementasikan di bawah VisualBasic5.0 Cina. ->