recourser i program

Hejsa. Mht. pathen kan du måske bruger namespacet.. "System.Environment.UserName"  til noget?

Nu kan jeg se du henter billedet fra desktoppen. Er du så sikker på at billederne ligger ved hver enkelt bruger.. eller har du også brug for at løse det?

Det er det der er problemet... :)
Altså det med de billeder :)

Benyt følgende funktion:

  Public Function GetEmbeddedPicture(ByVal FileName As String) As Image
    Dim MyAssembly As System.Reflection.Assembly = _
      Me.GetType.Assembly.GetEntryAssembly()

    'Hent namespace:
    Dim MyNamespace As String = MyAssembly.GetName().Name

    'Indlæs billede:
    Dim PictureStream As System.IO.Stream
    PictureStream = MyAssembly.GetManifestResourceStream( _
      MyNamespace & "." & FileName)

    If Not (PictureStream Is Nothing) Then
      Try
        Return Image.FromStream(PictureStream)
      Finally
        PictureStream.Close()
      End Try
    End If

    Return Nothing
  End Function

.. og kald funktionen fx således:

  PictureBox1.BackgroundImage = GetEmbeddedPicture("ditbillede.bmp")

Metoden, hvorpå billedet hentes fra assembly'et, kan i princippet benyttes til at hente al slags embedded data, da vi blot benytter en System.IO.Stream til at hente det.

Det prøver jeg

Det kommer med en "out of memory"

Har jeg lavet noget forkert?
De billeder er med under mappen images i min solution og har Build Action som Embedded Resource

Hmm .. Out Of Memory .. Det gør den dog ikke på min? På hvilken linje sker fejlen?

Husk, at selvom billederne ligger i en undermappe, skal du ikke angive undermappen i filnavnet. Hvis et billede fx ligger i "images/test.gif", skal du kalde funktionen således:

  PictureBox1.BackgroundImage = GetEmbeddedPicture("test.gif")

Prøv evt. denne funktion i stedet, hvis det stadig ikke virker:

  Public Function GetEmbeddedPicture(ByVal FileName As String) As Bitmap
    Dim MyAssembly As System.Reflection.Assembly = _
      Me.GetType.Assembly.GetEntryAssembly()

    'Hent namespace:
    Dim MyNamespace As String = MyAssembly.GetName().Name

    'Indlæs billede:
    Dim PictureStream As System.IO.Stream
    PictureStream = MyAssembly.GetManifestResourceStream( _
      MyNamespace & "." & FileName)

    If Not (PictureStream Is Nothing) Then
      Try
        Return New Bitmap(PictureStream)
      Finally
        PictureStream.Close()
      End Try
    End If

    Return Nothing
  End Function

Hmm .. fandt denne metode, som lige umiddelbart fungerer lige så godt:

PictureBox1.BackgroundImage = New Bitmap(Me.GetType(), "test.gif")

:)

Hvor "test.gif" er navnet på dit embedded bitmap

point.... og tak

ahh, du har fået point for denne her... kan du hjælpe med den anden så ?

Ja, jeg vil forsøge :)

Til andre læsere, er det andet spørgsmål at finde på http://www.eksperten.dk/spm/568458