VB mciSendString(Api)怎样实现循环播放音乐？

Posted 2023-05-02

VB 6.0

方法一：Do while 1……Loop 重复

Private Declare Function mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Command1_Click()
Do While 1
Call mciSendStringA("open C:/1.mp3 type MPEGVideo alias MP3", vbNullString, 0, 0) '打开1.mp3
Call mciSendStringA("play MP3 wait", vbNullString, 0, 0)
Call mciSendStringA("close MP3", vbNullString, 0, 0)
Loop
End Sub

方法2：mci指令repeat 重复(推荐，楼上的，你提供的代码可以改进，里面C:/1.mp3可以使用假名MP3（或其他），用起来更方便)

Private Declare Function mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Command1_Click()
Call mciSendStringA("open C:/1.mp3 type MPEGVideo alias MP3", vbNullString, 0, 0) '打开1.mp3
Call mciSendStringA("play MP3 repeat", vbNullString, 0, 0)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call mciSendStringA("close MP3", vbNullString, 0, 0)
End Sub 参考技术A http://tieba.baidu.com/f?kz=381071536
VB吧里已经有答案，另mciSendString的字符串参数详细情况参考下面的链接

参考资料：http://msdn.microsoft.com/en-us/ms712587(VS.85).aspx

vb 6.0 Listview控件 怎样实现根据字符长度自动调整列宽？

工程中引入如下代码就可以自动调整列宽了。
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub AutosizeColumns(ByVal TargetListView As ListView)
Const SET_COLUMN_WIDTH As Long = 4126
Const AUTOSIZE_USEHEADER As Long = -2
Dim lngColumn As Long

For lngColumn = 0 To (TargetListView.ColumnHeaders.Count - 1)
Call SendMessage(TargetListView.hwnd, SET_COLUMN_WIDTH, lngColumn, ByVal AUTOSIZE_USEHEADER)

Next lngColumn
End Sub追问

怎么使用直接粘贴进去？

追答

开一个公共模块啊

追问

刚接触vb 能不能说的详细点？

追答

要怎么详细你才能懂

追问

是不是把把这个名称TargetListView改成我的上面的控件名称就可以？

参考技术A vb6.0有一个帮助系统，记得是四个英语大写字母组成的，叫什么想不起来，具体怎么做他会教你的，太久没用有些忘了。或者你点一下，然后方法找找，一般看名字就可以大概知道是什么意思了。 参考技术B 你百度搜下vb listview自动调整列宽，可以搜到的，要用系统的SendMessage消息函数实现，我好久没用过vb了，没法测试，不过我印象当中也不记得有没有设置自动调整列宽了 参考技术C 。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。