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

กระดานข่าวสาร เว็บบอร์ด - www.g2gnet.com
ดาวน์โหลดฟรีโปรแกรม และ Free Souce Code ได้ที่นี่ ...
รู้จักกับเว็บมาสเตอร์ - www.g2gnet.com
::: โปรแกรมมาใหม่ :::
โปรแกรมพิมพ์สติ๊กเกอร์บาร์โค้ด - Barcode Sticker
โปรแกรมพิมพ์สติ๊กเกอร์บาร์โค้ด - Barcode Sticker
โปรแกรมไปรษณีย์ และ จุดชำระค่าบริการ (iPayPost Software)
โปรแกรมไปรษณีย์ และ จุดชำระค่าบริการ
โปรแกรมจุดรับชำระค่าบริการ (iPayLite Software)
โปรแกรมจุดรับชำระค่าบริการ
::: BarcodeSoft :::
::: Printing :::
โปรแกรมพิมพ์รหัสบาร์โค้ด - BarcodeSoft Printing
โปรแกรมรหัสไปรษณีย์ทั่วไทย
::: G2GNet PostCode :::
!!!!! แจกฟรี !!!!!
ดาวน์โหลดโปรแกรมรหัสไปรษณีย์ทั่วไทย G2GNet PostCode Thailand
Visitors - Session views
 3 5 6 3 4 3 7

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

