ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Scroll Mouse em ListBox

Dicas dos mais variados tipos, necessidades, angústias, enfim
Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1561
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Scroll Mouse em ListBox

Mensagem por Mauro Coutinho » Dom Nov 07, 2010 6:08 pm

Colegas, estava revendo alguns arquivos antigos do excel armazenados no PC, são tantos que nos esquecemos doque temos e deixamos alguns interessantes para traz, e encontrei um que habilita o Scroll do Mouse dentro de um Listbox quando este ultrapassar a quantidade de itens, então segue o exemplo a quem possa vir a precisar.

Anexo Atualizado em 03/05/2011
ScrollListbox.rar
Scroll Mouse em ListBox
(18.29 KiB) Baixado 2533 vezes
abraços


Mauro Coutinho - Exemplos Somente em Office 2003
São José dos Pinhais - Pr
Se sua Duvida foi solucionada . . . .Acrescente [RESOLVIDO] ao título.
Ficou satisfeito com o FORUM ? Divulgue, indicando-o aos colegas !

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


trmpereira
Colaborador
Colaborador
Mensagens: 12
Registrado em: Ter Nov 09, 2010 9:58 am

Re: Scroll Mouse em ListBox

Mensagem por trmpereira » Qua Fev 09, 2011 9:20 am

Mauro Coutinho escreveu:Colegas, estava revendo alguns arquivos antigos do excel armazenados no PC, são tantos que nos esquecemos doque temos e deixamos alguns interessantes para traz, e encontrei um que habilita o Scroll do Mouse dentro de um Listbox quando este ultrapassar a quantidade de itens, então segue o exemplo a quem possa vir a precisar.

abraços
Fiz os testes na listbox mas o scroll do mouse nao funcionou nao sei o porquê!



Avatar do usuário
webmaster
Administrador
Mensagens: 2828
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Scroll Mouse em ListBox

Mensagem por webmaster » Qua Fev 09, 2011 10:35 am

Aqui funcionou muito bem!

Indo para o blog.... :D

Abraços


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

Avatar do usuário
joseA
Jedi
Jedi
Mensagens: 1008
Registrado em: Qui Out 22, 2009 7:22 am
Localização: Cel. Fabriciano - MG

Re: Scroll Mouse em ListBox

Mensagem por joseA » Qui Fev 10, 2011 8:51 am

webmaster escreveu:Aqui funcionou muito bem!
Idem.


Se o post lhe agradou clique no sinal de positivo (ao lado de citar).

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


[BDS]
Colaborador
Colaborador
Mensagens: 11
Registrado em: Qui Ago 18, 2011 2:48 pm

Re: Scroll Mouse em ListBox

Mensagem por [BDS] » Sex Ago 26, 2011 1:58 pm

