USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  bem basico...
rca
BH
MG - BRASIL
ENUNCIADA !
Postada em 06/06/2005 20:49 hs            
Ola. Gostaria de esconder o ponteiro do mouse na minha aplicaçao, pois ela somente utiliza teclas. Qual linha de codigo posso usar...
grato
   
Sérgio Jr.
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 06/06/2005 21:11 hs            
Paz e prosperidade amigo !!!
 
Antes de tudo, em nome de todos os Analista de sistemas, desenvolvedores e programadores em geral,  por favor não use termos como : Básico, fácil, simples para se dirigir a linhas de códigos que nós as vezes quebramos a cabeça para desenvolver, as vezes perdemos noites de sono, outras vezes deixamos nossas mulheres, filhos, filhas, familia de lado para descobri como fazer uma coisa...
 
Pode parecer pouco mas não faz o serviço ser fácil, pessoas como eu por exemplo: vão dormir tarde deixa a esposa e a filha sozinhas na cama tentando atender a usuários com duvidas...
 
Nada pessoal, apenas de o valor devido, pode ser fácil agora, mas antes de alguem fazer era dificil, pode ter sido bico hoje mas ontem alguem precisou dormir tarde para fazer isso...Falei...
 
 
Mas vamos lá..
 
Crie um módulo e coloque as linhas abaixo:
 
'/////////////////
'/ Inicio do modulo
'//////////////////
Option Explicit
Dim lMostCursor As Long
Dim rtn As Integer
Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
'////////////////////
'/Fim do modulo
'////////////////////
 
Agora no evento que você quizer coloque os codigos abaixo:
 
'///////////////////////
'/Inicio do código para Esconder o cursor do mouse
'////////////////////////
  Do
     lMostCursor = lMostCursor - 1
     rtn = ShowCursor(False)
  Loop Until rtn < 0
'//////////////////////
'/Fim do código para esconder o cursor do mouse
'///////////////////////
 
 
 
'///////////////////////////
'/Inicio do código para exibir o cursor do mouse
'///////////////////////////
Do
  lMostCursor = lMostCursor - 1
  rtn = ShowCursor(True)
Loop Until rtn >= 0
'/////////////////////////
'/Fim do código para exibir o cursor do mouse
'////////////////////////
 
Tentei....
 
 
 

Sérgio Júnior
Analista de sistemas e Instrutor de informática
 
EMAIL e MSN   sj@softweb.com.br
ICQ                339982437
 
...O cavalo se prepara para a batalha...    
...mas do Senhor Jesus vem a vitória...
 
TÓPICO EDITADO
 
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página