Những nguyên tắc cho các kiểu form của Win95.
Có một vài các quy tắc chung đối với sự phát triển các kiểu form của Win95. Các khu vực chính được cân nhắc như danh sách trong bảng 4.2. Bảng này mô tả những khổ chuẩn được đề nghị của Microsoft cho các điều khiển của form. Nó cũng bao hàm khoảng trắng cho các điều khiển này được đề nghị. Tham khảo hình 4.1 khi đang đọc đoạn này. Hình này cho bạn xem một ví dụ của một mục nhập dữ liệu mà nó được xây dựng được sử dụng các cái chuẩn của Win95 được mô tả trong đoạn này.
Hình 4.11 : Một kiểu form nhập của Win95 :
Màu của form mặc định khi bạn lần đầu tiên bắt đầu với form, đặt thuộc tính BackColor của nó là light gray. Đặt thuộc tính BackStyle cho các Label là Transparent do vậy mầu nền có thể trông trong suốt. Đối với các điều khiển không có thuộc tính BackStyle ( ví dụ như Checkbox và Radio ), hãy đặt thuộc tính BackColor là light gray. Những tông màu gray là dễ dàng hơn trong việc đọc các ánh sáng khác nhau. Việc sử dụng các tông màu gray cũng làm giảm các sự cố mà một người sử dụng đã tải qua những màu mù sẽ có những sự khó khăn với màn hình nhập của bạn. Việc sử dụng điều khiển SSPanel để đưa các vùng nhập lên một vị trí hiện thị tất cả các điều khiển. Đừng đặt các nút hoặc điều khiển dữ liệu trên bảng màu (palette) trừ phi chúng hành động như một phần của hộp hội thoại nhập ( xem hình 4.11 ). Chỉ sử dụng một bảng màu trên form. Bảng màu không giống như một bố cục quanh một bộ các điều khiển. SSPanel là một điều khiển Sheridan 3D. Nó có thể không xuất hiện trong hộp công cụ (toolbox) của bạn khi lần đầu tiên bắt đầu với Visual Basic 5. Để thêm nó vào, hãy kích chuột phải vào Toolbox và chiọn Component... Bây giờ hãy lấy vào một đánh dấu tiếp theo đến các điều khiển Sheridan 3D. Nếu bạn không nhìn thấy các điều khiển Sheridan 3D thì kích vào nút Browse và tìm tập tin cho chúng –THREED32.OCX. Font mặc định sử dụng 8 point sans serif, regular (not bold ) như font mặc định cho tất cả các điều khiển. Nếu bạn sử dụng kiểu lớn hơn cho một tiêu đề, cho ví dụ, hãy làm đơn giản thôi. (thiếu ?)
Hình 4.12 : Đề án color-switching.
Bảng 4.3 : Các điều khiển cho Đề án color-switching :
Control
|
Property
|
Setting
|
Form
|
Caption
|
Color-Switching
|
|
Name
|
FrmColor
|
SSPanel
|
Caption
|
(set to blank)
|
|
Name
|
PnlPalette
|
Text box
|
Name
|
TxtOneLine
|
|
FontBold
|
False
|
|
Height
|
300
|
|
Width
|
1800
|
SSPanel
|
Name
|
PnlDisplayOnly
|
|
FontBold
|
False
|
|
Height
|
300
|
|
Width
|
1800
|
|
Caption
|
SSPanel1
|
|
BevelInner
|
1 – Inset
|
|
BorderWidth
|
1
|
|
Alignment
|
1 – LeftMiddle
|
Label
|
Caption
|
Prompt1:
|
|
FontBold
|
False
|
|
BackStyle
|
2 – Transparent
|
Label
|
Caption
|
Prompt2:
|
|
FontBold
|
False
|
|
BackStyle
|
2 – Transparent
|
Data Control
|
Caption
|
Data
|
|
FontBold
|
False
|
|
Height
|
300
|
|
Width
|
1800
|
Command Button
|
Name
|
CmdDefault
|
|
Caption
|
&Default
|
|
FontBold
|
False
|
|
Height
|
300
|
|
Width
|
1200
|
Command Button
|
Name
|
CmdSystem
|
|
Caption
|
&System
|
|
FontBold
|
False
|
|
Heigth
|
300
|
|
Width
|
1200
|
Command Button
|
Name
|
CmdCustom
|
|
Caption
|
&Custom
|
|
FontBold
|
False
|
|
Height
|
300
|
|
Width
|
1200
|
Command Button
|
Name
|
CmdExit
|
|
Caption
|
E&xit
|
|
FontBold
|
False
|
|
Height
|
300
|
|
Width
|
1200
|
Hãy lưu form là COLORS.FRM và đề án là COLORS.VBP. Bạn đã xây dựng xong một form có ba nút lệnh : Default, System và Custom. Bạn sẽ thêm đoạn mã đến đề án để làm thay đổi sắp xếp màu của từng nút của form. Đầu tiên, bạn sẽ thêm vào đoạn mã đó để đặt màu là mặc định theo Win95 : light gray. Những mầu chuẩn đầu tiên, tạo ra các hằng số giữ các giá trị hex, đây là đoạn mã :
Option Explicit
`
` constant for colors
Const LIGHT_GRAY = &HC0C0C0
Const WHITE = &HFFFFFF
Const BLACK = &H0
Tiếp theo thêm một thủ tục mới, SetColors, mà nó đặt các màu của form. Bởi vì bạn sẽ dùng đoạn mã này để đặt thêm màu, hãy thêm một tham số để gọi nSet đến đầu thủ tục. Đoạn mã sau đặt thuộc tính BackColor của form và điều khiển dữ liệu là light gray :
Sub SetColors (nSet As Integer)
`
` set to default colors
If nSet = 0 Then
pnlDisplayOnly.BackColor = LIGHT_GRAY
pnlPalette.BackColor = LIGHT_GRAY
frmColor.BackColor = LIGHT_GRAY
Data1.BackColor = LIGHT_GRAY
`
txtOneLine.BackColor = WHITE
txtOneLine.ForeColor = BLACK
End If
End Sub
Cuối cùng, hãy thêm một dòng đơn để mặc định nút lệnh thực hiện thủ tục SetColor :
Sub cmdDefault_Click ()
SetColors 0
End Sub
Hãy lưu và chạy đề án. Bây giờ bạn sẽ nhìn thấy màu nền cho form và điều khiển dữ liệu được đặt là light gray khi bạn kích vào nút Dfault. Bạn có thể muốn đặt các màu cho riêng bạn. Đoạn mã sau sẽ làm điều đó. Giả sử bạn muốn mầu nền là red và màu chữ là blue.
Đầu tiên, hãy thêm các hằng cho màu red và màu blue được định nghĩa trong đoạn sau :
Option Explicit
`
` constant for colors
Const LIGHT_GRAY = &HC0C0C0
Const WHITE = &HFFFFFF
Const BLACK = &H0
Const BLUE = &H800000
Const RED = &H80
Tiếp theo, hãy thay đổi thủ tục SetColors bao gồm các mầu mới của bạn. Chú ý rằng bây giờ bạn cần đặt hai thuộc tính ForeColor và BackColor của tất cả các điều khiển theo thuộc tính BackColor của form. Lần này bạn sẽ đặt các màu theo ý thích nếu tham số được đặt là 1. Đây là đoạn mã :
Sub SetColors (nSet As Integer)
`
` set to default colors
If nSet = 0 Then
pnlDisplayOnly.BackColor = LIGHT_GRAY
pnlPalette.BackColor = LIGHT_GRAY
frmColor.BackColor = LIGHT_GRAY
Data1.BackColor = LIGHT_GRAY
`
txtOneLine.BackColor = WHITE
txtOneLine.ForeColor = BLACK
End If
`
` set to custom colors
If nSet = 1 Then
pnlDisplayOnly.BackColor = RED
pnlPalette.BackColor = RED
frmColor.BackColor = RED
Data1.BackColor = RED
`
txtOneLine.BackColor = WHITE
txtOneLine.ForeColor = BLUE
End If
End Sub
Bây giờ hãy thêm đoạn mã sau vào nút Custom :
Sub cmdCustom_Click ()
SetColors 1
End Sub
Hãy lưu và chạy chương trình để xem kết quả
Chia sẻ với bạn bè của bạn: |