USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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)

 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página