Tài liệu Lập trình với nhân vật hoạt hình của OFFICE doc

Lập trình với nhân vật hoạt hình của OFFICE

Khi vào bất cứ chương trình OFFICE 97 trở lên nào, nếu máy được cài đặt đầy
đủ, ta sẽ bắt gặp một nhân vật hoạt hình. Nhân vật này thật vui mắt, lúc rỗi rãi
ta có thể lập trình một chương trình Visual Basic để nhân vật này thể hiện 34
kiểu, phụ thuộc vào 34 ngữ cảnh khác nhau. Tuy nhiên, ta có thể điều khiển
được quá trình thể hiện này.
Ngoài ra, bạn có thể sử dụng nhân vật hoạt hình này (Mà tôi thích gọi là tên
thuyết minh) để hiển thị các hộp thoại giao tiếp. Nếu máy của bạn có card âm thanh, bạn có thể
nghe thấy những hành động tương ứng của tên thuyết minh này.

. 34 kiểu thể hiện của tên thuyết minh
Để tên thuyết minh hiện ra, bạn hãy click vào nút màu vàng có dấu hỏi của bất cứ chương trình
OFFICE nào. Sau đó bạn hãy chọn Options. Tại tab có tên Gallary bạn có thể chọn một nhân vật
hoạt hình mà bạn ưa thích bằng các nút Next hoặc Back. Bạn sẽ thấy một nhân vật giống như
Anhxtanh, tôi chọn nhân vật này để lập trình.
Từ môi trường Winword, tôi khởi động vào môi trường Visual Basic bằng nhiều cách, tôi chọn
Alt +F11. Rồi cho hiện Project Explore bằng cách nhấn Ctrl+R. Tôi muốn lưu phần lập trình vào
tệp Normal.dot để có thể sử dụng được nhiều lần nên tôi Click vào Normal, click vào Insert
Form để thêm một Form.
Form này tôi đặt tên là NghichTM, NghichTM.Caption ="Đùa với tên thuyết minh" . Ngoài cách
trình bày bố trí cho thật đẹp, tôi sử dụng thêm 3 nút lệnh.
CmdOK để tên thuyết minh thực hiện. CmdOK.Caption="OK"
CmdCancel để đóng Form.CmdCancel.Caption="Thôi"
CmdQuangcao để ví dụ sử dụng tên thuyết minh thay cho hộp thoại giao tiếp.
CmdQuangCao.Caption="Quảng cáo"
Ngoài ra, tại Form này tôi chèn 1 Text Box ThongBao để thuyết minh cho hành động tên thuyết
minh
Chèn thêm 1 Frame trong đó đặt 34 nút tròn Option, tương ứng với 34 động tác. Đặt tên từ HD1
đến HD34. Thuộc tính Caption tôi đặt từ 1 đến 34.
Sau đó Dclick vào nút OK để tiến hành vào cửa sổ soạn thảo Code.

Tại Module này tôi tiến hành lập những dòng sau:
'Đặt các hành động vào các hằng c
ủa OFFICE
Private HDong As Long
Private Const HDd1 = msoAnimationAppear
Private Const HDd2 = msoAnimationBeginSpeaking
Private Const HDd3 = msoAnimationCharacterSuccessMajor
Private Const HDd4 = msoAnimationCheckingSomething
Private Const HDd5 = msoAnimationDisappear
Private Const HDd6 = msoAnimationEmptyTrash
Private Const HDd7 = msoAnimationGestureDown
Private Const HDd8 = msoAnimationGestureLeft
Private Const HDd9 = msoAnimationGestureRight
Private Const HDd10 = msoAnimationGestureUp
Private Const HDd11 = msoAnimationGetArtsy
Private Const HDd12 = msoAnimationGetAttentionMajor
Private Const HDd13 = msoAnimationGetAttentionMinor
Private Const HDd14 = msoAnimationGetTechy
Private Const HDd15 = msoAnimationGetWizardy
Private Const HDd16 = msoAnimationGoodbye
Private Const HDd17 = msoAnimationGreeting
Private Const HDd18 = msoAnimationIdle
Private Const HDd19 = msoAnimationListensToComputer
Private Const HDd20 = msoAnimationLookDown
Private Const HDd21 = msoAnimationLookDownLeft
Private Const HDd22 = msoAnimationLookDownRight
Private Const HDd23 = msoAnimationLookLeft
Private Const HDd24 = msoAnimationLookRight
Private Const HDd25 = msoAnimationLookUp
Private Const HDd26 = msoAnimationLookUpLeft

