----Penulis sesekali membaca artikel di "Dunia Komputer" tentang penerapan karakter fade-out dan fade-in di VISUALFOXPRO. Terinspirasi oleh hal ini, penulis merujuk ke artikel asli dan menulis karakter serupa fade-out dan fade-. dalam menggunakan program Visual Basic 4.0. untuk mengilustrasikan kesamaan alat pengembangan visual Microsoft: antarmuka pengguna grafis (GUI) yang sama atau serupa, fitur berorientasi objek dan berbasis peristiwa, fungsi yang sama atau serupa, dll. Fitur ini memungkinkan pengembang dan perancang program untuk belajar dari aplikasi yang dikembangkan menggunakan alat visualisasi Microsoft yang berbeda dan melakukan transplantasi dengan mudah, sehingga memperpendek siklus pengembangan. Pada saat yang sama, hal ini dapat berperan dalam pembelajaran bahasa komputer.
----Fungsi fade-in dan fade-out karakter dapat dicapai dengan terus-menerus mengubah latar depan kontrol label (LABEL). Perubahan pada latar depan kontrol,
Ini dapat diatur menggunakan properti latar depan dari kontrol label pada waktu desain, atau dapat dicapai dalam program dengan menetapkan nilai warna yang berbeda ke properti latar depan. Warna disediakan oleh fungsi RGB (VisualFoxpro juga memiliki fungsi ini). Interupsi yang dihasilkan oleh kontrol pengatur waktu digunakan untuk terus mengubah nilai parameter RGB, sehingga latar depan karakter dapat diubah sesuai, sehingga mencapai tujuan memudarkan masuk dan keluar.
----Program berikut yang ditulis dalam Visual Basic 4.0 menyelesaikan dua fungsi: (1) Memudar masuk dan keluar karakter, dan ada 256*256*256 perubahan warna. Di sini hanya perubahan dari abu-abu ke merah yang dipilih;
(2) Karakter berubah dari kecil menjadi besar ketika memudar, dan dari besar ke kecil ketika memudar. Selain itu, proses implementasi program ini dapat sepenuhnya dan mudah ditransplantasikan ke bahasa visual seperti VisualC dan Visualjava.
----1. Mulai VisualBasic4.0 dan buat formulir secara otomatis, defaultnya adalah FORM1.
----2. Atur properti formulir sebagai berikut:
NAMA: DEMO
CAPTION: VB mengimplementasikan karakter fade-in dan fade-out
BACKCOLOR: &H00C0C0C0, yaitu latar belakang berwarna abu-abu
----3. Tentukan variabel bentuk berikut dalam bentuk DEMO, yaitu menentukan parameter warna R, G, dan B dalam proses Deklarasi Umum.
DimrAsInteger
DimgAsInteger
DinbAsInteger
----4. Tetapkan nilai awal warna karakter selama proses pemuatan Formulir, yaitu abu-abu
warna:
PrivateSubForm_Load()
r=192
g=192
b=192
Sub Akhir
----5. Tambahkan label ke formulir DEMO dan atur propertinya sebagai berikut:
NAMA:LABEL1
KETERANGAN: Sistem Perdagangan Obligasi SDIC Harbin
AUTOSIZE: TRUE, digunakan untuk mencapai penskalaan karakter
BACKSTYLE: 0-TRANSPARAN, yaitu transparan
FONT: Font adalah skrip resmi, dan ukurannya dipilih sebagai 8
----6. Tambahkan kontrol pengatur waktu ke formulir untuk menyelesaikan fungsi fade-out.
NAMA: OUTTIMER
INTERVAL: 50, artinya terputus setiap detik sekali dan berubah warna satu kali.
----7. Tambahkan pengatur waktu lain untuk menyelesaikan fungsi fade-in:
NAMA : INTIMER
INTERVAL: 50
----8. Tambahkan kode berikut ke proses TIMER OUTTIMER:
PrivateSubOuttimer_Timer()
Ifr<255Lalu
r=r 1
Kalau tidak
r=255
AkhirJika
Jika>3Lalu
g=g-3
Lain:g=0
AkhirJika
Jikab>3Lalu
b=b-3
Lain:b=0
AkhirJika
Label1.Ukuran Font=Label1.Ukuran Font 0,75
Label1.Warna Depan=RGB(r,g,b)
JikaLabel1.FontSize>=72Kemudian
Outtimer.Enabled=Salah
Intimer.Enabled=Benar
AkhirJika
Sub Akhir
----9. Tambahkan kode berikut ke INTIMER:
PrivateSubIntimer_Timer()
Ifr>192Lalu
r=r-1
Kalau tidak
r=192
AkhirJika
Jika<192Lalu
g=g 3
Lain:g=192
AkhirJika
Jikab<192Lalu
b=b 3
Lain:b=192
AkhirJika
Label1.FontSize=Label1.FontSize-0,75
Label1.Warna Depan=RGB(r,g,b)
IfLabel1.FontSize<=8Kemudian
Intimer.Enabled=Salah
Outtimer.Enabled=Benar
AkhirJika
Sub Akhir
----Setelah menyelesaikan langkah-langkah di atas, tekan tombol run, Anda dapat melihat tulisan "Harbin SDIC Securities Trading System" ditampilkan dalam bentuk dari kecil ke besar, dari dangkal ke dalam ketika font mencapai ukuran yang ditentukan tercapai, secara bertahap menghilang ke dalam bentuk untuk mewujudkan fungsi fade-in dan fade-out.
->