module1.bas

来自「神龙卡双屏控件 控件最大特点： 1、支持VGA」· BAS 代码 · 共 19 行

Attribute VB_Name = "Module1"
Public Declare Function InitDriverRm Lib "Vod.dll" () As Long
Public Declare Function FreeDriverRm Lib "Vod.dll" () As Long
Public Declare Function OpenFileRm Lib "Vod.dll" (ByVal FileName As String) As Long
Public Declare Function PlayFileRm Lib "Vod.dll" () As Long
Public Declare Function PauseFileRm Lib "Vod.dll" () As Long
Public Declare Function StopFileRm Lib "Vod.dll" () As Long
Public Declare Function CloseFileRm Lib "Vod.dll" () As Long
Public Declare Function SetB_S_CRm Lib "Vod.dll" (ByVal Brightness As Long, ByVal Saturation As Long, ByVal Contrast As Long) As Long
Public Declare Function SelectAudioChannelRm Lib "Vod.dll" (ByVal AudioID As Long) As Long
Public Declare Function GetMediaStateRm Lib "Vod.dll" () As Long
Public Declare Function GetMediaLengthRm Lib "Vod.dll" () As Long
Public Declare Function GetPositionRm Lib "Vod.dll" () As Long
Public Declare Function SetPositionRm Lib "Vod.dll" (ByVal Value As Long) As Long
Public Declare Function SetVolumeRm Lib "Vod.dll" (ByVal Value As Long) As Long
Public Declare Function SetVideoHandleRm Lib "Vod.dll" (ByVal Value As Long) As Long
Public Declare Function SetVideoWatchRm Lib "Vod.dll" (ByVal Value As Boolean) As Long