Private Const HDd27 = msoAnimationLookUpRight
Private Const HDd28 = msoAnimationPrinting
Private Const HDd29 = msoAnimationSaving
Private Const HDd30 = msoAnimationSearching
Private Const HDd31 = msoAnimationSendingMail
Private Const HDd32 = msoAnimationThinking
Private Const HDd33 = msoAnimationWorkingAtSomething
Private Const HDd34 = msoAnimationWritingNotingSomething
Private Sub CmdOK_Click()
Application.Assistant.Animation = HDong
End Sub
Private Sub CmdCancel_Click()
NghichTM.Hide
End
End Sub
Private Sub CmdQuangCao_Click()
Call QuangCaoABC
End Sub
Private Sub Hd1_Click()
ThongBao.Text = "Appear (Hiện ra)"
HDong = HDd1
End Sub
Private Sub Hd2_Click()
ThongBao.Text = "BeginSpeaking (Bắt đầu nói)"
HDong = HDd2
End Sub
Private Sub Hd3_Click()
ThongBao.Text = "CharacterSuccessMajor (Thể hiện Thủ trưởng)"
HDong = HDd3
End Sub

Private Sub Hd4_Click()
ThongBao.Text = "CheckingSomething (Kiểm tra sổ sách)"
HDong = HDd4
End Sub
Private Sub Hd5_Click()
ThongBao.Text = "Disappear (Đi vào)"
HDong = HDd5
End Sub
Private Sub Hd6_Click()
ThongBao.Text = "EmptyTrash (Huỷ tài liệu)"
HDong = HDd6
End Sub
Private Sub Hd7_Click()
ThongBao.Text = "GestureDown (Phân bua)"
HDong = HDd7
End Sub
Private Sub Hd8_Click()
ThongBao.Text = "GestureLeft (Phân bua bên trái)"
HDong = HDd8
End Sub
Private Sub Hd9_Click()
ThongBao.Text = "GestureRight (Phân bua bên phải)"
HDong = HDd9
End Sub
Private Sub Hd10_Click()
ThongBao.Text = "GestureUp (Phân bua bên trên)"
HDong = HDd10
End Sub
Private Sub Hd11_Click()
ThongBao.Text = "GetArtsy (Nhạt nhoà)"

HDong = HDd11
End Sub
Private Sub Hd12_Click()
ThongBao.Text = "GetAttentionMajor (Gặp cấp trên ấy)"
HDong = HDd12
End Sub
Private Sub Hd13_Click()
ThongBao.Text = "GetAttentionMinor (Gặp cấp dưới)"
HDong = HDd13
End Sub
Private Sub Hd14_Click()
ThongBao.Text = "GetTechy (Thế mới Kỹ thuật)"
HDong = HDd14
End Sub
Private Sub Hd15_Click()
ThongBao.Text = "GetWizardy (Xin chào)"
HDong = HDd15
End Sub
Private Sub Hd16_Click()
ThongBao.Text = "Goodbye (Tạm biệt!)"
HDong = HDd16
End Sub
Private Sub Hd17_Click()
ThongBao.Text = "Greeting (Có chuyện gì không?)"
HDong = HDd17
End Sub
Private Sub Hd18_Click()
ThongBao.Text = "Idle (Chờ)"
HDong = HDd18
End Sub

Private Sub Hd19_Click()
ThongBao.Text = "ListensToComputer (Hãy nghe máy tính)"
HDong = HDd19
End Sub
Private Sub Hd20_Click()
ThongBao.Text = "LookDown (Nhìn xuống)"
HDong = HDd20
End Sub
Private Sub Hd21_Click()
ThongBao.Text = "LookDownLeft (Nhìn xuống trái)"
HDong = HDd21
End Sub
Private Sub Hd22_Click()
ThongBao.Text = "LookDownRight (Nhìn xuống phải)"
HDong = HDd22
End Sub
Private Sub Hd23_Click()
ThongBao.Text = "LookLeft (Nhìn trái)"
HDong = HDd23
End Sub
Private Sub Hd24_Click()
ThongBao.Text = "LookRight (Nhìn phải)"
HDong = HDd24
End Sub
Private Sub Hd25_Click()
ThongBao.Text = "LookUp (Nhìn lên)"
HDong = HDd25
End Sub
Private Sub Hd26_Click()
ThongBao.Text = "LookUpLeft (Nhìn lên trái)"

HDong = HDd26
End Sub
Private Sub Hd27_Click()
ThongBao.Text = "LookUpRight (Nhìn lên phải)"
HDong = HDd27
End Sub
Private Sub Hd28_Click()
ThongBao.Text = "Printing (Đang in)"
HDong = HDd28
End Sub
Private Sub Hd29_Click()
ThongBao.Text = "Saving (Thu vào đĩa)"
HDong = HDd29
End Sub
Private Sub Hd30_Click()
ThongBao.Text = "Searching (Tìm kiếm)"
HDong = HDd30
End Sub
Private Sub Hd31_Click()
ThongBao.Text = "SendingMail (Gửi đi)"
HDong = HDd31
End Sub
Private Sub Hd32_Click()
ThongBao.Text = "Thinking (Đang nghĩ)"
HDong = HDd32
End Sub
Private Sub Hd33_Click()
ThongBao.Text = "WorkingAtSomething (Đang làm việc)"
HDong = HDd33
End Sub

Private Sub Hd34_Click()
ThongBao.Text = "WritingNotingSomething (Kiểm tra vài việc)"