[Resolvido]Dúvida no tópico Fantasticos Efeitos Especiais nos Controles do Form

Referente: Fantasticos Efeitos Especiais nos Controles do Form

JPaulo,
No codigo abaixo do exemplo do ChrisO seria possivel aplicar a função da lina Section(acDetail) à um retangulo? Como?

Public Sub InitialiseEvents(ByRef frmThisForm As Form)
' Elaborado pelo meu colega e amigo, ChrisO de Brisbane na Australia
' Colocado na sala de exemplos do http://maximoaccess.forumeiros.com/,
' por JPaulo com autorização do autor
Dim ctl As Control

On Error Resume Next

For Each ctl In frmThisForm
ctl.OnGotFocus = "=HandleFocus('" & frmThisForm.Name & "', '" & ctl.Name & "', 'Got')"
ctl.OnLostFocus = "=HandleFocus('" & frmThisForm.Name & "', '" & ctl.Name & "', 'Lost')"
ctl.OnMouseMove = "=HandleMouseMove('" & frmThisForm.Name & "', '" & ctl.Name & "')"
Next ctl

Forms(frmThisForm.Name).Section(acDetail).OnMouseMove = "=HandleMouseMove('" & frmThisForm.Name & "', '" & "Detail" & "')"

Err.Clear

End Sub

É possivel sim, mas como não é um controle editável, apenas o marcará com cor ao passar com o mouse.

Pode testar num novo formulario, inserir um ou mais retangulos e no evento VBA ao abrir do formulario;

Option Explicit

Private Sub Form_Open(Cancel As Integer)
InitialiseEvents Me
End Sub

Ola amigo JPaulo!

Valeu o retorno...

Mas acho que eu nao expliquei direito. Isso que voce disse eu ja havia percebido, uma vez que o meu programa tem alguns retangulos. Eles realmente mudam de cor ao mover o mause sobre eles. Porem, é isso que eu gostaria que nao acontecesse com os retangulos e ja consegui mudar isso. O que eu preciso agora é fazer o efeito do "Detail" acontecer nos retangulos tambem, pois como eles sao preenchidos com cor, nao produz a funçao do Detail. Enfim, eu gostaria que ao mover o mause sobre os retangulos produzisse a funçao da sessão "Detail".

Abraço!

Olá... Sabe me dizer como foi que fez os retângulos não mudarem a cor??

Temtei várias coisas, mas nenhuma deu certo!

Olá amigo CSALVES!

Para que o efeito atendesse a minha necessidade eu tirei a função "Ao mover o mouse" e deixei somente "Ao receber foco", pois era somente o que eu precisava para o meu programa. Então ficou assim:

Public Sub InitialiseEvents(ByRef frmThisForm As Form)
' Elaborado pelo meu colega e amigo, ChrisO de Brisbane na Australia
' Colocado na sala de exemplos do http://maximoaccess.forumeiros.com/,
' por JPaulo com autorização do autor
Dim ctl As Control

On Error Resume Next

For Each ctl In frmThisForm

If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then

ctl.OnGotFocus = "=HandleFocus('" & frmThisForm.Name & "', '" & ctl.Name & "', 'Got')"
ctl.OnLostFocus = "=HandleFocus('" & frmThisForm.Name & "', '" & ctl.Name & "', 'Lost')"

End If

Next ctl

err.Clear

End Sub

Espero que isso te ajude.

Abraço!

CSALVES,

Só gostaria de informar que para chegar nesse resultado contei com a grande ajuda do amigo Vieira Sof.
Aproveito para agradece-lo mais uma vez, amigo Vieira.

Abraço!