用listbox抓取網路上的資料庫並播放資料影片

Question

不知道vb可不可以辦到用listbox抓取網路上的資料並播放資料影片

就是用listbox 抓取資料庫或者txt的內容
讓listbox出現名稱但不出現播放的網址
使用者點擊listbox名稱後可以用同一個form1
內的WindowsMediaPlayer1播放

例：某網站 資料庫或 txt 內容為 播放測試 || http://???.???.avi

list1 抓取 名稱為 播放測試 (無顯示播放網址)
點擊"播放測試"
WindowsMediaPlayer1 立即播放 http://???.???.avi

這樣要怎麼做？拜託懇求高手回答
非常感恩！

Answer 1

Dim nUrl$()

Private Sub Command1_Click()
Dim nPath$, f&, S, I&
'假設你已把網路上的.txt下載到C:＼Test.txt
nPath = "C:＼Test.txt" '請把＼改成半形....(臭知識＋)
f = FreeFile
Open nPath For Input As #f
Do Until EOF(f)
Line Input #f, S
'把||改成Chr(0),再以Split切割名稱跟網址
S = Split(Replace(S, "||", Chr(0), , 1), Chr(0))
'把名稱放入List1並指定索引值為I
List1.AddItem Trim(S(0)), I
'新增加nUrl(I)把網址放入
ReDim Preserve nUrl(I): nUrl(I) = Trim(S(1))
I = I + 1
Loop
Close #f

End Sub

Private Sub List1_Click()
If List1.ListCount Then
With WindowsMediaPlayer1
'MediaPlayer的Url=跟List1同索引的nUrl的值
.Url = nUrl(List1.ListIndex)
.Controls.play
End With
End If
End Sub

\+\