ËÒ¡ÁÕ¤Ó¶ÒÁ ¢ÍãËéä»â¾Êµìŧ àÇ纺ÍÃì´¨Õ·Ù¨Õà¹çµ´Íµ¤ÍÁ µÑÇãËÁèá·¹¹èФÃѺ

ËÃ×͵ԴµèÍà¢éÒÁÒ·Ò§ 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 6 1 6 1 0 9

7 ¸Ñ¹ÇÒ¤Á ¾.È.2549
63 Users On-Line.
Visitors - Page views
 8 9 7 3 8 5 2
1 ¡ØÁÀҾѹ¸ì ¾.È.2551

Google   
àÇçº g2gnet.com
¢¹Ò´µÑÇÍÑ¡ÉÃ:  

ᨡ¿ÃÕ ... Source Code â»Ãá¡ÃÁ´Ù·ÕÇÕÍ͹äÅ¹ì ´éÇ VB.Net (2008) ÃèÇÁ¡ÑºàÍ¡ÊÒà XML

Category »  VB 6/VB.Net
â´Â : Webmaster àÁ×èÍ 24/7/2551 14:01:00
(ÍèÒ¹ : 63747) 
㹰ҹТͧ¤¹·Ó§Ò¹ã¹ÍÒªÕ¾ÍÔÊÃÐẺ Freelance ¹èФÃѺ äÁèãªè¾Ç¡ Site Line ... ¡Ò÷Õè¼ÁÂѧäÁèÂÍÁÂéÒ¢Öé¹ÊÙè .NET àµçÁæÊÑ¡¡Ð·Õ à¾ÃÒмÁÁͧÁÒã¹á§èÁØÁ·Ñé§¹Ò¨éÒ§ áÅÐ ÅÙ¡¨éÒ§ (¡ç·Ó·Ø¡æÍÂèÒ§ã¹µÑǤ¹à´ÕÂǹÕèáËÅФÃѺ) ¡ÒþѲ¹Ò´éÇ VB6 ÁѹÁյ鹷ع·ÕèµèÓ¡ÇèÒ·Ñé§ÊÓËÃѺµÑǼÁàͧ áÅÐ ÊÓËÃѺ¼ÙéÇèÒ¨éÒ§ ... µèÓ¡ÇèÒ·Ñé§àÃ×èͧ¢Í§àÇÅÒ à§Ô¹·Ø¹ ÃÇÁä»¶Ö§·ÃѾÂÒ¡ÃÃкº ... àÁ×èÍà»ÃÕºà·Õº¡Ñº Output ·Õèä´éàËÁ×͹¡Ñ¹ ... ¹èФÃѺ ... ¹Õè¤×Íà˵ؼÅËÅÑ¡æ ... ´Ñ§¹Ñ鹡ÒÃÈÖ¡ÉÒàÃ×èͧ¢Í§à·¤â¹âÅÂÕ .NET ¼Á¨Ö§ÁͧÁÒ·ÕèàÃ×èͧ¢Í§ Web Services «èÐÁÒ¡¡ÇèÒ áÁéÇèÒ·Ø¡Çѹ¹Õé¼Áàͧ¡çÂѧ¹Ö¡äÁèÍÍ¡àÅÂÇèҨзÓÍÐäáѺ Web Services ¡çµÒÁ·Õ áµèàÃ×èͧ·Õè¼Á¤Ô´ÇèÒ¹èҨеéͧàÃÕ¹ÃÙéã¹àÇÅÒ¹Õé ¡ç¤ÇèÐà»ç¹àÃ×èͧ¢Í§ XML (eXtensive Markup Language) àÍÒäÇé¡è͹ ... áµèÇѹ˹Öè§¢éҧ˹éÒ ... ËÒ¡Âѧ¹Ö¡ÍÐäÃäÁèÍÍ¡ÍÕ¡ ¡ç¨ÐµÑé§µÑÇà»ç¹ ÍÒ¨ÒÃÂìãºéËÇ ãËéºÃÔ¡ÒüèÒ¹àÇçºà«ÍÃìÇÔÊ ¡Ñ¹ä»àÅ ... 55555+
àÃÕ¹ÃÙé 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 ÊÓËÃѺ MS Visual Basic 2008
á¹Ç¤Ô´ã¹¡ÒÃÍ͡Ẻ ... äÁèä´éµèҧ仨ҡ VB6 àŤÃѺ¾Õè¹éͧ ... ¤×Í ÍèÒ¹àÍ¡ÊÒà XML à¢éÒÁÒ´éÇ DOM (Document Object Model) Component à¢éÒÁÒÂÑ´ãÊèäÇéã¹ ListView Control ... (ÃÍ) ¡ÒÃà¡Ô´à˵ءÒóì Mouse Double Click ËÃ×Í KeyPress ´éǤÕÂì Enter ... Êè§¢éÍÁÙÅ URL ¨Ò¡ ListView àÍÒä»ãËé¡Ñº Windows Media Player à¾×èÍãËé·Ó§Ò¹ä´éµÒÁ·Õèµéͧ¡Òà ... ¨º
àÃÔèÁµé¹¡Ãкǹ¡Ò÷ӧҹ

