
VB6(visual basic 6.0)程序求注释m5,谢谢 5
'*************************************************************************'DDEMLFunct...
'*************************************************************************
' DDEML Function Declarations
'*************************************************************************
Public Declare Function DdeInitialize Lib "user32" Alias "DdeInitializeA" _
(pidInst As Long, _
ByVal pfnCallback As Long, _
ByVal afCmd As Long, _
ByVal ulRes As Long) As Integer
' Removed the alias.
Public Declare Function DdeUninitialize Lib "user32" _
(ByVal idInst As Long) As Long
' Removed the alias.
Public Declare Function DdeConnect Lib "user32" _
(ByVal idInst As Long, _
ByVal hszService As Long, _
ByVal hszTopic As Long, _
pCC As Any) As Long
' Removed the alias.
Public Declare Function DdeDisconnect Lib "user32" _
(ByVal hConv As Long) As Long
Public Declare Function DdeCreateStringHandle Lib "user32" Alias "DdeCreateStringHandleA" _
(ByVal idInst As Long, _
ByVal psz As String, _
ByVal iCodePage As Long) As Long
Public Declare Function DdeFreeStringHandle Lib "user32" _
(ByVal idInst As Long, _
ByVal hsz As Long) As Long
Public Declare Function DdeClientTransaction Lib "user32" _
(ByVal pData As String, _
ByVal cbData As Long, _
ByVal hConv As Long, _
ByVal hszItem As Long, _
ByVal wFmt As Long, _
ByVal wType As Long, _
ByVal dwTimeout As Long, _
pdwResult As Long) As Long
Public Declare Function DdeGetData Lib "user32" _
(ByVal hData As Long, _
ByVal pDst As String, _
ByVal cbMax As Long, _
ByVal cbOff As Long) As Long
Public Declare Function DdeQueryString Lib "user32" _
Alias "DdeQueryStringA" _
(ByVal idInst As Long, _
ByVal hsz As Long, _
ByVal psz As String, _
ByVal cchMax As Long, _
ByVal iCodePage As Long) As Long
Public Declare Function DdeFreeDataHandle Lib "user32" _
(ByVal hData As Long) As Long
Public Declare Function DdeGetLastError Lib "user32" _
(ByVal idInst As Long) As Long
Public Declare Function DdeEnableCallback Lib "user32" _
(ByVal idInst As Long, _
ByVal hConv As Long, _
ByVal wCmd As Long) As Long 展开
' DDEML Function Declarations
'*************************************************************************
Public Declare Function DdeInitialize Lib "user32" Alias "DdeInitializeA" _
(pidInst As Long, _
ByVal pfnCallback As Long, _
ByVal afCmd As Long, _
ByVal ulRes As Long) As Integer
' Removed the alias.
Public Declare Function DdeUninitialize Lib "user32" _
(ByVal idInst As Long) As Long
' Removed the alias.
Public Declare Function DdeConnect Lib "user32" _
(ByVal idInst As Long, _
ByVal hszService As Long, _
ByVal hszTopic As Long, _
pCC As Any) As Long
' Removed the alias.
Public Declare Function DdeDisconnect Lib "user32" _
(ByVal hConv As Long) As Long
Public Declare Function DdeCreateStringHandle Lib "user32" Alias "DdeCreateStringHandleA" _
(ByVal idInst As Long, _
ByVal psz As String, _
ByVal iCodePage As Long) As Long
Public Declare Function DdeFreeStringHandle Lib "user32" _
(ByVal idInst As Long, _
ByVal hsz As Long) As Long
Public Declare Function DdeClientTransaction Lib "user32" _
(ByVal pData As String, _
ByVal cbData As Long, _
ByVal hConv As Long, _
ByVal hszItem As Long, _
ByVal wFmt As Long, _
ByVal wType As Long, _
ByVal dwTimeout As Long, _
pdwResult As Long) As Long
Public Declare Function DdeGetData Lib "user32" _
(ByVal hData As Long, _
ByVal pDst As String, _
ByVal cbMax As Long, _
ByVal cbOff As Long) As Long
Public Declare Function DdeQueryString Lib "user32" _
Alias "DdeQueryStringA" _
(ByVal idInst As Long, _
ByVal hsz As Long, _
ByVal psz As String, _
ByVal cchMax As Long, _
ByVal iCodePage As Long) As Long
Public Declare Function DdeFreeDataHandle Lib "user32" _
(ByVal hData As Long) As Long
Public Declare Function DdeGetLastError Lib "user32" _
(ByVal idInst As Long) As Long
Public Declare Function DdeEnableCallback Lib "user32" _
(ByVal idInst As Long, _
ByVal hConv As Long, _
ByVal wCmd As Long) As Long 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询