MKI E CVI
Boa trde para todos, estou fazendo um programa que vou ter que usar estas funçoes, mas esta dando erro no VB.60, alguem pode me ajudar. ai abaixo esta, sera q tem algo errado? sera q esta .dll nao tem esta funçoes?
Private Declare Function hmemcpy Lib [Ô]kernel.DLL[Ô] (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
Function MKI$(x As Integer)
temp$ = Space$(2)
hmemcpy ByVal temp$, x%, 2
MKI$ = temp$
End Function
Function CVI(x As String) As Integer
If Len(x) <> 2 Then
MsgBox [Ô]Illegal Function Call[Ô]
Stop
End If
hmemcpy temp%, ByVal x, 2
CVI = temp%
End Function
Private Declare Function hmemcpy Lib [Ô]kernel.DLL[Ô] (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
Function MKI$(x As Integer)
temp$ = Space$(2)
hmemcpy ByVal temp$, x%, 2
MKI$ = temp$
End Function
Function CVI(x As String) As Integer
If Len(x) <> 2 Then
MsgBox [Ô]Illegal Function Call[Ô]
Stop
End If
hmemcpy temp%, ByVal x, 2
CVI = temp%
End Function
No lugar de Stop use exit fuction
O resto são parametros que vc está passando pra dll e so vc pode saber, pois as dados são muito pouco para se descobrir o erro
O resto são parametros que vc está passando pra dll e so vc pode saber, pois as dados são muito pouco para se descobrir o erro
Esta .DLL [Ô]KERNEL.DLL[Ô] NAO FUNCIONA NO VB6.0?
Tópico encerrado , respostas não são mais permitidas