用VB做realplayer播放列表

时间： 2021-07-31 作者：daque

realplayer的列表播放，运用一个realplayer的路途来实行的，在规范exe窗体上，安置一个realaudio1,和commondialog1，加二个按钮，list1定名为lstitems,一个按钮定名为增添文献，一个按钮为生存列表，在增添文献中介入下如代码： private sub command1_click()dim stmp as string dim strfix as string dim i as integer dim yy as string commondialog1.showopen stmp = commondialog1.filename if len(stmp) = 0 then exit sub for i = 1 to len(stmp) strfix = mid(stmp, i, 1) if strfix = "\" then strfix = "/" end if yy = yy & strfix next i stmp = "file://" & yylstitems.additem stmpend sub private sub command2_click()dim s as integercommondialog1.dialogtitle = "输出要生存的rm文献"commondialog1.filter = "realplayer播放列表（*.rm）|*.rm"commondialog1.showsaveif len(commondialog1.filename) = 0 thenexit subend ifopen commondialog1.filename for output as #1for s = 0 to me.lstitems.listcount - 1print #1, me.lstitems.list(s)next srealaudio.source=commondialog.filenamerealaudio.doplayend subprivate sub form_load()realaudio1.controls="imagewindow"end sub如加上简略或挪动文献，减少少许，窜改一点，并可实行呀！

用VB做realplayer播放列表

相关推荐

推荐下载

热门阅览

最新排行