當前位置:最新電影網 - 最新電影 - 如何在VB中打開播放器播放電影

如何在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)

末端接頭