[vb2008] mouse cursor from Resource?

[Dummy1912]

Hallo,

iemand die weet hoe je een cursor .ani of .gif
uit de resource kunt laden

en deze als muis cursor gebruiken.

heb deze al getest en krijg error
ik heb een .ani in de resource geladen.

Dim ms As New System.IO.MemoryStream(My.Resources.cursor)
        Me.Cursor = New Cursor(ms)

bedankt
Dummy1912

 

[bas1278]

volgens mij kan je alleen een .cur laden uit resourses

Bas

 

[bas1278]

na 5 min googelen kwam ik hier op

Private Sub CmdAnimateCursor_Click()
    Dim filename As String
    filename = App.Path + "\glas.ani"
    new_cursor = LoadCursorFromFile(filename)
    old_cursor = GetCursor()
    old_cursor = CopyCursor(old_cursor)
    SetSystemCursor new_cursor, OCR_NORMAL

    CmdAnimateCursor.Enabled = False
    CmdNormalCursor.Enabled = True
End Sub

Private Sub CmdNormalCursor_Click()
    SetSystemCursor old_cursor, OCR_NORMAL

    CmdAnimateCursor.Enabled = True
    CmdNormalCursor.Enabled = False

    old_cursor = 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If old_cursor <> 0 Then SetSystemCursor old_cursor, _
        OCR_NORMAL
End Sub

hier mee verander je je muis en verranderd de muis terug als je form sluit.

Bas

 

[Dummy1912]

Hallo Bas1278,

ik heb deze ondertussen getest maar jammer genoeg werkt .cur ook niet
krijg het zelfde error.

En bedankt voor je zoekactie maar ik zou toch het liefst met de resource werken

Alvast vriendelijk bedankt

Dummy1912