' ส่วนของการเล่น Flash จากเว็บไซต์ YouTube (frmPlayYouTube)
' =================================================
' เหตุการณ์เมื่อสั่งเล่น Flash จาก ฟอร์มเลือกรายการ (frmListYouTube)
Private Sub cmdLoadSong_Click()
' =================================================
' เรียกไปยังฟอร์มแสดงรายชื่อเพลงที่เก็บไว้
frmListYouTube.Show vbModal
' ส่งค่าตัวแปร strURL แบบ Global (ในโมดูล modDataBase.bas) ไปให้ Flash Player
Call PlayYouTube(strURL)
End Sub
' ===========================================
' เหตุการณ์เมื่อสั่งเล่น Flash จาก TextBox (txtYouTubeURL)
Private Sub cmdPlay_Click()
' ===========================================
If Trim$(txtYouTubeURL.Text) = "" Or Len(Trim$(txtYouTubeURL.Text)) = 0 Then Exit Sub
' ส่งค่าจาก TextBox ไปให้ Flash Player
Call PlayYouTube(Trim$(txtYouTubeURL.Text))
cmdPlay_ClickEnd Sub
' ================ โปรแกรมย่อยในการเล่น Flash =================
Sub PlayYouTube(URL As String)
' ====================================================
If Trim(URL) = "" Or Len(Trim(URL)) = 0 Then Exit Sub
With FlashYouTube
.Stop
' พารามิเตอร์ต่างๆที่ตัดมาจาก Script ของ YouTube
' <object width="425" height="344">
' <param name="movie" value="http://www.youtube.com/v/dGSSnSzRYH4&hl=en&fs=1"></param>
' <param name="allowFullScreen" value="true"></param>
' <param name="allowscriptaccess" value="always"></param>
' <embed src="http://www.youtube.com/v/dGSSnSzRYH4&hl=en&fs=1"
' type="application/x-shockwave-flash" allowscriptaccess="always" allowfullscreen="true"
' width="425" height="344"></embed></object>
.AllowNetworking = "all"
.AllowScriptAccess = "always"
.Menu = False
' autoplay = 1 คือ การเล่นอัตโนมัติทันที
' loop = 1 คือ การเล่นซ้ำ หรือ วนรอบ
If chkLoop.Value = vbChecked Then
.FlashVars = "autoplay=1&loop=1"
Else
.FlashVars = "autoplay=1"
End If
.SetVariable "allowFullScreen", "true"
' =============================================
' วิธีการเล่นจาก YouTube
' เช่น : http://www.youtube.com/watch?v=dGSSnSzRYH4
' สำหรับการ Load Movie ให้กับ ShockWave Flash
' แก้เป็น: http://www.youtube.com/v/dGSSnSzRYH4
' โหลด URL ให้กับ Flash Player
.LoadMovie 0, "http://www.youtube.com/v/" & URL
' =============================================
End With
' รายงานผลใน Title bar ของฟอร์ม
If strTitle = "" Then
Me.Caption = "โปรแกรมดูหนัง ดูมิวสิควิดีโอ ฟังเพลง จาก YouTube - www.g2gnet.com"
Else
Me.Caption = "โปรแกรมดูหนัง ดูมิวสิควิดีโอ ฟังเพลง จาก YouTube - [" & strTitle & _
"]" & " - www.g2gnet.com"
End If
End Sub
|