Mauszeiger aus Resourcen! Wird nicht angezeigt.

semih999 · 13. Dezember 2010, 18:35

Hallo,
Ich hab mir mit dem Tool Sib Courser Editor ein Courser erstellt den ich jetzt ein meiner Anwendung haben will.
Aber ürgend wie wird immer den normale Zeiger angezeigt.

In den Befehlen sind auch keine Fehler bzw. nicht unterstrichen.
Hab den Courser schon auf 32, 24,1 Bit Probiert.Der Courser bleibt immer wie der normale.

Hab mehrere Codes schon ausprobiert wie z.B.:

VB.NET-Quellcode

' Erstellen eines neuen Stream
Dim oStream As System.IO.Stream
' Mauszeiger laden
oStream = Me.GetType().Assembly.GetManifestResourceStream( _
"Anwendung1.curser2.cur")
' Mauszeiger festlegen
Me.Cursor = New Cursor(oStream)
oder
Dim c As New Cursor(New IO.MemoryStream(My.Resources.curser2))
Me.Cursor = c

Wäre für jede Hilfe Dankbar!
MfG semih999

FlashTek · 13. Dezember 2010, 18:47

Ist die Datei überhaupt ein gültiger Mauszeiger?

semih999 · 13. Dezember 2010, 18:58

Wie guck ich das nach?
Habs mal als .rar angehängt. Kannst ja gucken.

SystemUnknow · 13. Dezember 2010, 21:07

vbarchiv.net/tipps/tipp_682-mauszeiger-in-vbnet.html
wie man dateien aus ressourcen raus holt, findest jede menge source in forum.

semih999 · 13. Dezember 2010, 21:14

wie jetzt?
diesen Befehl hab ich schon versucht. (keine fehlermeldung oder so aber mein Mauszeiger bleibt normal.)
hat jm. vil. ne .cur Datei von der ihr wisst das sie geht damit ich sie testen kann. ( damit ich dann weiß das es an meiner Datei liegt)
oder ich hab meine in ein Anhang geleägt könnten ihr es mal ausprobieren?

semih999 · 13. Dezember 2010, 21:47

Inzwischen hab ich es schon selber geschaft.
ABer jetzt noch ne frage wie macht man Animierte Courser mit z.B. 8 Bit in die Anwendung, weil dann immer Bildformat nicht unterstützt kommt.

SystemUnknow · 13. Dezember 2010, 22:16

vbarchiv.net/tipps/tipp_1708-a…mauszeiger-verwenden.html (muß du noch in NET umschreiben)

semih999 · 14. Dezember 2010, 18:09

2 Warnungen:
Nicht verwendete Lokale Varialbe: "nResult".
Die SetMouseCursor-Funktion gibt nicht für alle Codepfade einen Wert zurück.Fehlt eine Retunr-Anweisung?

Wobei ich glaube das die Warnungen nich so das Problem sind undzwa der Fehler:

VB.NET-Quellcode

SetMouseCursor(Me.hWnd, App.Path & "\mycursor.ani")

"App" wurde nicht deklariert. Auf das Object kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden.

Kann mir jm. sagen was ich falsch gemacht hab?
MfG
semih999

SystemUnknow · 14. Dezember 2010, 18:12

App.Path = VB6
Application.StartupPath = VB NET

YaPh1l · 14. Dezember 2010, 18:21

codeproject.com/KB/cs/ExtCursors.aspx
Das ist eine sehr gute Library dafür.

Viele Grüße, Phil.

semih999 · 14. Dezember 2010, 18:23

Erstmal Danke!
Jetzt kommt einfehler wenn ich den Befehl aufrufe undzwa:
(war zu lang um zu schreiben hier screen)

kann das vil. was mit den Warnungen zutun haben?

SystemUnknow · 14. Dezember 2010, 18:30

nResult kannst löschen

das kann an deklaration liegen, her NET deklaration:

VB.NET-Quellcode

Private Declare Function SetCapture Lib "user32.dll" (ByVal hwnd As Int32) As Int32

oder

an Funtkion aufruf, nicht Me.hwnd, sonder Me.handle.