Google   
เว็บ g2gnet.com
ขนาดตัวอักษร:  
    ดาวน์โหลด และ แนะนำวิธีการติดตั้ง Active Report Professional 2.0
    แจกฟรี Source Code โปรแกรมขายสินค้า - Point Of Sale (โดย เว็บมาสเตอร์-ทองก้อน
    แจกฟรี Source Code การพิมพ์ใบกำกับภาษี - Active Report 2.0 (โดย ctx-9000@hotmail.com)
    SourceCode การดึงข้อมูลมาแสดงผลลงใน SharpGrid (โดย dos_network@hotmail.com)
    แจกฟรี Source Code VB6+Access โปรแกรมฐานข้อมูลครุภัณฑ์
    แจกโปรแกรมดูทีวี ดูหนัง ฟังวิทยุ ฟังเพลงออนไลน์ - G2GnetTV On Line ... ฟรีๆๆๆๆ
          ข้อมูลสถานี/รายการ (XML)  ข้อมูลสถานี/รายการ (HTML)
โปรแกรมระบบบัญชี Profit - Account

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

Category »  VB 6/VB.Net
โดย : Webmaster เมื่อ 4/5/2552   เวลา: 12:01
(อ่าน : 39553)/(ตอบ : 22)  ข้อคิดเห็น   |   พิมพ์   |  
พี่น้องครับ ... เรื่องของ ไอเดีย จินตนาการ และ ความคิดสร้างสรรค์ มันสามารถนำมาใช้กับงานการพัฒนาซอฟท์แวร์ได้ รวมไปถึงยังใช้ได้กับชีวิตจริงของการทำงาน ด้วยน่ะครับ ... อย่างไรก็ตามที หลายต่อหลายเรื่องที่ผมยกมาเป็นตัวอย่าง (งานจริง) ในบทความต่างๆของผม ผมได้นำเรื่องที่คนเขาไม่ค่อยจะคิด (หรือคิดแล้วแต่ไม่ได้ทำ ... เอิ๊กๆๆๆๆ) เพื่อนำเสนอเป็นแนวทางให้พี่น้องได้รับชมกัน ... อย่างเช่นงานเพื่อความบันเทิงในหัวข้อนี้ แท้ที่จริงแล้วผมตั้งเป็นโจทย์เอาไว้ สำหรับฝึกการเขียนโปรแกรมกับ 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 ก็ตาม

  • ร่วมแสดงความคิดเห็น

    [ความเห็นที่:  1] จากคุณ : Mr.Den เมื่อ 4/5/2552 16:16:24  IP: 58.9.100.97

    งานมืออาชีพทำอะไรก็เนียนไปหมอเลย..
    อาจารย์ กินอะไรเป็นอาหาร ทำไมเก่งจังเลยครับ?

    ติดตามซูมื่อเด้อ.

    [ความเห็นที่:  2] จากคุณ : devman เมื่อ 5/5/2552 23:25:27  IP: 125.25.141.74

    วงนี้ ผมชอบเหมือนกันนะครับ wonder girl 
    sub wonder_girl_select() 
    ' u เห็นด้วย มั้ย
    dim wonder_girl as korea superstar

    select case  wonder_girl 
    case "ยีอึน" : i love her very much ' because she is very lovely.....
    case "ซอนเย" : i love her
    case "โซฮี" : i love her
    case "ยูบิน" : i love her
    case "ซุนมี" : i love her
    end select

    end sub

    [ความเห็นที่:  3] จากคุณ : dos_network เมื่อ 6/5/2552 11:31:05  IP: 118.175.90.37

    สองคนนี้มาก่อนเพื่อนทุกทีเลย หน้าม้าพี่ท้องก้อนป่าวเนี้ย 555+

    [ความเห็นที่:  4] จากคุณ : devman เมื่อ 6/5/2552 15:38:25  IP: 125.25.151.21

    ม่ะใช่หน้าม้า อ่ะครับ แต่เป็นแฟนพันธ์แท้ ดั้งเดิม เหมือนๆคุณ dos_network
    นะแหละ ช่วงหลัง ผมว่า ผมช้าก่อนคนอื่นๆแล้วนาครับ เพราะ บางครั้ง นานๆเข้า
    มาที ต้องไล่อ่าน อับเดรตย้อนหลังกันเลยทีเดียว.... 555+ ..เอิ้ก

    [ความเห็นที่:  5] จากคุณ : ctx-900,000 แล้ว เมื่อ 8/5/2552 10:29:51  IP: 58.147.36.236

    ผมช้ากว่าเพื่อนอีกตามเคย
    หว่า พี่ทองหายไปไหนน้อ
    ผมกำลัง sGGrid อย่างงอหัวไม่ขึ้น อย่างชนิดทิ้ง Lv ในชั่วคืน

    [ความเห็นที่:  6] จากคุณ : bigdaddy เมื่อ 31/5/2552 6:51:10  IP: 114.128.26.194

    ขอบคุณมากครับ อาจารย์ทองก้อน

    ผมพยายามอ่านไป น้องๆ ก็คลอไป เฮ้อ...
    ทำผมเป็นไก่ตาฟางไปเลย 
    ไม่ได้ใจสลายตามเพลงไก่ตาฟางหรอกครับ 
    แต่ที่เป็นไก่ตาฟางเพราะน้องๆ เอา นอ มอ น..ม ครับ ปิดเต็มหน้าเลย

    ถึงอุปสรรคมากมี แต่ผมก็พยายามเต็มที่นะครับ 
    ถึงปากไม่ว่าง ตาข้างหนึ่งโดนบัง 
    แต่ผมก็เหลือมือสองข้าง กับตาข้างหนึ่งไว้มองหน้าจอเพื่อ run ทดสอบโปรแกรม

    นับถือครับอาจารย์






    [ความเห็นที่:  7] จากคุณ : bigdaddy เมื่อ 31/5/2552 6:59:15  IP: 114.128.26.194


    เพลงไก่ตาฟางครับ ฝากอาจารย์และเพื่อนๆ

    เพลงนี้เห็นเพื่อนๆผม ชอบร้องกันจัง   ไม่รู้เพราะเมา หรือถูกเมียกดดัน 
    ลองดูเนื้อเพลงนะครับ
    เพลง : ไก่ตาฟาง    ศิลปิน : ธันวา ราศีธนู 

    intro/Dm C/Dm/Bb A Gm C Dm 

    เมื่อรักของเราต้องจบ เพราะเธอไปคบคนใหม่ 
    ตัวฉันก็จะทำใจ ตัดใจถือว่าเป็นกรรม 

    ความดีที่ฉันมีให้ เธอไม่เห็นสิ่งที่ทำ 
    เธอไม่เคยจดจำ ว่าฉันรักเธอเท่าไหร่ 
    พูดไปใครเขาจะเชื่อ เมื่อเสือมันโดนสวนเขา 

    ตักน้ำชะโงกดูเงา ไม่เห็นเขาที่บนหัว 
    ความรักทำให้ลุ่มหลง ทำคนหน้ามืดตามัว 
    เห็นจักรนั้นเป็นดอกบัว มืดมัวเหมือนไก่ตาฟาง 

    * กว่าจะรู้ใจแทบสลาย รักเธอแทบตาย 
    สุดท้ายเธอไปจากฉัน เธอไปรักกันตอนไหน 
    ทำไมฉันไม่รักทัน คนโง่ก็คือตัวฉัน 
    ที่มันไม่รู้เรื่องเลย 

    SoLo/Bb C/Dm/ 

    ** ผู้หญิงหน้าตาดีๆ ท่าทีเรียบร้อยอ่อนหวาน 
    ที่แท้เธอคือ ซาตาน นางมารกิเลศตัณหา 
    รักเดียวใจเดียวไม่พอ อ้อล้อเสพสมกามา 
    เสเสร้งแกล้งทำมายา ลับตาเธอคิดนอกใจ 

    SoLo/Bb C/Dm/Gm C/Dm/Bb C/Dm/Gm C/Dm 

    ( ซ้ำ */ ** )

    [ความเห็นที่:  8] จากคุณ : bigdaddy เมื่อ 2/6/2552 1:27:07  IP: 117.47.114.205

    ไก่ตาฟาง : ธันวา ราศีธนู  y8ykReNfRgI
    ตี 10 | ดันดารา : น้องดรีม - ไก่ตาฟาง  7pxfHK6uJF4
    ไก่ตาฟาง ยกยอ คลองสาน บริการเป็นกันเอง xHalummf2e4

    [ความเห็นที่:  9] จากคุณ : ทองก้อน เมื่อ 2/6/2552 10:17:34

    คุณพี่ bigdaddy ท่านมาอารมณ์ไหนกันล่ะเนี่ย ...
    ผู้หญิงหน้าตาดีๆ ท่าทีเรียบร้อยอ่อนหวาน ... อันนี้ไม่ใช่เมียชัวร์ป้าบเลย (คงเป็นผู้ช่วยเมีย)
    ที่แท้เธอคือ ซาตาน นางมารกิเลศตัณหา ... อันนี้เมียแน่ๆ ... เอิ๊กๆๆๆๆ

    งั้นขอแนะนำ Wonder Gays ... 031N31B4EvM ครับพี่น้อง ... เผื่อจะมีคนอยากเปลี่ยนบรรยากาศ 55555+

    [ความเห็นที่:  10] จากคุณ : azzurro เมื่อ 21/6/2552 2:17:42  IP: 112.142.5.77

    ถ้า script ไม่ มี auto play เราจะเขียนใส่ไว้ ตรง ไหน เช่น 

    อะไรแบบนี้อ่ะ /ตอบด้วยน้า

    [ความเห็นที่:  11] จากคุณ : Poonlap เมื่อ 19/11/2552 15:35:06  IP: 58.10.33.179

    ใครอยากให้ทำงานประเภทไหน  โดยใช้ VB6 บอกได้ครับ ผมจะทำ Beta ขึ้นมาแจกให้ศึกษาฟรี พร้อมอธิบาย เพื่อการเรียนรู้และคนที่ตั้งใจอยากศึกษา VB6 จริงๆ (เน้นฟรี) ประสบการณ์นานถึง 11 ปี ประเภท Oracle  3 ปี ติดต่อ Email: Poonlap_ccj@hotmail.com ลงเมื่อวันที่ 19 พฤศจิกายน 2009 เวลา 15.30 น. 

    [ความเห็นที่:  12] จากคุณ : สาม เมื่อ 3/4/2553 13:52:22  IP: 158.108.125.222

    โปรดแกรมดี

    [ความเห็นที่:  13] จากคุณ : ya เมื่อ 29/6/2553 21:28:23  IP: 125.27.150.22

    ดีมากครับ

    [ความเห็นที่:  14] จากคุณ : champzzz เมื่อ 20/8/2553 20:43:23  IP: 110.49.193.190

    สุดๆเลยคับ
    สะดวกมากๆ

    [ความเห็นที่:  15] จากคุณ : เด็กน้อย VB เมื่อ 25/8/2553 13:24:17  IP: 61.19.158.3

    ขอบคุณมากๆครับ

    [ความเห็นที่:  16] จากคุณ : mister เมื่อ 23/9/2553 23:15:01  IP: 58.137.142.234

    ผมว่าน่าจะแจกเป็นตัวโปรแกรมจะขอบคุณอย่างสูง 
    mistermessenger_@hotmail.com
    อยากได้อยุ่เหมือนกัน แต่ไม่มีความรุ้จริงๆ

    [ความเห็นที่:  17] จากคุณ : nui เมื่อ 25/9/2553 13:47:16  IP: 183.89.105.161

    555555555555555555555555555555

    [ความเห็นที่:  18] จากคุณ : อภิวัฒน์ เมื่อ 8/10/2553 22:45:58  IP: 182.53.113.245

    ดีมากเลคับ

    [ความเห็นที่:  19] จากคุณ : พงษ์ไทย เมื่อ 28/10/2553 18:04:28  IP: 223.206.238.24

    ดีมากครับ

    [ความเห็นที่:  20] จากคุณ : naaauo เมื่อ 3/11/2553 20:29:13  IP: 1.46.93.49

    ดีดีดีดีดี

    [ความเห็นที่:  21] จากคุณ : กิ๊บ เมื่อ 27/11/2553 18:30:07  IP: 202.28.50.109

    อยากทรายการเขียนแบบเป็นเลขยกกำลัง
    1^2 + 2^2 + 3^2 + 4^2+ ........ 10^2 ค่ะ
    ขอเป็นโค้ดได้ยิ่งดีเลยค่ะ

    [ความเห็นที่:  22] จากคุณ : วุฒิ เมื่อ 13/3/2555 15:25:49  IP: 58.9.164.242

    คือพอผมสร้างตัว control flash แล้ว ผมเลยเซฟไม่ได้อะครับ แต่พอลบมันออกก็เซฟได้
    มันขึ้น System Error H80004005 (-2147467259) อะครับ  วานผู้รู้ตอบทีนะครับ


    ก่อนการคลิ๊กโพสต์ข้อความ ขอความกรุณาใช้ถ้อยคำที่สุภาพด้วยครับ เว็บไซต์แห่งนี้เป็นแหล่งเผยแพร่ความรู้ ดังนั้นสำหรับท่านที่พยายามจะป่วนเว็บไซต์ หากท่านเป็น "คนไทย" เช่นเดียวกันกับผม ก็ขอความกรุณาได้โปรดเห็นใจ "คนไทย" อีกจำนวนไม่น้อย ที่เข้ามาขอความช่วยเหลือ จากเว็บไซต์ของผมด้วยน่ะครับ และหากท่านใดไม่เข้าใจในตรงจุดไหน ก็ขอให้ระบุสิ่งที่อยากจะถามออกมา บทความของผมแทบทั้งหมดต้องอาศัยทักษะการปฏิบัติเป็นหลัก ดังนั้นขอให้ดู และ ทดสอบจากโค้ดโปรแกรมประกอบตามไปด้วย
    IP Address: 54.91.9.248
    ชื่อของคุณ:

    ข้อคิดเห็น:

    1 + 0 = ?  (กรุณาป้อนคำตอบลงในช่องด้านล่างให้เป็น ภาษาไทย ตามผลบวกของตัวเลขให้ถูกต้องก่อนด้วยน่ะครับ เช่น ศูนย์)
      


    จี ทู จี เน็ต ดอต คอม - g2gNet Dot Com
    เลขทะเบียนพาณิชย์อิเล็กทรอนิกส์ 0407314800231
    Copyright © 2005 g2gNet.Com All rights reserved.
    Email: thongkorn@hotmail.com หรือ โทร. 08-6862-6560