Private Type 数据结构类型
    名字 As String
    URL As String
End Type

Dim dat() As 数据结构类型

Private Sub Form_Load()

Dim file As String
Dim fj() As String
Dim i As String
Dim fr As Long
Dim k As Boolean

Dim j As Long

fr = FreeFile

file = "1.ini"

Open file For Input As fr
Do While Not EOF(fr)
    Line Input #fr, i
    If i = "[网络广播电台]" Then        '只有读到头,才算结束
        k = True
    End If
   
    If UCase(i) = "END" Then                   '读到 end ,算文件结束
        Exit Do
    End If
   
    If k Then           '只有读到头后,才开始分析网址
        If InStr(1, i, "=") > 0 Then
            j = j + 1           '首次要计数
        End If
    End If
Loop

Close #fr

ReDim dat(j)
j = 0

Open file For Input As fr
Do While Not EOF(fr)
    Line Input #fr, i
    If i = "[网络广播电台]" Then        '只有读到头,才算结束
        k = True
    End If
   
    If UCase(i) = "END" Then                   '读到 end ,算文件结束
        Exit Do
    End If
   
    If k Then           '只有读到头后,才开始分析网址
        If InStr(1, i, "=") > 0 Then
            fj = Split(i, "=")
           
            dat(j).名字 = fj(0)
            dat(j).URL = fj(1)
            List1.AddItem dat(j).名字
           
            j = j + 1           '首次要计数
        End If
    End If
Loop
Close #fr

Me.Caption = "网络收音机"
List1.ToolTipText = "双击换台"

End Sub

Private Sub List1_DblClick()
    WindowsMediaPlayer1.URL = dat(List1.ListIndex).URL
    Me.Caption = "网络收音机--" & dat(List1.ListIndex).名字
End Sub


[ 本帖最后由 事业男儿 于 2010-6-15 22:14 编辑 ]

今天是过节，，自己顶一个！！

再一次顶！！！

完全不知所云。。。

请高手看一看，在此谢过！！

https://bbs.bccn.net/thread-310461-1-1.html
同一问题吗？

6楼的....问题还没有解决，论坛就强制要求结贴，，，分都给你了，，，你在帮我看看，，，我再重复一偏...我是想用列表框来解.因为我的网页很多，都在本地的，上面我给出的代码是调用网址的，，我想直接调用本地网页，就是不不知道，怎么改？？？？？？