Bài giảng PowerPoint tương tác - Bài 4: Các đối tượng cơ bản (Phần 3)

Bài 4CÁC ĐỐI TƯỢNG CƠ BẢN (Phần 3) IMAGEImage thường được dùng để chứa hình. Thuộc tính cơ bản là Picture. Khi thay đổi thuộc tính này sẽ dẫn đến thay đổi hình chứa bên trong Image.Thuộc tínhMô tảPictureHình chứa bên trong Pictrue Box.PictureSizeModeCó 3 giá trị tương ứng với giữ nguyên kích thước hình, dãn kích thước cho bằng với khung hình (fmPictureSizeModeStretch-hay dùng), phóng to nội dung bên trong.IMAGESự kiện cơ bản trên Image vẫn là Click. Để hiển thị hình từ bên ngoài ta dùng hàm LoadPicture với tham số là đường dẫn đến hình. Khi load hình ta nên xét vị trí tương đối giữa hình với file Powerpoint đang trình chiếu. ActivePresentation.Path trả về vị trí của file Powerpoint đang trình chiếu.Ví dụ 2.7: Hướng dẫn sử dụng LoadPicture. Kết quả của ví dụ này là một công tắt điện. Khi người dùng click vào công tắc sẽ chuyển trạng thái bằng cách đổi hình. Giả sử rằng 2 hình này được đặt trong thư mục media nằm ngang cấp với file Powerpoint đang thiết kế.IMAGEHướng dẫn chi tiết:Bước 1: Tạo một đối tượng Image đặt tên imgCongTac, một đối tượng Label tên lblStatus. Gán thuộc tính caption của lblStatus giá trị là “On”.Bước 2: Viết sự kiện click cho Image. Nếu lblStatus.caption=”On” ta chuyển trạng thái về Off và ngược lại.Private Sub imgCongTac_Click()    'Thay doi trang thai   If lblStatus.Caption = "On" Then     lblStatus.Caption = "Off"IMAGE        imgCongTac.Picture = LoadPicture(ActivePresentation.Path & "\media\off.jpg")    Else       lblStatus.Caption = "On"        imgCongTac.Picture = LoadPicture(ActivePresentation.Path & "\media\on.jpg")    End If    'Refresh Image    imgCongTac.Visible = FalseIMAGEMột điểm cần chú ý ở đây là sau khi thay đổi hình, ta phải Refresh là Image để hiển thị đúng bằng cách cho Image ẩn đi và hiển thị lại thông qua thuộc tính Visible.Ví dụ 2.8: Sử dụng Image tạo trò chơi ghép hình. Kết quả của của ví dụ này là một slide trên đó có 4 mảnh hình nguồn không theo thứ tự, 4 ô trống để người dùng đưa hình phù hợp vào.IMAGEÝ tưởng: Để chuyển hình từ ảnh nguồn sang vị trí thích hợp ta sử dụng một Image tạm làm trung gian. Image tạm này sẽ có thuộc tính visible=false để người dùng không thấy trong khi trình chiếu. IMAGEHướng dẫn chi tiết:Bước 1: Tạo 9 Image lần lượt đặt tên là imgS1, imgS2, imgS3, imgS4 (dùng chứa 4 hình nguồn), imgD1,imgD2, imgD3, imgD4 (làm khung để người dùng xếp hình), imgTemp (dùng làm trung gian chuyển hình từ nguồn sang đích–thuộc tính visible=false). Các Image này đều có thuộc tínhPictureSizeMode=fmPictureSizeModeStretch.Bước 2: Dùng thuộc tính Picture ở hộp thoại Properties để hiển thị 4 hình mong muốn.IMAGEBước 3: Khi người dùng click vào các hình nguồn sẽ đưa hình vào imageTemp.Private Sub imgS1_Click()    imgTemp.Picture = imgS1.Picture End Sub Private Sub imgS2_Click()    imgTemp.Picture = imgS2.Picture End SubIMAGEPrivate Sub imgS3_Click()    imgTemp.Picture = imgS3.Picture End SubPrivate Sub imgS4_Click()    imgTemp.Picture = imgS4.Picture End SubBước 4: Khi người dùng click vào các ô trống sẽ chuyển hình từ imageTemp vào ô trống.Private Sub imgD1_Click()IMAGE    imgD1.Picture = imgTemp.Picture    'Refresh D1    imgD1.Visible = False    imgD1.Visible = True End Sub Private Sub imgD2_Click()    imgD2.Picture = imgTemp.Picture    'Refresh D2    imgD2.Visible = False    imgD2.Visible = True End SubIMAGEPrivate Sub imgD3_Click()    imgD3.Picture = imgTemp.Picture    'Refresh D3    imgD3.Visible = False    imgD3.Visible = True End Sub Private Sub imgD4_Click()    imgD4.Picture = imgTemp.Picture    'Refresh D4    imgD4.Visible = False    imgD4.Visible = TrueIMAGE End SubBước 5: Khi người dùng click vào “Làm lại” sẽ tải lên hình rỗng vào các ô trống.Private Sub lblReset_Click()    imgD1.Picture = LoadPicture("")    imgD2.Picture = LoadPicture("")    imgD3.Picture = LoadPicture("")    imgD4.Picture = LoadPicture("")    'Refresh D1, D2, D3, D4    imgD1.Visible = False    imgD1.Visible = TrueIMAGE    imgD3.Visible = False    imgD3.Visible = True    imgD4.Visible = False  imgD4.Visible = True End Sub