Dalam proses pengembangan perangkat lunak, untuk meningkatkan derajat komersialisasi perangkat lunak, kami merasa bahwa keindahan antarmuka merupakan faktor penting dalam keberhasilan suatu perangkat lunak. Kami dengan cermat mempelajari beberapa perangkat lunak komersial yang sukses bisa melihat Ya, latar belakang jendela program dapat menampilkan pola yang sangat indah dan tiga dimensi. Saat menggunakan Visual Basic 3.0 atau 4.0 untuk desain formulir, jika Anda hanya mengikuti fungsi yang disediakan oleh sistem, Anda hanya dapat memilih satu warna dari sejumlah warna atau menggunakan program untuk menggambar beberapa garis sederhana. Jika Anda ingin mendapatkan pola tekstur dengan kesan tiga dimensi yang kuat, biasanya Anda hanya dapat menggunakan atribut PICTURE pada formulir untuk memanggil file bitmap. Ada banyak kekurangan dalam menggunakan metode ini dibatasi oleh ukuran bitmap, dan sulit untuk disesuaikan, tidak memiliki keserbagunaan dan fleksibilitas; yang kedua adalah pemborosan sumber daya, karena pola pada dasarnya adalah pola berulang, dan menggunakan bitmap dengan ukuran yang sama bentuknya adalah suatu pemborosan.
Berikut ini memperkenalkan metode untuk mengimplementasikan pola latar belakang formulir. Buat kontrol kisi pada formulir, atur baris kisi menjadi tidak terlihat, hapus baris dan kolom tetap, dan gunakan program untuk membuat kontrol kisi berukuran sama dengan formulir, dan ubah seiring perubahan ukuran formulir. Kemudian rancang pola untuk membentuk file bitmap BMP (program dalam artikel ini menggunakan file Pict1.bmp), atau potong pola dari gambar lain, atau gunakan pola yang disediakan oleh sistem Windows (seperti c:/windows/Tiles .bmp) , transfer ke kontrol Gambar. Atur setiap unit kisi agar berukuran sama dengan polanya, sehingga jumlah unit hanya menutupi seluruh latar belakang formulir, lalu tampilkan pola di semua unit. Proses di atas diimplementasikan melalui subrutin Backpict(). Terlepas dari ukuran pola atau bentuk, program dapat secara otomatis menyesuaikan ukuran kontrol grid, ukuran sel grid, dan jumlah sel. Program ini berhasil di-debug pada VisualBasic4.0.
1. Buat form baru Form1 dengan properti berikut:
Caption="Realisasi pola latar belakang"
Borderstyle=3 (tidak ada tombol maksimum dan minimum)
2. Buat kontrol grid Grid1. Posisi dan ukurannya akan diatur dalam program (ukurannya sama dengan Form1), dan propertinya adalah:
Enabled=False (fokus tidak akan jatuh pada kontrol grid Grid1)
Fillstyle=1 (mengubah properti Teks semua sel)
Fixedcols=0 (tidak ada baris tetap)
Baris tetap=0 (tidak ada kolom tetap)
Gridlines=False (garis grid tidak terlihat),
Terlihat=Benar
3. Buat gambar kontrol Gambar 1. Saat program sedang berjalan, masukkan pola dasar pola latar belakang ke dalamnya, dan propertinya
Terlihat=Salah (tidak terlihat)
Autosize=True (menyesuaikan ukuran secara otomatis)
4. Tambahkan Sheridan3DControls ke kontrol, pilih tombol perintah tiga dimensi SSCommand, dan buat dua tombol
SSCommand1.Caption="Keluar"
SSCommand2.Caption="Ubah latar belakang" (menunjukkan pola latar belakang yang berbeda)
Properti mereka Gambar dapat memanggil pola yang sama atau berbeda dengan latar belakang. Jika Anda menggunakan perintah kontrol tombol perintah biasa, itu juga dapat digunakan, tetapi tombol perintah tidak memiliki pola latar belakang.
5. Buat pola latar belakang yang membentuk subrutin:
Nama file bitmap DimpictfileAsString
Jalur file DimFILEPATHAsString'
SubGambar Latar Belakang(file gambar)
gambar1.Mode Skala=3
Formulir1.Mode Skala=3
gambar1.Gambar=MuatGambar(file gambar)
'Kontrol grid mencakup seluruh latar belakang formulir
grid1.Atas=-1
grid1.Kiri=-1
grid1.Lebar=Lebar
grid1.Tinggi=Tinggi
grid1.Cols=Int(Form1.ScaleWidth/gambar1.ScaleWidth) 1
grid1.Rows=Int(Form1.ScaleHeight/gambar1.ScaleHeight) 1
'Semua ukuran satuan sama dengan ukuran pola dasar
UntukI=0Togrid1.Cols-1
Forj=0Togrid1.Baris-1
grid1.ColWidth(I)=gambar1.ScaleWidth*15
grid1.RowHeight(j)=gambar1.ScaleHeight*15
Selanjutnyaj
selanjutnyaSaya
'Pilih semua unit
grid1.SelStartCol=0
grid1.SelStartRow=0
grid1.SelEndCol=grid1.Cols-1
grid1.SelEndRow=grid1.Baris-1
grid1.Gambar=Gambar1.Gambar
Sub Akhir
6. Bentuk program utama
PrivatSubForm_Load()
PrivateSubForm_Load()
'Dapatkan nama jalur dari program yang sedang berjalan, dengan garis miring terbalik setelah nama jalur
IfRight(App.Path,1)<>"/"Lalu
filePath=Aplikasi.Jalur&"/"
Kalau tidak
filePath=Aplikasi.Jalur
AkhirJika
'Formulir awalnya menampilkan latar belakang yang terdiri dari pola dasar Tiles.bmp
pictfile="c:/windows/Tiles.bmp"
gambar belakang (file gambar)
Sub Akhir
7. Tombol perintah keluar dari program
PrivateSubSSCommand1_Klik()
Akhir
Sub Akhir
8. Peragakan pola arsiran yang berbeda
PrivateSubSSCommand2_Klik()
'Dua pola latar belakang menunjukkan secara bergantian
Ifpictfile=filePath&"Pict1.bmp"Lalu
pictfile="c:/windows/Tiles.bmp"
Kalau tidak
pictfile=filePath&"Gambar1.bmp"
AkhirJika
Gambar Belakang (file gambar)
Sub Akhir->