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.. 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
Trang 1Hiệ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
Bạn có thể đặc tả sự kiện Timer bằng cách đặt thuộc tính Timer Interval của biểu Tầm trị của thuộc tính Timer Interval là một số nguyên lớn (Long Integer) từ 0 đến 2.147.483.674 chính là số mili giây giữa những sự kiện thời gian Bạn có thể thiết lập nó bằng cách dùng trang Property của mẫu biểu, dùng macro hay Visual Basic Vì mỗi giây bằng 1.000 mili giây để cho sự kiện xảy ra mỗi giây một lần, hãy đặt thuộc tính TimerInterval bằng 1.000 Nhớ rằng đồng hồ hệ thống 55 mili giây nhảy một lần, vì thế bạn không nên gõ vào một con số nhỏ hơn 55 Nếu không muốn xảy ra
sự kiện, đặt Timer Interval bằng 0
Sự kiện Interval và thuộc tính Timer Interval cho ta cơ hội để thực hiện những hành động xảy
ra trong những khoảng thời gian đều đặn Thuộc tính Timer Interval và sự kiện Timer thường được dùng để hỗ trợ hoạt hình và các hiệu ứng đặc biệt như chúng ta thảo luận ở đây Để hoạt
Trang 2hóa đoạn chữ bạn đặt mã trong thủ tục sự kiện OnTimer để gia tăng kích cỡ của đoạn chữ ấy chỉ dừng lại khi đạt được kích cỡ đích Với đoạn mã sau (trong thủ tục sự kiện OnTimer) đoạn chữ
sẽ gia tăng kích cỡ tới khi đạt tới cỡ 11
If [Mylabel].Fontsize<11 Then [Mylabel].Fontsize = [Mylabel].Fontsize +1
Mylabel là tên của nhãn chứa chữ Để chương trình chạy đẹp bạn nhớ đặt FontSize mặc nhiên của nhãn thật nhỏ Trong trang thuộc tính của nhãn, bạn nên đặt trị khởi động thấp rồi tăng dần lên Trong trường hợp này, giá trị khởi động mặc nhiên được đặt bằng 1 Bạn cũng nên đặt trị TimerInterval thích hợp để cho hoạt hình mượt mà Trong trường hợp này, nên chọn 100 mili giây Nếu bạn chọn trị số nhỏ hơn, hoạt hình sẽ chạy nhanh hơn tức là mau hết hơn
Hiệu ứng thứ hai trong cơ sở dữ liệu mẫu của bạn là lặp vòng màu nền nhãn Kỹ thuật dùng cũng tương tự với định kích cỡ chữ Bạn đặt mã trong thủ tục sự kiện gắn liền với thuộc tính OnTimer và thêm mã vào trong thuộc tính của nhãn, trong trường hợp này là thuộc tính
BackColor
Thuộc tính BackColor chứa một biểu thức số tương ứng với màu được gán cho nền của phần bên trong hay của các ô điều khiển Bạn có thể đặt thuộc tính này bằng cách nhấn nút Build ở bên phải hộp thuộc tính trong trang thuộc tính Color Build sẽ xuất hiện, bạn có thể chọn màu sẵn
có hay tạo màu riêng cho các ô điều khiển hay các thành phần khác Để tạo màu sắc lập vòng biến ảo bạn phải trực tiếp thay đổi thuộc tính trong mã
Giải thích cũng khá đơn giản: mỗi lần sự kiện Timer xảy ra, đoạn mã trong thủ tục làm tăng giá trị gán cho thuộc tính gán cho BackColor của nhãn lên 1000 cho đến khi đạt được giá trị đích
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
Trang 3Như 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:
Me![button1].Visible = True
Me![button2].Visible = False
Bảo đảm rằng bạn sẽ đuổi theo những nút ấn hết buổi tối
Ví dụ cuối cùng trong cơ sở dữ liệu cho bạn là cách dùng thuộc tính Visible, sự kiện
MouseMove và áp dụng của chúng cho hình ảnh Nếu bạn đặt hai ảnh cùng cỡ lên trên mẫu biểu, ảnh này chồng khít lên ảnh kia, bạn có thể xử lý từng thuộc tính nhìn thấy Cách xử lý này tạo ra những chuyển đổi hình ảnh khi chỉ điểm chuột đặt trong vùng của chúng