[Resolvido]Trocar mouse no Vba

crysostomo 2/3/2021, 19:09

crysostomo: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1813
Registrado : 23/01/2018

Mensagem nº1

[Resolvido]Trocar mouse no Vba

Mensagem crysostomo 2/3/2021, 19:09

uma coisa pequena , mas tentei peaquisando e não deu certo. Pra fazer um usabilidade mais clara na interface do usuário.
como que troco o ponteiro, eu ja tenho o modulo e nesse cogigo não vai

Código:: Me.MouseWheel = 32643&

.................................................................................

Uma mão ajuda a outra.

Feliz aquele que transfere o que sabe e aprende o que ensina.

**Noobezinho** 2/3/2021, 21:32

Noobezinho

Noobezinho: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 4144
Registrado : 29/06/2012

Mensagem nº2

Re: [Resolvido]Trocar mouse no Vba

Mensagem Noobezinho 2/3/2021, 21:32

crysostomo

veja AQUI

Tem esse também:

screen.MousePointer()

digite na janela imediata, clique nele e aperte F1 pra ver a ajuda.

E tem esse para a rodinha do meio:

Experimente esse código abaixo, da propriedade Na roda do mouse do formulário:

Código:: Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long) If Count < 0 Then SendKeys "{UP 1}" Else SendKeys "{DOWN 1}" End If End Sub

{ }'s

Balem

.................................................................................
A pergunta que não quer calar:
Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
para enviar parte do projeto, não temos mais continuidade do tópico?
Crê que temos bolas de cristal ou está com medo que "roubemos" a
idéia/projeto dele? Twisted Evil

Se é tão bom assim...

Ajude a ser ajudado:
Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
sem precisar procurar o mesmo.

crysostomo 2/3/2021, 21:56

crysostomo

crysostomo: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1813
Registrado : 23/01/2018

Mensagem nº3

Re: [Resolvido]Trocar mouse no Vba

Mensagem crysostomo 2/3/2021, 21:56

Boa noite , moob é o de modulo , mas é daquele jeito que coloca pelo vba, mas alguma coisa um parâmetro esta faltando para mudar.
Me.MouseWheel = 32643& ele coninica com a mumeração do módulo

.................................................................................

Uma mão ajuda a outra.

Feliz aquele que transfere o que sabe e aprende o que ensina.

**Noobezinho** 2/3/2021, 22:01

Noobezinho

Noobezinho: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 4144
Registrado : 29/06/2012

Mensagem nº4

Re: [Resolvido]Trocar mouse no Vba

Mensagem Noobezinho 2/3/2021, 22:01

MoouseWell é só para rolagem.

Esse código só funciona no mouse.

Em todo caso, retire o & e teste.

Cole o código aqui,pls

Última edição por Noobezinho em 2/3/2021, 22:04, editado 1 vez(es)

.................................................................................
A pergunta que não quer calar:
Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
para enviar parte do projeto, não temos mais continuidade do tópico?
Crê que temos bolas de cristal ou está com medo que "roubemos" a
idéia/projeto dele? Twisted Evil

Se é tão bom assim...

Ajude a ser ajudado:
Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
sem precisar procurar o mesmo.

crysostomo 2/3/2021, 22:04

crysostomo

crysostomo: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1813
Registrado : 23/01/2018

Mensagem nº5

Re: [Resolvido]Trocar mouse no Vba

Mensagem crysostomo 2/3/2021, 22:04

cara , somente um linha muda o mouse , quase certeza que é uma parada desse , ja fiz em outros, mas esqueci qual sistema

Código:: 'Constantes para identificar os diversos tipos de ponteiro do mouse Public Const IDC_APPSTARTING = 32650& Public Const IDC_HAND = 32649& Public Const IDC_ARROW = 32512& Public Const IDC_CROSS = 32515& Public Const IDC_IBEAM = 32513& Public Const IDC_ICON = 32641& Public Const IDC_NO = 32648& Public Const IDC_SIZE = 32640& Public Const IDC_SIZEALL = 32646& Public Const IDC_SIZENESW = 32643& Public Const IDC_SIZENS = 32645& Public Const IDC_SIZENWSE = 32642& Public Const IDC_SIZEWE = 32644& Public Const IDC_UPARROW = 32516& Public Const IDC_WAIT = 32514& Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _ (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long Declare Function SetCursor Lib "user32" _ (ByVal hCursor As Long) As Long Function MouseCursor(CursorType As Long) Dim lngRet As Long lngRet = LoadCursorBynum(0&, CursorType) lngRet = SetCursor(lngRet) End Function

