Newsgroup: it.comp.lang.visual-basic
Titolo: HELP CURSORI

Ho implementato dei cursori personalizzati, creati con Microangelo 98;
si tratta di file ".cur" e sono dei semplici cursori colorati.
Se li utilizzo all'interno di un'appclicazione VB6, in fase di
esecuzione vengono visualizzati o bianchi o neri; se li suo come
cursori di Windows, nessun problema.
Come posso fare per risolvere la questione? Sembra che gli altri
utilizzatori dell'applicazioni li vedano correttamente! Cosa c'è nel
mio VB che non funziona?
Vi ringrazio anticipatamente e vi ricordo che sono un principiante...

Anche a me succede la stessa cosa...
Penso sia una limitazione di VB...
                                Davide Manca

Anche a te succede che le persone a cui distribuisci le tue
applicazioni visualizzano tutto correttamente?
Hai trovato qualche soluzione?
Un dettaglio: se salvo come file ".ico", non ci sono problemi di
visualizzazione (il puntamento, però, avviene sul pixel centrale...)
Franco F.

 wrote in message
Iu5D3.1738$Iq6....@typhoon.libero.it...



Copio pari pari la mia risposta ad un identico quesito di una
settimana fa.......
Basta compilare il cursore (.cur) in un file di risorse, e poi usare
la LoadResPicture per assegnare il nuovo cursore al nuovo
proprietario.
Ah, i colori compariranno solo a programma compilato.
Esempio:
Private Sub Form_Load()
Set Me.MouseIcon = LoadResPicture(101, vbResCursor)
End Sub
Se vuoi puoi usare anche l'apposito plug-in (mi pare che si trova sul
sito della M$) per la gestione dei file di risorse, basta che ti
ricordi di salvare il res dopo aver aggiunto l'icona.
Buon divertimento =)


VB direttamente supporta solo cursori in bianco e nero (probabilmente il prg
di Vb è juventino ...:-)
Per utilizzare i cursori a colori devi inserirli in un file di risorse,
estraendoli poi con istruzioni tipo:
 Text1.MouseIcon = LoadResPicture(101, vbResCursor)
Tieni però conto che a livello di design time saranno ancora in bianco e
nero; soltanto quando il programma sarà compilato li vedrai a colori (perchè
non lo so ma con la Ms ormai non mi stupisco più di nulla).
Ciao


E' una limitazione di VB.
Anche a me č successa la stessa cosa.
Ho risolto usando le API (tra l'altro cosě si possono usare i punt. animati)
si deve creare un form normale e 2 command button:
Const OCR_NORMAL = 32512
Const IDC_ARROW = 32512&
Private Declare Function LoadCursorFromFile Lib _
    "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As
Long 'serve per scegliere il puntatore
Private Declare Function LoadCursor Lib _
    "user32" Alias "LoadCursorA" (ByVal hInstance As Long, lpCursorName As
Any) As Long ' modificato
Private Declare Function SetSystemCursor Lib "user32" _
    (ByVal hcur As Long, ByVal id As Long) As Long
Private Sub Command1_Click() 'cambia il puntatore in quello che si vuole
Dim hCursor As Long
hCursor = LoadCursorFromFile("c:\pippo\cursore.cur") 'tra le parentesi ci va
il percorso del cursore (*.cur o *.ani)
Call SetSystemCursor(hCursor, OCR_NORMAL)
End Sub
Private Sub Command2_Click() 'reimposta il puntatore predefinito
Dim hCursor As Long
hCursor = LoadCursor(0&, ByVal IDC_ARROW)
Call SetSystemCursor(hCursor, OCR_NORMAL)
End Sub
FATEMI SAPERE !
HANAMICHI