EDIT// in Variablen deklaration ändere Datentyp von Long auf Integer, da wo handle wird übergenen verwende Datentyp IntPtr.

semih999 · 14. Dezember 2010, 19:16

Jetzt kommt dass Gleiche bei "hCursorOld = SetCursor(hCursor)"
Deswegen hab ich wie du den Code " Private Declare Function SetCursor Lib "user32" ( _
ByVal hCursor As Long) As Long"
so umgeschrieben:" Private Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As Int32) As Int32"
Aber das hat nichts gebracht : (.

SystemUnknow · 14. Dezember 2010, 19:19

[VB.NET] [Tutor] API-Aufrufe in vb.net/2005/2008 + Kommunikation über Windows-Messages

API deklarationen findenst auf pivnoke.net.

Mangafreak1995 · 14. Dezember 2010, 20:37

nicht nur bei pinvoke ... auch auf msdn

semih999 · 14. Dezember 2010, 21:40

Habs jetzt so gemacht:

VB.NET-Quellcode

Private Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As Int32) As Int32

Wenn ich den Befehl aufrufe kommt bei hCurserOld = Set(hCuror)
Die arithmetische Operation hat einen Überlauf verursacht.

Kann mir jm. sagen was das Bedeutet bzw. was ich falsch gemacht hab.

FAtheone · 14. Dezember 2010, 22:17

hCursor As IntPtr ... As IntPtr in der Signatur und
ganz oben mit "Option Strict On" aufräumen - dann findet sich der Fehler von selbst.

semih999 · 15. Dezember 2010, 14:21

Sry wenn ich zuviel frage aber bin halt Anfänger sry.

Also ich habs jetzt so stehen:

VB.NET-Quellcode

Option Explicit On
Public Class Form1
' Benötigte API-Deklarationen
Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Integer
Private Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As IntPtr) As IntPtr
Private Declare Function SetCapture Lib "user32.dll" (ByVal hwnd As Int32) As Int32
Private Declare Function ReleaseCapture Lib "user32" () As Long
' Window-Handle der Form, in der der animierte
' Cursor angezeigt werden soll
Private hwnd As Long
' Mauszeiger - ursprüngliches Handle
Private hCursorOld As Long
' Handle des neuen Mauszeigers
Private hCursor As Long
' benutzerdefinierten Mauszeiger laden und anzeigen
Public Function SetMouseCursor(ByVal nWnd As Long, _
ByVal sFile As String) As Boolean
' zunächst Mausereignisse eines früheren Aufrufs
' freigeben und ursprünglichen Cursor wiederherstellen
ReleaseMouseCursor()
Dim nResult As Long
' Cursor aus Datei laden
hCursor = LoadCursorFromFile(sFile)
If hCursor <> 0 Then
hwnd = nWnd
' Mausereignisse auf die Form umleiten
SetCapture(hwnd)
' neuen Cursor festlegen
hCursorOld = SetCursor(hCursor)
SetMouseCursor = True
End If
End Function
' benutzerdefinierten Mauszeiger zerstören
' und ursprünglichen Cursor wiederherstellen
Public Sub ReleaseMouseCursor()
If hwnd <> 0 Then
If hCursor <> 0 And hCursorOld <> hCursor Then
SetCursor(hCursorOld)
ReleaseCapture()
End If
End If
hwnd = 0
hCursor = 0
hCursorOld = 0
End Sub

und Bei FormLoad so:
SetMouseCursor(Me.Handle, Application.StartupPath & "\mge.ani")

Es kommt keine Fehlermeldungen aber der Zeiger bleibt wie er ist

.
Ist da was falsch oder liegt es an meiner Datei? (mein Zeiger hab ich als Umhang hochgeladen)

Mangafreak1995 · 15. Dezember 2010, 17:18

du musst nich das Handle von der Form nehmen sondern von der Maus ... oder sehe ich das falsch ?

semih999 · 15. Dezember 2010, 19:19

Wie jetzt kommt das nicht unter "Public Class Form1" und wenn ja was meinste mit dem Hanlde von der Maus?

Mauszeiger aus Resourcen! Wird nicht angezeigt.

Mauszeiger aus Resourcen! Wird nicht angezeigt.

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben