|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Exemplo da instrução Declare
|
 |
|
|
|
Postada em 2/9/2004 por Geronimo
Este exemplo mostra como a instrução Declare é utilizada em nível de módulo de um módulo padrão para declarar uma referência a um procedimento externo em uma biblioteca de vinculação dinâmica (DLL) ou no recurso de código do Macintosh. Você pode inserir as instruções Declare em módulos de classe se as instruções Declare forem Private.
' No Microsoft Windows (de 16 bits):
Declare Sub MessageBeep Lib "User" (ByVal N As Integer)
' Suponha que SomeBeep é um alias para o nome do procedimento.
Declare Sub MessageBeep Lib "User" Alias "SomeBeep"(ByVal N As Integer)
' Usa um ordinal na cláusula Alias para chamar GetWinFlags.
Declare Function GetWinFlags Lib "Kernel" Alias "#132"() As Long
' Nos sistemas Microsoft Windows de 32 bits, especifique a biblioteca USER32.DLL,
' em vez de USER.DLL. Você pode utilizar a compilação
' condicional para gravar um código que possa ser
' executado tanto no Win32 como no Win16.
#If Win32 Then
Declare Sub MessageBeep Lib "User32" (ByVal N As Long)
#Else
Declare Sub MessageBeep Lib "User" (ByVal N As Integer)
#End If
' No Macintosh:
Declare Sub MessageAlert Lib "MyHd:MyAlert" Alias "MyAlert" (ByVal N _
As Integer)
' Utiliza um recurso de código na cláusula Alias.
Declare Sub MessageAlert Lib "MyHd:MyAlert" Alias "XTST$MyAlert" _
(ByVal N As Integer)
' Se o especificador do tipo de recurso de código tiver
' somente 3 caracteres, certifique-se de deixar um
' espaço em branco onde apareceria normalmente o
' caractere final.
Declare Sub MessageAlert Lib "MyHd:AnAlert" Alias "COD $AnAlert" _
(ByVal N As Integer)
|
|
|
|
|
