... Pague apenas R$67,00 uma única vez e tenha acesso por 1 ano aos vídeos e arquivos exemplos do site ...

Clique aqui e obtenha mais detalhes.


Coleção WizHook

Esta coleção, que é utilizada pelo construtor do Access, é pouco conhecida pela maioria dos programadores.  Ao abrir o Pesquisador de objetos do VBA, clique com o botão direito do mouse na tela, conforme apresentado na imagem abaixo, e selecione "Exibir membros ocultos".

Pesquisador de objetos - Exibir membros ocultos

 

Corra a lista de Classes e selecione a Classe WizHook.  Verifique que à direita da tela é exibida uma lista de Membros. Vou  me deter aqui, apenas a três desses Membros, os quais considero interessantes. 

Pesquisador de objetos - WizHook

 

O procedimento SortStringArray()

Utilizado para ordenar uma matriz do tipo String.  Observe o código exemplo:

Public sub fncOdernarMatriz
Dim Fruta(3) As String
Dim i As Integer

Fruta(0) = "Pera"
Fruta(1) = "Banana"
Fruta(2) = "Limão"
Fruta(3) = "Abacate"
      
WizHook.SortStringArray Fruta 'Ordena a matriz do tipo String
    
MsgBox join(Fruta, " ") 'Exibe a lista ordenada na caixa de mensagem   
 
End sub

Nota:  A função Join() transforma uma Matriz em uma Lista, portanto a Caixa de Mensagem irá exibir a sequência:

Abacate Banana Limão Pera

Lembrando que o procedimento SortStringArray ordena apenas Matriz do tipo string.  Para ordenar uma Matriz do tipo número é preciso utilizar a função abaixo:

Public Sub fncOrdenarArray(Prova)
Dim i%, j%, uB%, Temp, temp2
uB = UBound(Prova)
For i = LBound(Prova) To uB - 1
    For j = i + 1 To uB
        If Cdbl(Prova(i)) > Cdbl(Prova(j)) Then
            Temp = Prova(j)
            Prova(j) = Prova(i)
            Prova(i) = Temp
        End If
    Next j
Next i
End Sub

Para ordenar, basta chamar pela função, utilizando o comando Call.

Call fncOrdenarArray(nome matriz numérica)

A função OpenPictureFile()

Utilizada para abrir uma tela de busca, exclusiva para arquivos de imagens:

Public Function fncCapturaNomeImagem()
Dim wzFileName As String
Dim wzCancelled As Boolean
Dim ret As Boolean

WizHook.key = 51488399
ret = WizHook.OpenPictureFile(wzFileName, wzCancelled)
    
If wzCancelled = False Then fncCapturaNomeImagem = wzFileName

End Function

A chave (key) é necessária para que a função funcione.  Ao rodar a função, a seguinte tela de procura é exibida:

Tela procura de imagens

 

Ao selecionar a imagem,  a função irá retornar com o local e o nome da imagem.  Exemplo:

c:\Maestro\Imagens\avel.gif

A função FileExists()

Utilizada para verificar se o arquivo existe na pasta indicada.


		

		

		

		

Dim strCaminho$

strCaminho = "c:\Maestro\Mestro_v5.accdb"

WizHook.key = 51488399

If wizhook.fileexists(strCaminho) then

   'Arquivo existe no local indicado

else

  ' Arquivo não existe no local indicado

end if




 

A chave (key) é necessária para que a função funcione.

Mais detalhes das outras funções e procedimentos, clique AQUI.

Bom estudo!


 

 


Não há comentário

Envie seu comentário: