Muovere un'immagine in una DrawingArea con il Mouse

[vuott]

https://foro.gambas-es.org/viewtopic.php?f=1&t=6157

[Top Fuel]

Non sapevo che si possono usare oggetti come proprietà, pensavo che si potevano usare solo dati nativi come long, short, string...
Interessante.

[vuott]

... usare oggetti come proprietà,

Cosa intendi dire ?

[Gianluigi]

Ma non bastava creare un progetto grafico con la Main form  Backgound su &H000000& e Traking su True

Codice: [Seleziona]

Public Sub Form_MouseMove()
  
  Dim hPicture As Picture
  Dim hCursor As Cursor
  
  If Mouse.X > (Me.W / 2) Then    
    hPicture = Picture["fantasma-iz.png"]
    hCursor = New Cursor(hPicture)
  Else
    hPicture = Picture["fantasma-de.png"]
    hCursor = New Cursor(hPicture)
  Endif
  Me.Cursor = hCursor
  
End

 

[Top Fuel]

... usare oggetti come proprietà,

Cosa intendi dire ?

Nella classe ClsRectangulo del progetto che hai allegato c'è:

Codice: [Seleziona]

Property unaimagen As Image

Io pensavo che le proprietà di una classe potessero essere solo tipi nativi come Byte, Long, String ecc.

[Gianluigi]

Ma non bastava creare un progetto grafico con ...

 

  Mi rispondo da solo, scusate non avevo letto la discussione spagnola mi ero attenuto al titolo di questa.