Design Time


¡ÒÃà¾ÔèÁ Windows Media Player Component ÁÒãªé§Ò¹
ºÃÔàdz Toolbox ... ¤ÅÔê¡àÁÒÊì¢ÇÒàÅ×Í¡ Choose Items ...


¤ÅÔê¡àÅ×Í¡ Windows Media Player Component


¨Ò¡ Toolbox ¤ÅÔê¡àÅ×Í¡ Windows Media Player áÅéÇÇҴŧº¹¿ÍÃìÁ


Run Time


Imports System.Xml

Public Class frmG2GdotNetTV
    Inherits System.Windows.Forms.Form

    ' ¤Ó¹Ç³ËÒ¤èҢͺ¢Í§¿ÍÃìÁ
    Private BorderWidth As Integer = (Me.Width - Me.ClientSize.Width) \ 2
    ' ËÒ¤èÒ¤ÇÒÁÊÙ§¢Í§ TitleBar ... à¾×èÍãªé»ÃÐ⪹ì㹡ÒäӹdzËÒÃÐÂеÓá˹觢ͧ Control µèҧ溹¿ÍÃìÁä´é
    Private TitlebarHeight As Integer = Me.Height - Me.ClientSize.Height - 2 * BorderWidth

    Private Sub frmG2GdotNetTV_Load( _
        ByVal sender As System.Object, _
        ByVal e As System.EventArgs) _
        Handles MyBase.Load

        Dim XMLDoc As XmlDocument  ' àÍ¡ÊÒà XML
        Dim NodeList As XmlNodeList    ' â˹´·Ñé§ËÁ´·ÕèÁÕÍÂÙè ¡ç¤×Í ·Ø¡æ Station ¹Ñè¹àͧ
        ' â˹´áµèÅеÑÇ ËÃ×Í áµèÅÐ Station
        ' µÑÇÍÂèÒ§¹Õé¡ç¨ÐÁÕ Element ´Ñ§¹Õé¤×Í ID, StationName, GroupName, Media
        Dim NodeElement As XmlNode

        ' µÑÇá»Ã Item à¾×èÍãªé§Ò¹¡Ñº ListView
        Dim LV As New ListViewItem

        ' ÊÃéÒ§ XML Document
        XMLDoc = New XmlDocument()

        ' âËÅ´ Xml à¢éÒÁÒ
        Dim StrAppPath As String = Environment.CurrentDirectory
        XMLDoc.Load(StrAppPath & "\g2gnettv.xml")
        ' ʶҹÕÍ͹äŹì¨Ò¡ Web Server ... ¢éÍÁÙÅÊ¶Ò¹Õ ËÃ×Í ÃÒ¡ÒõèÒ§æ¨Ð¶Ù¡ Update ³ ·Õèà´ÕÂǡѹ
        'XMLDoc.Load("http://www.g2gnet.com/g2gnettv/g2gnettv.asp")

        Me.StartPosition = FormStartPosition.CenterScreen
        With lvwStation
            .Clear()
            .View = View.Details
            .FullRowSelect = True     ' áÊ´§á¶ºáʧã¹á¶Ç·Õè¶Ù¡ Focus
            .HideSelection = False   ' äÁè»Ô´á¶ºáʧ㹢³Ð·Õè Listview äÁè¶Ù¡ Focus

            .Columns.Add("ID", 0)
            .Columns.Add("ʶҹÕ/ÃÒ¡ÒÃ", lvwStation.Width \ 2)
            .Columns.Add("¡ÅØèÁÃÒ¡ÒÃ", lvwStation.Width \ 2 - 20)
            ' «è͹¢éÍÁÙÅ URL äÁèãËé¼Ùéãªé§Ò¹ä´éàËç¹ ... áÍºææææ
            .Columns.Add("Media", 0)
        End With

