Ver Mensaje Individual
  #4 (permalink)  
Antiguo 11/05/2009, 17:52
Avatar de seba123neo
seba123neo
 
Fecha de Ingreso: febrero-2007
Ubicación: Esperanza, Santa Fe
Mensajes: 1.046
Antigüedad: 17 años, 3 meses
Puntos: 19
Respuesta: ayuda con propiedades del formulario y command button

Hola, o buscas un icono de una mano o usas el que trae el mismo visual basic, esta en la carpeta de instalación, no es lindo....o sea no es el de windows...para usar el de windows debes usar api's...aca te paso un ejemplo simple:

Código vb:
Ver original
  1. Option Explicit
  2.  
  3. Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
  4. Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
  5. Private Const IDC_HAND = 32649&
  6. Private Const IDC_ARROW = 32512&
  7.  
  8. Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  9.     SetCursor LoadCursor(0, IDC_HAND)
  10. End Sub
  11.  
  12. Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  13.     SetCursor LoadCursor(0, IDC_HAND)
  14. End Sub
  15.  
  16. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  17.     SetCursor LoadCursor(0, IDC_ARROW)
  18. End Sub

saludos.
__________________
" Todos Somos Ignorantes; lo que pasa es que no todos ignoramos las mismas cosas " - Albert Einstein