Aqui também não funcionou :(



Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1561
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Re: Scroll Mouse em ListBox

Mensagem por Mauro Coutinho » Sex Ago 26, 2011 7:27 pm

[BDS] escreveu:Aqui também não funcionou :(
Dizer somente que não funcionou, não ajuda muito.
Baixei o arquivo e testeii no Excel 2003 e Excel 2007 e funcionou perfeitamente nas duas versões.

Procurem detalhar o que fizeram para podermos entender o pq não funcionou, informações tipo :

Não funcionou quando executam o formulário no arquivo anexo ?
Não funcionou porque moveram ou colocaram a rotina em outro Formulário ?
Não funcionou em formulário em outro arquivo ?

Se foi criado um outro arquivo, é necessário copiar as rotinas do modulo, e tambem fazer a chamada no inicializar do formulário.

[]s


Mauro Coutinho - Exemplos Somente em Office 2003
São José dos Pinhais - Pr
Se sua Duvida foi solucionada . . . .Acrescente [RESOLVIDO] ao título.
Ficou satisfeito com o FORUM ? Divulgue, indicando-o aos colegas !

rener-mg
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Ter Set 20, 2011 8:40 pm

Re: Scroll Mouse em ListBox

Mensagem por rener-mg » Ter Set 20, 2011 9:03 pm

Perfeito !!!!!!! Parabéns a toda equipe ! Me destaco bem nos locais onde trabalhei e trabalho por conhecer bastante de VBA e excel, mas após lidar com o código disponibilizado vejo que ainda sou um aprendiz !

Vi que além de fornecer de "mão beijada" os códigos, sempre se deve deixar um item em que se deve pensar antes de utilizá-los, mas para facilitar a quem não conseguiu usar o código disponibilizado, vai:

Basta incluir o código na inicialização do formulário (UserForm_Initialize) ----> UserFormHook Me, Me.Caption

Abs e muito obrigado.



Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1561
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Re: Scroll Mouse em ListBox

Mensagem por Mauro Coutinho » Ter Set 20, 2011 9:23 pm

Rener, seja Bem vindo ao Forum.

Em nome da equipe, agradeço os parabens.

Quanto a sua obs, deve ter visto que na rotina do Inicializar do formulário, consta a linha em questão, por isso que peço para aqueles que dizem que não funcionou, detalharem qual o erro e o que fizeram, pois muitos adaptam o código em outros arquivos utilizando somente o CTRL+C e CTRL+V, desconsiderando o Modulo (scrollListbox) que contem as APIs ou alterando algum nome, com isso gerando erros ou o não funcionamento corretamentte.

Grato pela obs, e fique a vontade para postar duvidas e sempre que possível continuar colaborando com o Forum.

abraços


Mauro Coutinho - Exemplos Somente em Office 2003
São José dos Pinhais - Pr
Se sua Duvida foi solucionada . . . .Acrescente [RESOLVIDO] ao título.
Ficou satisfeito com o FORUM ? Divulgue, indicando-o aos colegas !

rener-mg
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Ter Set 20, 2011 8:40 pm

Re: Scroll Mouse em ListBox

Mensagem por rener-mg » Ter Set 20, 2011 9:34 pm

Tomás Vasques, Mauro e equipe,

em alguns testes que fiz utilizando meu form (com um listbox e alguns combos) percebi um erro quando rolar o mouse sem um controle selecionado. Não sei se é a melhor solução (básica), mas incluí os códigos abaixo:

'Scroll 2 linhas da listbox ou página a página em conjunto com o CTRL
Sub MouseWheel(Formulario As UserForm, ByVal Rodar As Long)
Dim LinhasListBox As Integer, Linhas2Scroll As Integer, xIndex As Integer
With Formulario
If TypeName(.ActiveControl) = "ListBox" Or TypeName(.ActiveControl) = "ComboBox" Then 'Incluído para utlizar também os combos
LinhasListBox = .ActiveControl.ListCount
Linhas2Scroll = 2
If Rodar > 0 Then
'rodar acima
xIndex = .ActiveControl.TopIndex - Linhas2Scroll
If xIndex < 0 Then xIndex = 0
On Error GoTo 80 'Incluído
.ActiveControl.TopIndex = xIndex
Else
'rodar abaixo
xIndex = .ActiveControl.TopIndex + Linhas2Scroll
If xIndex > LinhasListBox Then xIndex = LinhasListBox
On Error GoTo 80 'Incluído
.ActiveControl.TopIndex = xIndex
End If
End If
End With
80 End Sub


Ainda sim, no excel 2007, quando interrompo o formulário (sem execução de códigos no momento), o mesmo é encerrado automaticamente. Sabem algo sobre ?

Abs
Rener



rener-mg
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Ter Set 20, 2011 8:40 pm

Re: Scroll Mouse em ListBox

Mensagem por rener-mg » Ter Set 20, 2011 9:58 pm

caros frequentadores do fórum, incluindo em minha última postagem:

tanto a linha que mencionei a ser incluída na inicialização do formulário quanto a maior parte do do código informado em minha última mensagem são de autoria e disponibilização de Mauro Coutinho.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder