Hiệu ứng đặc biệt trong các biểu Access
TH&ĐS
Trong khi viết chương trình hệ thống quản lý thiết bị cho công ty bằng Microsoft Access, tôi thấy
Access gây được nhiều ấn tượng. Mặc dù tôi thiên về văn bản kỹ thuật in ấn mà Access lại có
khuyết điểm trong lĩnh vực này, tôi vẫn thấy thích Access.
Tôi tạo một cơ sở dữ liệu chứa một biểu (form) có tên là About. Biểu này tận dụng một vài tính
chất để tạo ra được những hiệu ứng gọn nhẹ hiệu quả. Chẳng hạn như lặp màu, phông chữ và
xử lý hình ảnh. Những hiệu ứng này không phục vụ mục đích ứng dụng rõ ràng. Nó chỉ làm cho
biểu phong phú hơn, trông chuyên nghiệp hơn.
Lúc đầu mở biểu About, thông báo xuất hiện trong hộp nhãn (label box). Thoạt đầu, chữ quá nhỏ
không thể đọc được nhưng càng lúc càng lớn ra cho tới khi phủ đầy hộp thông báo. Kế đó màu
nền của hộp thông báo bắt đầu xoay vòng. Cả hai hiệu ứng này được tạo ra nhờ xử lý những giá
trị thuộc tính của nhãn tương ứng với sự kiện Timer.
Biểu nàycungx chứa hai nút nhấn (button). Nhấn OK sẽ đóng biểu. Không thể nhấn nút Not OK
bởi vì chỉ cần con trỏ chuột lướt ngang qua nút Not OK, nút này biến mất và xuất hiện ở chỗ
khác. Muốn nhấn nút này, tôi phải sử dụng thuộc tính Visible (nhìn thấy) trên cả hai nút nhấn
tuơng ứng với sự kiện MouseMove (di chuyển chuột).
Trong biểu có hình ảnh tôi khi còn bè. Khi tôi chuyển con trỏ chuột qua bức ảnh thì bức ảnh thay
đổi. Hình ảnh trở thành tôi hiện nay với đầy đủ kính cận và ria mép. Tôi đã thực hiện điều này
cũng bằng cách xử lý thuộc tính Visible như trên đã nêu.
Tôi đã thực hiện những mẫu trên với ý định tô vẽ cho cửa sổ chương trình About. Kết quả đạt
được là nhờ vào đặc tính linh hoạt của Access và một chút xíu tưởng tượng.
Những sự kiện (Event) và thuộc tính (Property) trong Access cung cấp nhiều cơ hội cho sự
sáng tạo. ở đây bạn đã nêu ra hai cách sử dụng những đặc điểm của Access ở cấp độ Form: sự
kiện Timer (thời gian) và thuộc tính Timer Interval (thời khoảng) và bốn đặc điểm ở cấp độ điều
khiển: một sự kiện MouseMove và ba thuộc tính FontSize (kích cỡ phông), Backcolor (màu nền)
và Visible (nhìn thấy) để tạo một số hiệu ứng thú vị.
Hiệu ứng đầu tiên làm tăng kích cỡ của đoạn văn bản trên nhãn, hoạt hình hóa đoạn văn và
tạo ra ảo tưởng đoạn văn đang tiến về phía bạn. Đạt được hiệu ứng này nhờ đặt những đoạn mã
trong một quá trình những sự kiện gắn liền với thuộc tính On - kích cỡ phông chữ. Quá trình này
sẽ được thực hiện bất cứ khi nào xảy ra một sự kiện Timer.

Khi đạt tới giá trị đích, BackColor được đặt lại bằng 0, quá trình cứ thế lặp lại. Bằng cách này
màu nền sẽ xoay vòng.
Bạn có thể tạo vài hiệu ứng lý thú khác bằng cách kiểm tra sự di chuyển chuột và xử lý thuộc tính
Visible sẵn có trên những biểu điều khiển và những báo cáo. Như bạn đã đưa ra một ví dụ làm
cho nút Not OK biến mất rồi lại xuất hiện đâu đó khi bạn cố nhấn nó bằng chuột.
Để kiểm tra khi nào chỉ điểm chuột đi ngang qua vùng điều khiển bạn đặt mã vào trong thủ tục
sự kiện liên kết với thuộc tính điều khiển On MouseMove. Thủ tục sự kiện MouseMove xảy ra và
chuột được định vị trong vùng biên của điều khiển. Sự kiện MouseMove rất thường xảy ra. Mặt
khác, cũng xảy ra lúc chuột đứng yên nhưng đối tượng di chuyển bên dưới chuột. Chẳng hạn,
bạn kéo một đối tượng (như biểu) bên dưới chỉ điểm chuột đứng yên, sự kiện MouseMove vẫn
xảy ra. Những sự kiện được nhận dạng bởi những đối tượng mà miền trong đường biên của nó
chứa chỉ điểm chuột. Chú ý rằng không phải tất cả những đối tượng đều nhận dạng được sự
kiện MouseMove. Chẳng hạn sự kiện MouseMove không áp dụng được cho những điều khiển về
báo cáo.
Những sự kiện MouseMove được gởi tới những đối tượng chứa Mouse. Việc làm cho những
đối tượng này biến mất chỉ đơn giản đặt mã trong thủ tục sự kiện MouseMove của đối tượng. Mã
này đặt thuộc tính Visible sang trị False như sau:
Me!]Button].Visible = False.
Bạn dùng thuộc tính Visible để thể hiện hay ẩn dấu một mẫu biểu, báo cáo hay điều khiển. Đặt
thuộc tính Visible bằng True cho đối tượng để nhìn thấy, False sẽ dấu đi.
Như trong cơ sở dữ liệu mẫu chỉ ra bạn có thể viết mã trong thủ tục này làm cho nút khác nhìn
thấy. Trong ví dụ của bạn có hai nút Not OK giống nhau dược tạo ra, mỗi nút nằm một phía của
nút OK. Những thuộc tính nhìn thấy trên hai nút ấy được xử lý tuơng ứng với những sự kiện
MouseMove để một nút là nhìn thấy và nút kia không nhìn thấy. Việc xử lý thuộc tính nhìn thấy
cũng tạo ra được những ảnh ảo: chỉ một nút tồn tại kia biến mất rồi tái xuất hiện đâu đó.
Chẳng hạn, mã trong thủ tục sự kiện MouseMove của phím chuột 1 (thông thường là phím
trái) như sau:
Me![button1].Visible = False
Me![button2].Visible = True
Mã trong thủ tục sự kiện MouseMove của phím chuột 2 như sau: