Cách làm trò chơi ô chữ bằng VBA

Đầu tiên, mở Control Toolbox trong PowerPoint. Cách mở như sau:
-Mở Tools->Customize.
Sau đó, hiện ra bảng Customize. Ở thanh Toolbar, chọn dòng “Control
Toolbox”. Sau đó sẽ hiện ra thanh công cụ Control Toolbox . Chọn Label và
vẽ ra một Label( Chữ A). Click chuột phải, chọn Properties
Ở ô Name, thay đổi tên đối tượng .(Ở đay nói không kĩ lắm nên các bạn tìm
hiểu thêm tại />tng-tc) Copy ra thành 20 Label . Ở 7 ô ghi ô chữ, các bạn đặt tên lần lượt là
Label1, Label2,Label3, Label4, Label5,… Ở ô ghi số lần trả lời sai còn lại,
bạn đặt tên là LabelDiem . Ở các ô ghi chữ để điều khiển(để sau khi bấm vào
thì chữu đó sẽ hiện các ô ghi chữ), các bạn ghi lần lượt là LabelBP1,
LabelBP2,LabelBP3,…. Các ô ghi chữ đúng, các bạn đặt tên là LabelDung1,
LabelDung2,… Chọn một Label, bấm Enter, xóa sach và ghi đoạn code sau:
Private Sub LabelDung1_Click()
If Label1.Capiton=”” Then Label1.Capiton =”V”
End Sub
Private Sub LabelDung2_Click()
If Label2.Capiton=”” Then Label2.Capiton =”I”
End Sub
Private Sub LabelDung3_Click()
If Label3.Capiton=”” Then Label3.Capiton =”E”
End Sub
Private Sub LabelDung4_Click()
If Label4.Capiton=”” Then Label4.Capiton =”T”
End Sub
Private Sub LabelDung5_Click()
If Label5.Capiton=”” Then Label5.Capiton =”N”
End Sub
Private Sub LabelDung6_Click()
If Label6.Capiton=”” Then Label6.Capiton =”A”
End Sub
Private Sub LabelDung7_Click()

If Label7.Capiton=”” Then Label7.Capiton =”M”
End Sub
Sub sai()
LabelDiem.Capiton=LabelDiem.Capiton-1
If LabelDiem.Capiton =0 Then MsgBox “Het lan tra loi. Cac ban da thua”, , “Thua roi”
SlideShowWindows(1).View.Next
Private Sub LabelBP1_Click()
sai
End Sub
Với những Label BP2, BP3,… các bạn cũng làm như thế.
Tạo Slide kết thúc
Tạo một WordArt ghi “Thua rồi” hay “Rất tiếc” hay đại loại. Tạo hai Action Button , một
cái ghi chơi lại, một cái ghi kết thúc. Cách tạo nút chơi lại: Click chuột phải, chọn Action
Settings. Ở mục Mouse Click , chọn Hypelink to, ở mục trỏ xuống, chọn First Slide.
Còn ở nút kết thúc, các bạn cúng làm vậy nhưng thay đổi First Slide thanh End Show.
Ở Slide đầu tiên, tạo một Command Button và thay đổi tên thành ButtonKetThuc. Click
chuột phải, chọn Command Button Object-> Edit, thay đổi nội dung thành chơi lại
Mở VBA editor ra và đánh:
Private Sub ButtonKetThuc_Click()
Label1.Capiton=””
Label2.Capiton=””
Label3.Capiton=””
Label4.Capiton=””
Label5.Capiton=””
Label6.Capiton=””
Label7.Capiton=””
LabelDiem.Capiton=3
End Sub
Các bạn làm một TextBox ghi “Số lần trả lời sai còn lai:” ngay bên trên ButtonKetThuc.
Kết thúc