如何在VB中打开播放器播放电影

私有声明函数shell execute Lib " shell 32 . dll " Alias _

" ShellExecuteA "

(ByVal hWnd为Long，ByVal lpOperation为String，_

字符串形式的ByVal lpFile，_

字符串形式的ByVal lpParameters，_

字符串形式的ByVal lpDirectory，_

ByVal nShowCmd一样长)一样长

const SW _ show normal As Long = 1

Const SW_HIDE As Long = 0

私有子窗体_Click()

调用ShellExecute(Me.hWnd，" Open "，" d:\2.txt "，vbNullString，_

App。路径，SW_SHOWNORMAL)

末端接头