' ¡Ó˹´â˹´ NodeList = XMLDoc.SelectNodes("tvstation/channel/Station") ' ǹÃͺáµèÅÐâ˹´ - Station Node For Each NodeElement In NodeList ' ÍèÒ¹ ID Element Dim ID As String = NodeElement.ChildNodes.Item(0).InnerText ' ÍèÒ¹ StationName Element Dim StationName As String = NodeElement.ChildNodes.Item(1).InnerText ' ÍèÒ¹ GroupName Element Dim GroupName As String = NodeElement.ChildNodes.Item(4).InnerText ' ÍèÒ¹ Media Element - à»ç¹¡ÒÃà¡çº¤èÒ URL ¤ÃѺ ... ¾Õè¹éͧ Dim Media As String = NodeElement.ChildNodes.Item(2).InnerText ' ¨ÑºÂÑ´à¢éÒãÊè ListView ·ÕÅÐ Column LV = lvwStation.Items.Add(ID) ' Index = 0 LV.SubItems.Add(StationName) ' Index = 1 LV.SubItems.Add(GroupName) ' Index = 2 LV.SubItems.Add(Media) ' Index = 3 ... µÑǹÕéµéͧãªé㹡ÒáÓ˹´¤èÒ URL ãËé¡Ñº Windows Media Player Next Me.Text = "G2GdotNetTV On Line - www.g2gnet.com" ' µÑ駤èÒãËé¡Ñº Windows Media Player WMP.enableContextMenu = False ' äÁèãËé¼Ùéãªé¡´àÁÒÊì¢ÇÒ à¾×èÍàÅ×Í¡àÁ¹Ù WMP.stretchToFit = True ' ãËé˹éÒ¨Í Windows Media Player ¾Í´Õ¡Ñº¡ÒûÃѺ¢¹Ò´¢Í§¿ÍÃìÁ End Sub Private Sub lvwStation_KeyPress( _ ByVal sender As Object, _ ByVal e As System.Windows.Forms.KeyPressEventArgs) _ Handles lvwStation.KeyPress ' Chr(13) ËÃ×Í ¡ç¤×Í¡Òá´ Enter ¹Ñè¹àͧ If e.KeyChar = Chr(13) Then Call GetURL() End Sub Private Sub lvwStation_MouseDoubleClick( _ ByVal sender As Object, _ ByVal e As System.Windows.Forms.MouseEventArgs) _ Handles lvwStation.MouseDoubleClick Call GetURL() End Sub ' ÍèÒ¹¤èÒ¨Ò¡ Column ·Õè 4 (ËÃ×Í Index = 3) «Öè§à»ç¹¤èÒ URL ã¹ ListView Private Sub GetURL() Dim LV As ListViewItem If Me.lvwStation.SelectedItems.Count > 0 Then LV = Me.lvwStation.SelectedItems(0) WMP.URL = LV.SubItems(3).Text Me.Text = "G2GdotNetTV On Line - www.g2gnet.com [" & LV.SubItems(1).Text & "]" End If End Sub Private Sub frmG2GdotNetTV_Resize( _ ByVal sender As Object, _ ByVal e As System.EventArgs) _ Handles Me.Resize ' àÍÒẺºéÒ¹æµÒÁÊäµÅì¢Í§ M$ Visual Basic 6.0 ÅèСѹ¹èФÃѺ ... ¾Õè¹éͧ ... 55555+ With grpStation .Left = 0 .Top = Me.Height - grpStation.Height - TitlebarHeight - 8 .Width = Me.Width - 8 End With With WMP .Left = 0 .Top = 0 .Width = Me.Width .Height = Me.Height - grpStation.Height - TitlebarHeight - 8 End With With lvwStation .Left = 5 .Top = 15 .Width = grpStation.Width - 10 .Height = grpStation.Height - 22 End With End Sub End Class

¨Õ ·Ù ¨Õ à¹çµ ´Íµ ¤ÍÁ - g2gNet Dot Com
àÅ¢·ÐàºÕ¹¾Ò³ÔªÂìÍÔàÅç¡·Ã͹ԡÊì 0407314800231
CopyLeft © 2004 - 2099 g2gNet.Com All rights reserved.
Email: [email protected] ËÃ×Í â·Ã. 08-6862-6560