I am considering a project based on a third party DLL. It's quite old but there is nothing else like it available. I have example code in VB6. Here's an example of how some of the DLLs functions are used in VB6:
Can anyone give me some pointers to accessing these functions in VB.NET? I think I may need Marshalling or PINVOKE but know little about either. Some ideas for a starting point would be much appreciated.Code:Public Declare Function mmsGetVersion Lib "SSTVENG.DLL" () As Long Public Declare Function mmsLanguage Lib "SSTVENG.DLL" (ByVal lang As Long) As Long Public Declare Function mmsCreate Lib "SSTVENG.DLL" (ByVal hwnd As Long, ByVal Msg As Long) As Long Public Declare Sub mmsDelete Lib "SSTVENG.DLL" () Public Declare Sub mmsStart Lib "SSTVENG.DLL" () Public Declare Sub mmsStop Lib "SSTVENG.DLL" () Public Declare Function mmsOption Lib "SSTVENG.DLL" () As Long Public Declare Sub mmsSetOptionTitle Lib "SSTVENG.DLL" (ByVal pTitle As String) Public Declare Function mmsSetBitmap Lib "SSTVENG.DLL" (ByVal hbRx As Long, ByVal hbSync As Long, ByVal hbTx As Long) As Long Public Declare Function mmsSetTuneBitmap Lib "SSTVENG.DLL" (ByVal hbSpec As Long, ByVal hbWater As Long, ByVal hbLevel As Long) As Long Public Declare Sub mmsSetHDC Lib "SSTVENG.DLL" (ByVal hSync As Long, ByVal hSpec As Long, ByVal hWater As Long, ByVal hLevel As Long) Public Declare Sub mmsSetSpecRange Lib "SSTVENG.DLL" (ByVal base As Long, ByVal width As Long) Public Declare Sub mmsSetSpecColor Lib "SSTVENG.DLL" (ByVal back As Long, ByVal sig As Long, ByVal persist As Long, ByVal marksync As Long, ByVal marksig As Long) Public Declare Sub mmsSetWaterColor Lib "SSTVENG.DLL" (ByVal back As Long, ByVal sig As Long)




Reply With Quote