[VB6] Incorporare cursori a 16 bit da file esterni

[klode]

Salve,
avrei la necessità di incorporare cursori a 256 o 65535 colori. Attualmente questi cursori risiedono esternamente (file .cur).

Come posso incorporarli alla form dove applicarla? Ho usato anche le mitiche librerie di vbAccelerator, in particolare imageList: l'unico problema è che non mantiene il punto di click del cursore.

Cosa mi consigliate di fare?

Attendo vostre.

[Andrea Toniolo2]

che linguaggio? (va indicato nel titolo)

[klode]

Oooops... scusate, nella fretta ho dimenticato di segnalarlo...

Il linguaggio è Visual Basic 6.

[klode]

Ho trovato la soluzione!

Sul seguente sito:
Using Color Cursors in VB6
ho trovato la soluzione.

Se magari il link non dovesse funzionare (il sito della Microsoft cambia spesso struttura...), ecco i semplici passi:

1. Dal menu Aggiunte scegliere Gestione aggiunte...
2. Selezionare Editor Risorse VB 6 e mettere la spunta su Caricato / scaricato a destra della finestra: cliccare su OK
3. A questo punto dal menu Strumenti compare una nuova voce, Gestione Risorse.
4. Ora compare una finestra in cui potrete caricare tutti i cursori che volete. Ogni cursore sarà numerato, da 101 in poi. Per aggiungere un cursore, cliccare sull'icona rappresentante la clessidra ed un puntatore.

5. Per l'esempio seguente, aggiungere 4 cursori.

6. A questo punto, salvare la raccolta: il file sarà quello che volete, ad es. colorCursors: l'estensione sarà .res.
7. Ora create un nuovo progetto.
8. Aggiungete al progetto un file di risorse e selezionate il file creato prima.
9. Nella form, inserite un pulsante CommandButton, ed il seguente codice:

Option Explicit

Dim ResID As Integer  ' sarà l'indice che useremo per il cursore

Private Sub Command1_Click()
    If ResID = 104 Then   ' se l'indice ha raggiunto l'ultimo cursore...
        ResID = 101   ' riparti da 101
    Else
        ResID = ResID + 1  ' altrimenti aggiungi 1 all'indice
    End If

    Me.MouseIcon = LoadResPicture(ResID, vbResCursor)
  'LoadResPicture: è la funzione magica, la quale
  'preleva la risorsa con id ResID e la dichiara come cursore,
  'mantenendo l'HotSpot
End Sub

Private Sub Form_Load()
    Me.MousePointer = vbCustom
  ' per la Form, viene definito come puntatore del mouse
  ' un puntatore vbCustom

    ResID = 100   
  ' associando l'indice pari a 100, dichiariamo che
  '  il cursore rimane quello standard all'avvio

End Sub

A questo punto, compilando il file Eseguibile, il file di risorse verrà integrato nel file generato, e all'esecuzione ad ogni click sul pulsante il cursore cambierà... vedrete i vostri cursori a colori.


Spero possa essere utile a qualcuno.