ในกระบวนการพัฒนาซอฟต์แวร์ เพื่อปรับปรุงระดับการค้าซอฟต์แวร์ เรารู้สึกว่าความสวยงามของอินเทอร์เฟซเป็นปัจจัยสำคัญต่อความสำเร็จของซอฟต์แวร์ เราศึกษาซอฟต์แวร์เชิงพาณิชย์ที่ประสบความสำเร็จอย่างรอบคอบจากซอฟต์แวร์เหล่านี้ สามารถมองเห็นได้ ใช่ พื้นหลังของหน้าต่างโปรแกรมสามารถแสดงรูปแบบสามมิติที่สวยงามมาก เมื่อใช้ Visual Basic 3.0 หรือ 4.0 สำหรับการออกแบบแบบฟอร์ม หากคุณทำตามฟังก์ชันที่ระบบให้มาเท่านั้น คุณสามารถเลือกสีได้เพียงสีเดียวจากจำนวนสีที่จำกัด หรือใช้โปรแกรมวาดเส้นง่ายๆ หากคุณต้องการบรรลุรูปแบบพื้นผิวที่ให้ความรู้สึกสามมิติที่แข็งแกร่ง โดยทั่วไปคุณสามารถใช้แอตทริบิวต์ PICTURE ของแบบฟอร์มเพื่อเรียกไฟล์บิตแมปได้เท่านั้น มีข้อบกพร่องมากมายในการใช้วิธีนี้ หนึ่งคือขนาดของแบบฟอร์ม ถูกจำกัดด้วยขนาดของบิตแมป และเป็นการยากที่จะปรับเปลี่ยน ไม่มีความคล่องตัวและความยืดหยุ่น ประการที่สองคือการสิ้นเปลืองทรัพยากร เนื่องจากรูปแบบโดยทั่วไปเป็นรูปแบบที่ซ้ำกัน และใช้บิตแมปที่มีขนาดเท่ากัน ฟอร์มเสียเลย
ต่อไปนี้จะแนะนำวิธีการใช้รูปแบบพื้นหลังของแบบฟอร์ม สร้างตัวควบคุมกริดบนแบบฟอร์ม ตั้งค่าแถวของกริดให้มองไม่เห็น ลบแถวและคอลัมน์ที่คงที่ และใช้โปรแกรมเพื่อทำให้ตัวควบคุมกริดมีขนาดเดียวกับแบบฟอร์ม และเปลี่ยนตามขนาดของแบบฟอร์มที่เปลี่ยนแปลง จากนั้นออกแบบรูปแบบเพื่อสร้างไฟล์บิตแมป BMP (โปรแกรมในบทความนี้ใช้ไฟล์ Pict1.bmp) หรือสกัดกั้นรูปแบบจากรูปภาพอื่น คุณยังสามารถใช้รูปแบบที่ระบบ Windows เตรียมไว้ให้ (เช่น c:windowsTiles bmp) เพื่อเรียกในตัวควบคุมรูปภาพ ตั้งค่าแต่ละหน่วยของตารางให้มีขนาดเท่ากันกับรูปแบบ เพื่อให้จำนวนหน่วยครอบคลุมพื้นหลังของแบบฟอร์มทั้งหมด จากนั้นจึงแสดงรูปแบบในทุกหน่วย กระบวนการข้างต้นเกิดขึ้นได้ผ่านรูทีนย่อย Backpict() โดยไม่คำนึงถึงขนาดของรูปแบบหรือขนาดของหน้าต่าง
โปรแกรมสามารถปรับขนาดการควบคุมกริด ขนาดหน่วยกริด และจำนวนหน่วยได้โดยอัตโนมัติ โปรแกรมได้รับการดีบั๊กสำเร็จบน VisualBasic4.0
1. สร้างฟอร์มใหม่ Form1 โดยมีคุณสมบัติดังต่อไปนี้:
Caption="การรับรู้รูปแบบพื้นหลัง"
Borderstyle=3 (ไม่มีปุ่มสูงสุดและต่ำสุด)
2. สร้างตัวควบคุมกริด Grid1 ตำแหน่งและขนาดจะถูกตั้งค่าในโปรแกรม (ขนาดเดียวกับ Form1) และคุณสมบัติของมันคือ:
Enabled=False (โฟกัสจะไม่ตกอยู่ที่ตัวควบคุมกริด Grid1)
Fillstyle=1 (เปลี่ยนคุณสมบัติข้อความของเซลล์ทั้งหมด)
Fixcols=0 (ไม่มีแถวคงที่)
Fixedrows=0 (ไม่มีคอลัมน์คงที่)
Gridlines=False (มองไม่เห็นเส้นตาราง)
มองเห็น=จริง
3. สร้างตัวควบคุมรูปภาพ Picture1 เมื่อโปรแกรมกำลังทำงานให้ใส่รูปแบบพื้นฐานของรูปแบบพื้นหลังลงไปและมีคุณสมบัติดังนี้
มองเห็น=เท็จ (มองไม่เห็น)
Autosize=True (ปรับขนาดอัตโนมัติ)
4. เพิ่ม Sheridan3DControls ไปยังตัวควบคุม เลือกปุ่มคำสั่งสามมิติ SSCommand และสร้างสองปุ่ม
ปุ่ม
SSCommand1.Caption = "ออก"
SSCommand2.Caption="Change background" (สาธิตรูปแบบพื้นหลังที่แตกต่างกัน)
คุณสมบัติรูปภาพสามารถเรียกรูปแบบเดียวกันหรือต่างกันเป็นพื้นหลังได้ ถ้าคุณใช้ตัวควบคุมปุ่มคำสั่งธรรมดา
สามารถใช้คำสั่งได้ แต่ปุ่มคำสั่งไม่มีรูปแบบพื้นหลัง
5. สร้างรูปแบบพื้นหลังที่สร้างรูทีนย่อย:
DimpictfileAsString`ชื่อไฟล์บิตแมป
DimFILEPATHAsString`เส้นทางไฟล์
SubBackpict(ไฟล์รูปภาพ)
รูปภาพ1.สเกลโหมด=3
Form1.ScaleMode=3
picture1.Picture=LoadPicture(ไฟล์รูปภาพ)
`การควบคุมตารางครอบคลุมพื้นหลังของแบบฟอร์มทั้งหมด
grid1.Top=-1
grid1.ซ้าย=-1
grid1.Width=ความกว้าง
grid1.Height=ความสูง
grid1.Cols=Int(Form1.ScaleWidth/picture1.ScaleWidth) 1
grid1.Rows=Int(Form1.ScaleHeight/picture1.ScaleHeight) 1
`ขนาดเซลล์ทั้งหมดเท่ากับขนาดรูปแบบพื้นฐาน
ForI=0Togrid1.Cols-1
Forj=0Togrid1.Rows-1
grid1.ColWidth(I)=picture1.ScaleWidth*15
grid1.RowHeight(j)=picture1.ScaleHeight*15
เน็กซ์จ
ต่อไปผม
`เลือกทุกหน่วย
grid1.SelStartCol=0
grid1.SelStartRow=0
grid1.SelEndCol=grid1.Cols-1
grid1.SelEndRow=grid1.Rows-1
grid1.Picture=รูปภาพ1.รูปภาพ
สิ้นสุดย่อย
6. สร้างโปรแกรมหลัก
PRivateSubForm_Load()
ส่วนตัวSubForm_Load()
`รับชื่อเส้นทางของโปรแกรมที่รันอยู่ โดยมีเครื่องหมายแบ็กสแลชอยู่หลังชื่อเส้นทาง
IfRight(App.Path,1)<>""จากนั้น
filePath=App.Path&""
อื่น
filePath=App.Path
สิ้นสุดถ้า
`แบบฟอร์มจะแสดงพื้นหลังที่ประกอบด้วยรูปแบบพื้นฐานของ Tiles.bmp
pictfile="c:windowsTiles.bmp"
เบื้องหลัง(picfile)
สิ้นสุดย่อย
7. ออกจากปุ่มคำสั่งโปรแกรม
PrivateSubSSCommand1_คลิก()
จบ
สิ้นสุดย่อย
8. สาธิตรูปแบบการแรเงาแบบต่างๆ
PrivateSubSSCommand2_คลิก()
`รูปแบบพื้นหลังสองรูปแบบแสดงสลับกัน
Ifpictfile=filePath&"Pict1.bmp"แล้ว
pictfile="c:windowsTiles.bmp"
อื่น
pictfile=filePath&"Pict1.bmp"
สิ้นสุดถ้า
แบ็คพิค(ไฟล์รูปภาพ)
สิ้นสุดย่อย ->