esse é o modulo

Código:: Me.MouseWheel = 32514

esse chama o numero para mudar um situação dessa

Última edição por crysostomo em 2/3/2021, 22:06, editado 1 vez(es)

.................................................................................

Uma mão ajuda a outra.

Feliz aquele que transfere o que sabe e aprende o que ensina.

**Noobezinho** 2/3/2021, 22:05

Noobezinho

Noobezinho: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 4144
Registrado : 29/06/2012

Mensagem nº6

Re: [Resolvido]Trocar mouse no Vba

Mensagem Noobezinho 2/3/2021, 22:05

Cole o código, quero ver

Todos os exemplos que passei muda o mouse

Mas afinal quer o mouse ou a roda do mouse?

.................................................................................
A pergunta que não quer calar:
Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
para enviar parte do projeto, não temos mais continuidade do tópico?
Crê que temos bolas de cristal ou está com medo que "roubemos" a
idéia/projeto dele? Twisted Evil

Se é tão bom assim...

Ajude a ser ajudado:
Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
sem precisar procurar o mesmo.

crysostomo 2/3/2021, 22:07

crysostomo

crysostomo: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1813
Registrado : 23/01/2018

Mensagem nº7

Re: [Resolvido]Trocar mouse no Vba

Mensagem crysostomo 2/3/2021, 22:07

si, a do módulo muda, mas esta par chamar a numeração no evento, eu quero mudar no codigo.
um linha dessa muda , mas esqueci como

.................................................................................

Uma mão ajuda a outra.

Feliz aquele que transfere o que sabe e aprende o que ensina.

**Noobezinho** 2/3/2021, 22:14

Noobezinho

Noobezinho: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 4144
Registrado : 29/06/2012

Mensagem nº8

Re: [Resolvido]Trocar mouse no Vba

Mensagem Noobezinho 2/3/2021, 22:14

Está usando o código do mouse pra mudar a roda do mouse

Isso não vai funfar, pois já nas propriedade do formulário

existe o evento Na roda do mouse.

E que eu coloquei via VBA na mensagem nº 2

Ela não pode mudar o ponteiro do MOUSE.

.................................................................................
A pergunta que não quer calar:
Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
para enviar parte do projeto, não temos mais continuidade do tópico?
Crê que temos bolas de cristal ou está com medo que "roubemos" a
idéia/projeto dele? Twisted Evil

Se é tão bom assim...

Ajude a ser ajudado:
Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
sem precisar procurar o mesmo.

crysostomo 2/3/2021, 22:15

crysostomo

crysostomo: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1813
Registrado : 23/01/2018

Mensagem nº9

Re: [Resolvido]Trocar mouse no Vba

Mensagem crysostomo 2/3/2021, 22:15

posso ter errado , mas tem somente uma linha que chama o ponteiro, pode crê, sei que tem hiperlink ,mas pelo design UI que mexo , a mão fica além de mais elegante prende o usuário
o Screen.MousePointer não se comunica com o modulo não.
Caraca perdi essa linha

.................................................................................

Uma mão ajuda a outra.

Feliz aquele que transfere o que sabe e aprende o que ensina.

crysostomo 2/3/2021, 23:05

crysostomo

crysostomo: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1813
Registrado : 23/01/2018

Mensagem nº10

Re: [Resolvido]Trocar mouse no Vba

Mensagem crysostomo 2/3/2021, 23:05

Achei noob.
Baixei 4 sistemas do meu drive puts, sorte que consegui achar no 4º

ao mover o mouse

Código:: Me.MouseWheel = MouseCursor(32649)

.................................................................................

Uma mão ajuda a outra.

Feliz aquele que transfere o que sabe e aprende o que ensina.

MaximoAccess

MaximoAccess

MaximoAccess

[Resolvido]Trocar mouse no Vba

[Resolvido]Trocar mouse no Vba

Re: [Resolvido]Trocar mouse no Vba

Re: [Resolvido]Trocar mouse no Vba

Re: [Resolvido]Trocar mouse no Vba

Re: [Resolvido]Trocar mouse no Vba

Re: [Resolvido]Trocar mouse no Vba

Re: [Resolvido]Trocar mouse no Vba

Re: [Resolvido]Trocar mouse no Vba

Re: [Resolvido]Trocar mouse no Vba

Re: [Resolvido]Trocar mouse no Vba

Pesquisar

Resultados por: Mensagens Tópicos
Pesquisa avançada