以下是示例代码:

 私有 声明 功能 mciSendString 库 "  span> 别名 " ( ByVal  lpstrCommand  As  字符串， ByVal  lpstrReturnString  As   String ， As   ByVal  hwndCallback  As  长) As  长

私有 子 Form_Click()
 Dim  Ret  As  长，A 

，x As 整数，y 整数 x = 0 y = 0 A

= " ' 更改路径和文件名 Ret = mciSendString(" ，0 ，; 128 ， 0 ) Ret = mciSendString(" ，0 ，; 128 ， 0 ) Ret = mciSendString(" & A

>

Is it possible to add a movie to a form using VB.Net?

Here is the sample code:

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 Sub Form_Click()
Dim Ret As Long, A

, x As Integer, y As Integer x = 0 y = 0 A

= "C:\Windows\Movie.avi" 'Change the path and filename Ret = mciSendString("stop movie", 0&, 128, 0) Ret = mciSendString("close movie", 0&, 128, 0) Ret = mciSendString("open AVIvideo!" & A