Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #59 da revista programar. Faz já o download aqui!

cesar35

Como mudar os Cursor de mause por um grafico

Mensagens Recomendadas

cesar35    0
cesar35

Ola amigos

Alguém poderia me ajudar como mudar o cursor de um mause por um bolinha azul

No centro para ser mani bulado por Joysticks Aqui o condigo

Obrigado

Imports System.Runtime.InteropServices
Public Class Form1
   Declare Function joyGetPosEx Lib "winmm.dll" (ByVal uJoyID As Integer, ByRef pji As JOYINFOEX) As Integer
   Public Structure JOYINFOEX
    Public dwSize As Integer
    Public dwFlags As Integer
    Public dwXpos As Integer
    Public dwYpos As Integer
    Public dwZpos As Integer
    Public dwRpos As Integer
    Public dwUpos As Integer
    Public dwVpos As Integer
    Public dwButtons As Integer
    Public dwButtonNumber As Integer
    Public dwPOV As Integer
    Public dwReserved1 As Integer
    Public dwReserved2 As Integer
   End Structure
  Dim myjoyEX As JOYINFOEX
  Public IDJoy As Long 'ID Joystick Value
   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    PictureBox1.Refresh()
    Call joyGetPosEx(0, myjoyEX)
    With myjoyEX
	    Label1.Text = (.dwXpos / 257).ToString		  'Up to six axis supported
	    Label2.Text = (.dwYpos / 257).ToString
	    Label3.Text = (.dwZpos / 257).ToString
	    Label4.Text = (.dwRpos / 257).ToString
	    Dim NoMove2D As Cursor
	    NoMove2D = Cursors.NoMove2D
	    Dim graphics As Graphics = PictureBox1.CreateGraphics()
	    Dim rectangle As New Rectangle(New Point(CInt(Math.Round((myjoyEX.dwXpos / 65535) * (PictureBox1.Width - NoMove2D.Size.Width))), CInt(Math.Round((myjoyEX.dwYpos / 65535) * (PictureBox1.Height - NoMove2D.Size.Height)))), New Size(NoMove2D.Size.Width, NoMove2D.Size.Height))
	    NoMove2D.Draw(graphics, rectangle)
    End With
   End Sub
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim myjoyEX As JOYINFOEX
    MYJOYEX.dwSize = 60
    MYJOYEX.dwFlags = 255
   End Sub
End Class

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.