แจกฟรี Source Code VB6 - โปรแกรมดูหนัง มิวสิควิดีโอ ฟังเพลงจาก YouTube

' ส่วนของการเล่น 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