# 从字面上解释就是from... to

Posted by Honey on July 16, 1999 at 23:39:11:

In Reply to: mciSendString方面的问题.. posted by Yizu on July 15, 1999 at 23:34:17:

Private Declare Function mciSendString _
Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal _
uReturnLength As Long, ByVal hwndCallback _
As Long) As Long
Private Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long
Private Sub Command1_Click()
Dim r As Long
r = mciSendString("play d:\vb98\wizards\pdwizard\working.avi from 1 to 3", 0&, 0, 0)
If r Then
GetErrorMessage r
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
mciSendString "close d:\vb98\wizards\pdwizard\working.avi", 0&, 0, 0
End Sub
Public Sub GetErrorMessage(ReT)
Dim errorms As String * 255
mciGetErrorString ReT, errorms, 255
MsgBox errorms
End Sub

有空到cww那边看看
还有其他的功能

Follow Ups: