->ในกระบวนการพัฒนาซอฟต์แวร์ ความสวยงามของอินเทอร์เฟซเป็นปัจจัยสำคัญในการจำหน่ายซอฟต์แวร์ บทความนี้จะแนะนำวิธีการสร้างรูปแบบพื้นหลังของแบบฟอร์ม เพื่อจุดประสงค์นี้ พื้นหลังสามมิติที่สวยงามจึงสามารถออกแบบได้อย่างสะดวกและยืดหยุ่น 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" (สาธิตรูปแบบพื้นหลังที่แตกต่างกัน)
คุณสมบัติรูปภาพสามารถเรียกรูปแบบเดียวกันหรือต่างกันเป็นพื้นหลังได้ หากคุณใช้ปุ่มคำสั่งธรรมดาควบคุม Command ก็สามารถใช้ได้ แต่ปุ่มคำสั่งไม่มีรูปแบบพื้นหลัง
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()
'รับชื่อเส้นทางของโปรแกรมที่รันอยู่ โดยมีเครื่องหมายแบ็กสแลชอยู่หลังชื่อเส้นทาง
IfRight(App.Path,1)<>"/"จากนั้น
filePath=App.Path&"/"
อื่น
filePath=App.Path
สิ้นสุดถ้า
'ฟอร์มเริ่มแรกจะแสดงพื้นหลังที่ประกอบด้วยรูปแบบพื้นฐานของ Tiles.bmp
pictfile="c:/windows/Tiles.bmp"
เบื้องหลัง(picfile)
สิ้นสุดย่อย
7. ปุ่มคำสั่งออกจากโปรแกรม:
PrivateSubSSCommand1_คลิก()
จบ
สิ้นสุดย่อย
8. สาธิตรูปแบบการแรเงาที่แตกต่างกัน: บทความนี้เลือกรูปภาพ Windows Tiles.bmp ผู้อ่านสามารถเลือกกราฟิกอื่น ๆ ที่พวกเขาชอบได้ รหัสมีดังนี้:
PrivateSubSSCommand2_Click()'การสลับการสาธิตรูปแบบพื้นหลังสองรูปแบบ
Ifpictfile=filePath&"Pict1.bmp"แล้ว
pictfile="c:/windows/Tiles.bmp"
อื่น
pictfile=filePath&"Pict1.bmp"
สิ้นสุดถ้า
แบ็คพิค(ไฟล์รูปภาพ)
สิ้นสุดย่อย ->
