Autore Topic: Muovere un'immagine in una DrawingArea con il Mouse  (Letto 281 volte)

Offline vuott

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 11.178
  • Ne mors quidem nos iunget
    • Mostra profilo
« Ultima modifica: 13 Agosto 2020, 22:49:32 da vuott »
« Chiunque, non ricorrendo lo stato di necessità, nel proprio progetto Gambas fa uso delle istruzioni Shell o Exec, è punito con la sanzione pecuniaria da euro 20,00 a euro 60,00. »

Offline Top Fuel

  • Gran Maestro dei Gamberi
  • *****
  • Post: 960
    • Mostra profilo
Re:Muovere un'immagine in una DrawingArea con il Mouse
« Risposta #1 il: 29 Gennaio 2017, 22:20:10 »
Non sapevo che si possono usare oggetti come proprietà, pensavo che si potevano usare solo dati nativi come long, short, string...
Interessante. :)
Dear youtube administrators, your search bar is broken. When I type the letter "J" it appears justin bieber when it should appear Jimi Hendrix. Fix this, please.

Offline vuott

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 11.178
  • Ne mors quidem nos iunget
    • Mostra profilo
Re:Muovere un'immagine in una DrawingArea con il Mouse
« Risposta #2 il: 29 Gennaio 2017, 23:12:04 »
... usare oggetti come proprietà,
Cosa intendi dire ?
« Chiunque, non ricorrendo lo stato di necessità, nel proprio progetto Gambas fa uso delle istruzioni Shell o Exec, è punito con la sanzione pecuniaria da euro 20,00 a euro 60,00. »

Offline Gianluigi

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 4.114
  • Tonno verde
    • Mostra profilo
Re:Muovere un'immagine in una DrawingArea con il Mouse
« Risposta #3 il: 30 Gennaio 2017, 19:43:36 »
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

 :-\
nuoto in attesa del bacio di una principessa che mi trasformi in un gambero azzurro

Offline Top Fuel

  • Gran Maestro dei Gamberi
  • *****
  • Post: 960
    • Mostra profilo
Re:Muovere un'immagine in una DrawingArea con il Mouse
« Risposta #4 il: 30 Gennaio 2017, 22:12:38 »
... 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.
Dear youtube administrators, your search bar is broken. When I type the letter "J" it appears justin bieber when it should appear Jimi Hendrix. Fix this, please.

Offline Gianluigi

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 4.114
  • Tonno verde
    • Mostra profilo
Re:Muovere un'immagine in una DrawingArea con il Mouse
« Risposta #5 il: 31 Gennaio 2017, 13:31:31 »
Ma non bastava creare un progetto grafico con ...

 :-\

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

 :ciao:
nuoto in attesa del bacio di una principessa che mi trasformi in un gambero azzurro