Đang tải... (xem toàn văn)
Đây là cách làm ô chữ tương tác từ VBA. Bài viết này giúp các bạn làm ô chữ một cách sinh động và trực quan nhất.Các cách làm ô chữ thường có làm từ PowerPoint truyền thống thường không có tương tác. Tài liệu này giúp các bạn làm ra một chương trình hay hơn và thú vị hơn. Nếu không vừa ý, các bạn góp ý đến email: tranvuanhduy2004gmail.com
Đầ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 https://sites.google.com/site/tinhocvaphuongphap/powerpoint- 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