หากมีคำถาม ขอให้ไปโพสต์ลง เว็บบอร์ดจีทูจีเน็ตดอตคอม ตัวใหม่แทนน่ะครับ

หรือติดต่อเข้ามาทาง Inbox ที่ เฟซบุ๊ค ผมครับ

หน้าหลัก
ข่าวสาร - บทความ ทั้งหมด
VB 6/VB.Net
ASP/ASP.Net
จับฉ่ายคอมพิวเตอร์
เรียนรู้ผ่าน Flash Movie
บทความที่มีผู้ตอบล่าสุด  
 RSS Feeds
 ดาวน์โหลดโปรแกรม RSS Reader ได้ที่นี่ ...   Download โปรแกรม RSS Reader

Forum - www.g2gnet.com
Webmaster - www.g2gnet.com
Visitors - Session views
 5 1 2 8 4 5 6

7 ธันวาคม พ.ศ.2549
234 Users On-Line.
Visitors - Page views
 8 4 2 4 4 9 5
1 กุมภาพันธ์ พ.ศ.2551

Google   
เว็บ g2gnet.com
ขนาดตัวอักษร:  

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

Category »  VB 6/VB.Net
โดย : Webmaster เมื่อ 4/5/2552   เวลา: 12:01
(อ่าน : 47772) 
พี่น้องครับ ... เรื่องของ ไอเดีย จินตนาการ และ ความคิดสร้างสรรค์ มันสามารถนำมาใช้กับงานการพัฒนาซอฟท์แวร์ได้ รวมไปถึงยังใช้ได้กับชีวิตจริงของการทำงาน ด้วยน่ะครับ ... อย่างไรก็ตามที หลายต่อหลายเรื่องที่ผมยกมาเป็นตัวอย่าง (งานจริง) ในบทความต่างๆของผม ผมได้นำเรื่องที่คนเขาไม่ค่อยจะคิด (หรือคิดแล้วแต่ไม่ได้ทำ ... เอิ๊กๆๆๆๆ) เพื่อนำเสนอเป็นแนวทางให้พี่น้องได้รับชมกัน ... อย่างเช่นงานเพื่อความบันเทิงในหัวข้อนี้ แท้ที่จริงแล้วผมตั้งเป็นโจทย์เอาไว้ สำหรับฝึกการเขียนโปรแกรมกับ VB.NET ของผมเอง ... 55555+ ... คือมันไม่ได้เพียงแค่ฝึกคิด แต่สามารถนำมาใช้งานได้จริงๆ ก็ทำไว้ให้ตัวเองได้ดู MV ต่างๆ โดยที่ไม่ต้องเข้าไปที่ YouTube ให้เสียเวลาโหลดหน้าเว็บ ครั้นจะเก็บเอาไว้ใช้งานคนเดียวก็กระไรๆอยู่ ดังนั้นจึงได้นำมาเสนอ (หน้า) เพื่อเป็นแนวทางให้พี่น้องที่กำลังฝึกฝนงานซอฟท์แวร์ ได้ลองด้อมๆมองๆ งานที่อยู่ใกล้ๆตัวนั่นแหละ จากนั้นเอามันมาปั้นเป็นตัว เอ้ย เป็นชิ้นงานออกมา ... จับฉ่ายแบบผมก็เล่นมุขนี้ตลอดแหละครับ
ดาวน์โหลด
ดาวน์โหลด Source Code สำหรับ MS Visual Basic 6.0 - Service Pack 6
 ดาวน์โหลด Visual Basic 6.0 SP5: Run-Time Redistribution Pack
 ดาวน์โหลด Microsoft Data Access Object (MDAC) และ Jet 4.0 Update
 ดาวน์โหลด Microsoft Visual Basic Service Pack 6
ข้อมูลเพิ่มเติม
เรียนรู้ XML กับ Visual Basic 6.0 ภาค 1
เรียนรู้ XML กับ Visual Basic 6.0 ภาค 2
เรียนรู้ XML กับ Visual Basic 6.0 ภาค 3 (แปลงร่าง XML ให้กลายเป็น HTML)
เรียนรู้ XML กับ Visual Basic 6.0 ภาค 4 (แจกโค้ดทำโปรแกรมดูทีวีออนไลน์ VB6+XML)
แจกฟรี ... Source Code โปรแกรมดูทีวีออนไลน์ ด้วย VB.Net (2008)
  • หน้าจอในการเล่น YouTube ผ่าน ShockWave Flash (ทำไงจะมีวาสนาได้แฟนแบบนี้สักคนล่ะเนี่ย ... หือๆๆๆๆ)
  • เลือกรายการเพลง (ดับเบิ้ลคลิ๊กส์ในแต่ละแถว)
  • เพิ่ม หรือ แก้ไขข้อมูล
  • Project --> Components ...
  • การออกแบบ (Design Time)
    เริ่มต้นกระบวนการทำงาน
    
    ' ส่วนของการเล่น 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
    
    สำหรับส่วนของการเพิ่ม แก้ไข ลบ หรือ ค้นหารายการ ผมก็เคยนำเสนอไปหลายรอบแล้วครับ บทความนี้ต้องขอข้ามไป ไม่ขอนำมากล่าวถึงก็แล้วกันครับ ... พี่น้อง ... ท่านที่ได้พึ่งเข้ามาเว็บไซต์จับฉ่ายแห่งนี้ครั้งแรก สามารถอ่านได้จากบทความที่เกี่ยวข้องกับ VB6 + MS Access เอาน่ะครับ

    Conclusion:
    สำหรับเหล่าบรรดาพี่น้องมือใหม่ ผมแนะนำว่าการที่จะเกิดพัฒนาการได้ดีทางการเขียนโปรแกรมนั้น พี่น้องควรต้องพยายามคิดค้นหาไอเดีย หรือ สร้างจินตนาการ เพื่อสร้างงานต่างๆออกมาในแบบฉบับของตัวเองด้วยล่ะ อย่าพยายามแต่ลอก หรือ ตัดโค้ดมาจากหนังสือแต่เพียงเท่านั้นน่ะครับ ... และหากใครอยากทำเป็นโปรแกรมแจกฟรี เพื่อ Present งานตัวเองล่ะก็ ผมขอแนะนำให้เก็บข้อมูลของไฟล์ Flash ที่ดาวน์โหลดมาจาก YouTube เข้าไปด้วยน่ะครับ นั่นคือให้สามารถดูไฟล์ต่างๆได้ไม่ว่าจะเป็นแบบ On Line หรือ Off Line ก็ตาม

  • จี ทู จี เน็ต ดอต คอม - g2gNet Dot Com
    เลขทะเบียนพาณิชย์อิเล็กทรอนิกส์ 0407314800231
    CopyLeft © 2004 - 2099 g2gNet.Com All rights reserved.
    Email: [email protected] หรือ โทร. 08-6862-6560