Xem film trên form

[thanhnhanubnd]

Mình có 1 form và 01 đoạn video. Mình muốn tạo một button trên form, khi nhấn nút này sẽ chạy đoạn film trên. Xin nhờ các bạn giúp
( việc này giống như việc ta trình chiếu trên powerpoint).

 

[Hai Lúa Miền Tây]

Mình có 1 form và 01 đoạn video. Mình muốn tạo một button trên form, khi nhấn nút này sẽ chạy đoạn film trên. Xin nhờ các bạn giúp
( việc này giống như việc ta trình chiếu trên powerpoint).

Bạn làm như sau:

- Thêm 1 Userform
- Click chuột phải lên ControlToolbox, chọn "Additional Controls", list hiện ra bạn chọn Windows Media Player, Nhấn OK
- Về lại hộp ToolBox chọn cái Windows Media Player, vẽ vào form.
- Vẽ 2 nút commandbutton.

Cho code vào Form

Option Explicit

Const strDuongDan As String = "C:\DuongDanDenFileVideo\AVSEQ01.dat"

Private Sub CommandButton1_Click()
    With WindowsMediaPlayer1
        .URL = strDuongDan
        .Controls.Play
    End With
End Sub

Private Sub CommandButton2_Click()
Unload Me

End Sub

 

[thanhnhanubnd]

Van đề đã được giải quyết. Thank. Nhưng sao mình ko xem ở chế độ fullscren được vậy bạn.
Có cách nào để xem đầy màn hình không. Ta không cần đặt mediaplayer vào form, chỉ cần tạo 1 liên kết gọi mediaplayer, có đoạn code cho nó chơi đoạn film trong đường dẫn thôi. Nhờ bạn xem và hướng dẫn giúp.

 

[thanhnhanubnd]

Cac ban nghien cứu giúp với

 

[ndu96081631]

Van đề đã được giải quyết. Thank. Nhưng sao mình ko xem ở chế độ fullscren được vậy bạn.
Có cách nào để xem đầy màn hình không. Ta không cần đặt mediaplayer vào form, chỉ cần tạo 1 liên kết gọi mediaplayer, có đoạn code cho nó chơi đoạn film trong đường dẫn thôi. Nhờ bạn xem và hướng dẫn giúp.

Thế thì chỉ là Hyperlink thôi ---> Cái này chắc bạn thừa sức chứ

 

[thanhnhanubnd]

hyperlink trong form hả bạn?mình hơi dốt, chỉ dùm nhé.

Chỉ dùm mình: nhấn nút trong form thì mở mediaplayer, mở luôn các file trong list do mình đặt ra.

 

[thanhnhanubnd]

Nhờ các bạn nghiên cứu giúp...

 

[ndu96081631]

hyperlink trong form hả bạn?mình hơi dốt, chỉ dùm nhé.

Chỉ dùm mình: nhấn nút trong form thì mở mediaplayer, mở luôn các file trong list do mình đặt ra.

Thì vầy đi

Private Sub CommandButton1_Click()
  With CreateObject("Shell.Application")
     .Open ("Đường dẩn đến file video")
  End With
End Sub

ví dụ:

Private Sub CommandButton1_Click()
  With CreateObject("Shell.Application")
     .Open ("D:\Relax\Film\Tom & Jerry - Vol 01.avi")
  End With
End Sub

 

[thanhnhanubnd]

Thì vầy đi

Private Sub CommandButton1_Click()
  With CreateObject("Shell.Application")
     .Open ("Đường dẩn đến file video")
  End With
End Sub

ví dụ:

Private Sub CommandButton1_Click()
  With CreateObject("Shell.Application")
     .Open ("D:\Relax\Film\Tom & Jerry - Vol 01.avi")
  End With
End Sub

Có cách nào ko cần thay đổi đường dẫn ko bạn, tức là :
- file mình lưu ở ổ USB, với máy mình là ổ H sang máy khác là ổ E.
vì vậy, khi gắn vào máy khác ta phải sửa code. Tớ Muốn : khi nhấn vào sẽ chạy file aaaa.avi nằm chung 1 thư mục của file excel đang chạy

 

[ndu96081631]

Có cách nào ko cần thay đổi đường dẫn ko bạn, tức là :
- file mình lưu ở ổ USB, với máy mình là ổ H sang máy khác là ổ E.
vì vậy, khi gắn vào máy khác ta phải sửa code. Tớ Muốn : khi nhấn vào sẽ chạy file aaaa.avi nằm chung 1 thư mục của file excel đang chạy

Thì dùng Thisworkbook.Path để lấy đường dẩn thư mục chứa file Excel
cụ thể

Private Sub CommandButton1_Click()
  With CreateObject("Shell.Application")
     .Open (Thisworkbook.Path & "\Tên file video")
  End With
End Sub

Ví dụ:

Private Sub CommandButton1_Click()
  With CreateObject("Shell.Application")
     .Open (Thisworkbook.Path & "\Tom & Jerry - Vol 01.avi")
  End With
End Sub