查人人中国名人网搞笑图片带字能动态:这段vb程序的运行结果是什么??
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/29 21:54:12
Private Sub Command2_Click()
If List2.ListCount = 0 Then Exit Sub
On Error GoTo filerr
Dim b
Dim txtemp As String
CommonDialog2.ShowSave
If CommonDialog2.FileName <> "" Then
Open CommonDialog2.FileName For Output As #1
For i = 1 To b
txtemp$ = txtemp$ + musicname(i) + Chr(10) + sfc(i) + Chr(1)
Next i
Print #1, txtemp$
Close #1
End If
filerr:
End Sub
这段是不是一个保存列表的文件,保存列表的文件类型是m3u吧
怎么找到那个播放列表????
If List2.ListCount = 0 Then Exit Sub
On Error GoTo filerr
Dim b
Dim txtemp As String
CommonDialog2.ShowSave
If CommonDialog2.FileName <> "" Then
Open CommonDialog2.FileName For Output As #1
For i = 1 To b
txtemp$ = txtemp$ + musicname(i) + Chr(10) + sfc(i) + Chr(1)
Next i
Print #1, txtemp$
Close #1
End If
filerr:
End Sub
这段是不是一个保存列表的文件,保存列表的文件类型是m3u吧
怎么找到那个播放列表????
CommonDialog2.ShowSave 会显示一个文件保存对话框，叫你选择保存路径，你选择，确定后，就可以到你选择的位置去找了
显示保存文件对话框。
保存列表的文件类型未知,你保存在哪儿就往哪里去找啊.注意，你在这里没有指定文件类型.