Neu
Hey,
ich kämpfe seit 2 Tagen an einem wahrscheinlich einfachen Problem. Es geht um ein VB .net Framework Projekt in Visual Studio Code.
Hier erst mal der Code:
Beim Ausführen erhalte ich folgende Fehlermeldung:
Die Ordnerstruktur sieht wie folgt aus:
Die Eigenschaften der Bilder für den Buildvorgang stehen auf "Eingebettete Resource".
Ich komm nicht mehr weiter, kann mir bitte Jemand irgendwie weiterhelfen?
Vielen Dank
ich kämpfe seit 2 Tagen an einem wahrscheinlich einfachen Problem. Es geht um ein VB .net Framework Projekt in Visual Studio Code.
Hier erst mal der Code:
Quellcode
- Imports System.IO
- Imports System.Reflection
- Public Class Form1
- Private currentBackground As String
- Public Sub New()
- InitializeComponent()
- SetBackgroundImage("main")
- End Sub
- Private Sub SetBackgroundImage(imageName As String)
- Me.BackgroundImage = LoadImageFromResource(imageName)
- Me.BackgroundImageLayout = ImageLayout.Stretch
- currentBackground = imageName
- UpdateButtonImages()
- End Sub
- Private Function LoadImageFromResource(imageName As String) As Image
- Dim assembly As Assembly = Assembly.GetExecutingAssembly()
- Dim resourceName As String = $"Argus163_01.Resources.{imageName}.bmp"
- Using stream As Stream = assembly.GetManifestResourceStream(resourceName)
- If stream IsNot Nothing Then
- Return Image.FromStream(stream)
- Else
- Throw New FileNotFoundException($"Resource '{resourceName}' not found.")
- End If
- End Using
- End Function
- Private Sub UpdateButtonImages()
- Select Case currentBackground
- Case "main"
- Button1.Text = "hilfe"
- Button2.Text = "hilfe"
- Button3.Text = "hilfe"
- Button4.Text = "hilfe"
- Button5.Text = "hilfe"
- Button6.Text = "hilfe"
- Button7.Text = "hilfe"
- Button8.Text = "hilfe"
- Case "hilfe"
- Button1.Text = "main"
- Button2.Text = "main"
- Button3.Text = "main"
- Button4.Text = "main"
- Button5.Text = "main"
- Button6.Text = "main"
- Button7.Text = "main"
- Button8.Text = "main"
- Case "Bild3"
- Button1.Text = "Bild1"
- Button2.Text = "Bild2"
- Button3.Text = "Bild4"
- Button4.Text = "Bild5"
- Button5.Text = "Bild6"
- Button6.Text = "Bild7"
- Button7.Text = "Bild8"
- Button8.Text = "Bild3"
- Case "Bild4"
- Button1.Text = "Bild1"
- Button2.Text = "Bild2"
- Button3.Text = "Bild3"
- Button4.Text = "Bild5"
- Button5.Text = "Bild6"
- Button6.Text = "Bild7"
- Button7.Text = "Bild8"
- Button8.Text = "Bild4"
- Case "Bild5"
- Button1.Text = "Bild1"
- Button2.Text = "Bild2"
- Button3.Text = "Bild3"
- Button4.Text = "Bild4"
- Button5.Text = "Bild6"
- Button6.Text = "Bild7"
- Button7.Text = "Bild8"
- Button8.Text = "Bild5"
- Case "Bild6"
- Button1.Text = "Bild1"
- Button2.Text = "Bild2"
- Button3.Text = "Bild3"
- Button4.Text = "Bild4"
- Button5.Text = "Bild5"
- Button6.Text = "Bild7"
- Button7.Text = "Bild8"
- Button8.Text = "Bild6"
- Case "Bild7"
- Button1.Text = "Bild1"
- Button2.Text = "Bild2"
- Button3.Text = "Bild3"
- Button4.Text = "Bild4"
- Button5.Text = "Bild5"
- Button6.Text = "Bild6"
- Button7.Text = "Bild8"
- Button8.Text = "Bild7"
- Case "Bild8"
- Button1.Text = "Bild1"
- Button2.Text = "Bild2"
- Button3.Text = "Bild3"
- Button4.Text = "Bild4"
- Button5.Text = "Bild5"
- Button6.Text = "Bild6"
- Button7.Text = "Bild7"
- Button8.Text = "Bild8"
- Case Else
- ' Optional: Standardverhalten, wenn kein bekanntes Bild gesetzt ist
- End Select
- End Sub
- Private Sub ChangeBackground(buttonText As String)
- SetBackgroundImage(buttonText)
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- ChangeBackground(Button1.Text)
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- ChangeBackground(Button2.Text)
- End Sub
- Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
- ChangeBackground(Button3.Text)
- End Sub
- Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
- ChangeBackground(Button4.Text)
- End Sub
- Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
- ChangeBackground(Button5.Text)
- End Sub
- Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
- ChangeBackground(Button6.Text)
- End Sub
- Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
- ChangeBackground(Button7.Text)
- End Sub
- Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
- ChangeBackground(Button8.Text)
- End Sub
- End Class
Beim Ausführen erhalte ich folgende Fehlermeldung:
System.IO.FileNotFoundException: "Resource 'Argus163_01.Resources.main.bmp' not found."
Die Ordnerstruktur sieht wie folgt aus:
C:.
│ Argus163_01.sln
│
├───Argus163_01
│ │ App.config
│ │ Argus163_01.vbproj
│ │ Form1.Designer.vb
│ │ Form1.resx
│ │ Form1.vb
│ │
│ ├───bin
│ │ ├───Debug
│ │ │ Argus163_01.exe
│ │ │ Argus163_01.exe.config
│ │ │ Argus163_01.pdb
│ │ │ Argus163_01.xml
│ │ │
│ │ └───Release
│ ├───Images
│ │ anschluss.bmp
│ │ hilfe.bmp
│ │ main.bmp
│ │
│ ├───My Project
│ │ Application.Designer.vb
│ │ Application.myapp
│ │ AssemblyInfo.vb
│ │ Resources.Designer.vb
│ │ Resources.resx
│ │ Settings.Designer.vb
│ │ Settings.settings
│ │
│ ├───obj
│ │ └───Debug
│ │ │ .NETFramework,Version=v4.7.2.AssemblyAttributes.vb
│ │ │ Argus163_01.exe
│ │ │ Argus163_01.Form1.resources
│ │ │ Argus163_01.g.resources
│ │ │ Argus163_01.pdb
│ │ │ Argus163_01.Resources.resources
│ │ │ Argus163_01.vbproj.AssemblyReference.cache
│ │ │ Argus163_01.vbproj.CoreCompileInputs.cache
│ │ │ Argus163_01.vbproj.FileListAbsolute.txt
│ │ │ Argus163_01.vbproj.GenerateResource.cache
│ │ │ Argus163_01.xml
│ │ │ DesignTimeResolveAssemblyReferences.cache
│ │ │ DesignTimeResolveAssemblyReferencesInput.cache
│ │ │
│ │ └───TempPE
│ │ My Project.Resources.Designer.vb.dll
│ │
│ └───Resources
│ anschluss.bmp
│ hilfe.bmp
│ main.bmp
│
├───Images
│ anschluss.jpg
│ hilfe.jpg
│ main.jpg
│
└───Resources
anschluss.jpg
hilfe.jpg
main.jpg
Die Eigenschaften der Bilder für den Buildvorgang stehen auf "Eingebettete Resource".
Ich komm nicht mehr weiter, kann mir bitte Jemand irgendwie weiterhelfen?
Vielen Dank