Coleção WizHook
Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).
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".
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.
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:
Ao selecionar a imagem, a função irá retornar com o local e o nome da imagem. Exemplo:
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!
Os dez artigos mais visitados
MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access
Vídeo - Controle personalizado de Acesso de Usuários
Vídeo - Segurança máxima, usando o OPEN
Trabalhando com Registros - DAO e ADO
Uma ajuda para quem está começando um negócio ou um projeto
Vídeo - Aprenda sobre filtragens
Adquira o kit UsandoAccess e aprenda em alta velocidade
Vídeo - Programação de relatórios - Parte 1
Integrando o Access com Servidor MySQL - Introdução
Desabilitando a faixa(ribbon) superior do Access
| Não há comentário |