bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Soma contínua em consultas, com eficiência

... Assinatura do site por 1 ano + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$100,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Coleção WizHook

Antes de iniciar sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.

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: