Private Sub Command1_Click() i = i + 1 If i >= List1.ListCount Then i = 0 End If Player1.Open List1.List(i) End Sub 日志信息比较大,但一般都是最后 OP_OPEN时 dll就退出了. APlayer[10:50:34.562][1348]: 【avisplitter.dll】InitBuffer APlayer[10:50:34.562][1348]: 【avisplitter.dll】TrueBuffer: Set m_pBufferPin = 0abecc00 APlayer[10:50:34.984][1400]: Interface - Open, strUrl = 0872fcac APlayer[10:50:34.984][1400]: CPlayCore::Open, URL = F:\4D\3D电影\4.avi APlayer[10:50:34.984][1400]: -------------------> OP_OPEN APlayer[10:50:35.718][1348]: DLL_PROCESS_DETACH