Visuabasic Cursor Problem

[ProDielerNR(1)]

Hey Liebe Leute ich bins mal wider ^^"
ich hab ein Problem ich würde gerne mein Cursor ändern aber Stendig Bekomme ich Fehler ^^" das ist der Cood ich komme nicht hinter wie oder wo der Fehler sein soll

Public Class Form6
    Dim oStream As System.IO.Stream
    Dim opfd As New Cursor(oStream)
    
    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.WindowState = FormWindowState.Maximized
        Me.StartPosition = FormStartPosition.CenterScreen
        PictureBox1.Image = My.Resources.Resources.Intro1
        My.Computer.Audio.Play(My.Resources.Intro, AudioPlayMode.Background)
        Intro1.Start()
        oStream = Me.GetType().Assembly.GetManifestResourceStream(My.Resources.photo.cur)
        Me.Cursor = New Cursor(oStream)

    End Sub
End Class

were Nett wen ihr mir dabei Helfen Könntet :?

[Nanoxx™]

Wäre nett wenn du noch sagst wo es nicht geht? dann muss man nicht überlegen was du alles nicht 'richtig' gemacht hast o.O

[ProDielerNR(1)]

 Spoiler

Fehler 1 Der Wert vom Typ "1-dimensionales Array von Byte" kann nicht in "String" konvertiert werden. C:\Users\******\documents\visual studio 2010\Projects\********\*********\Form6.vb 11 67 *******

es Spuckt diese Fehler Meldung Raus

Bei dem Coode

 Spoiler

oStream = Me.GetType().Assembly.GetManifestResourceStream(My .Resources.photo)

hoffe das Hilft dir Weiter ^^"

[Biesi]

GetManifestResourceStream akzeptiert nur einen String als Parameter und My.Resources.photo ist ein Byte-Array

versuch es mal mit einem MemoryStream

[ProDielerNR(1)]

Danke aber es hat leider nicht geklappt ich werde es woll auf default lassen müssen

[warfley]

Originally Posted by ProDielerNR(1)

Danke aber es hat leider nicht geklappt ich werde es woll auf default lassen müssen

Du scheiterst daran einen Byte Array statt eines Streams zu haben?

Das ist was du suchst:

[ProDielerNR(1)]

ich verstehe den Cood nicht ^^" bin leider noch Anfänger ....

Habs aber versucht umzusetzen aber so klappt das nicht :?

 Spoiler

Public Class Form6
Public Sub New( Zeiger
ByVal buffer As Byte() Zeiger
)

End Sub
Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.WindowState = FormWindowState.Maximized
Me.StartPosition = FormStartPosition.CenterScreen
PictureBox1.Image = My.Resources.Resources.Intro1
My.Computer.Audio.Play(My.Resources.Intro, AudioPlayMode.Background)
Intro1.Start()
Me.Cursor = New Cursor(Zeiger)
End Sub


Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
Me.Hide()
My.Forms.Form1.Show()
End Sub

Private Sub Intro1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Intro1.Tick
Me.Hide()
My.Forms.Form1.Show()
Intro1.Stop()
End Sub
End Class

warscheinlich alles Flasch oder ? ^^"

oh nach Langen Rum Trixen habe ichs doch geschaft danke fürs mit Helfen

Closed

[Nevada']

Hier sehr simpel:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim GTR As Icon

        GTR = (My.Resources.cur)

        Me.Cursor = New Cursor(GTR.Handle)


    End Sub

also bei My.Resources.cur einfach cur durch den Namen deiner Datei ersetzten.

z.B
maus.ico = My.Resources.maus

Wie man schon sieht muss es eine .ico Datei sein

[stotterer09]

Originally Posted by ProDielerNR(1)

ich verstehe den Cood nicht ^^" bin leider noch Anfänger ....

Habs aber versucht umzusetzen aber so klappt das nicht :?

 Spoiler

Public Class Form6
Public Sub New( Zeiger
ByVal buffer As Byte() Zeiger
)

End Sub
Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.WindowState = FormWindowState.Maximized
Me.StartPosition = FormStartPosition.CenterScreen
PictureBox1.Image = My.Resources.Resources.Intro1
My.Computer.Audio.Play(My.Resources.Intro, AudioPlayMode.Background)
Intro1.Start()
Me.Cursor = New Cursor(Zeiger)
End Sub


Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
Me.Hide()
My.Forms.Form1.Show()
End Sub

Private Sub Intro1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Intro1.Tick
Me.Hide()
My.Forms.Form1.Show()
Intro1.Stop()
End Sub
End Class

warscheinlich alles Flasch oder ? ^^"

oh nach Langen Rum Trixen habe ichs doch geschaft danke fürs mit Helfen

Closed

was machst du denn da mit dem Timer zum Teufel?

du hast doch die Lösung hier auf dem Servierteller bekommen

was übergibst du dem Konstruktor?

und du hast vergessen mit dem Parameter des Konstruktors überhaupt was zu machen wtf?!

[ProDielerNR(1)]

Der Timer war nicht das Problem der war nur dafür da nach einer Bestimten Zeit ein anders Bild zu zeigen den Coode hab ich bloß gekürtzt da es mit den anderen nix zu tun hatte sonnst were der Coode Mega Lang gewesen ^^"

Danke Nevada für dein Kürtzeren Coode meiner hat auch gegangen nach langen trixen aber deiner ist weit aus Kürtzer

Closed