visual basic 2010

Question

hallo,

kann ich auch ein in paint selbst erstelltes bild als bmp Datei in die picturebox einfügen? Habe es probiert jedoch zeigt es eine Fehlermeldung "Ressources ist kein Member von My"

was könnte da der Fehler sein?

Vielen Dank

Answer 1

Hi,
hast Du die bmp-Datei auch den Ressourcen des Projektes hinzugefügt? Zeig mal den Code, wie Du die bmp-Datei aus den Ressourcen zur Anzeige in der PictureBox bringen willst.

---

--
Viele Grüsse
Peter Fleischer (MVP, Partner)
Meine Homepage mit Tipps und Tricks

Answer 2

Hi, du kannst das Bild auf verschiedene arten "laden" z.B.

PictureBox1.Image = Image.FromFile("pfad")

oder 

PictureBox1.Load("pfad")

"pfad" muss durch die Absolute Pfadangabe ersetzt werden (z.B. "C:\dasBild.bmp") oder 'Application.StartupPath & "dasBild.bmp"' dann muss das Bild in dem selben Ordner sein in der auch deine Anwendung liegt.

Oder du gehst über Projekt - Projekteigenschaften und dann auf Resourcen und fügst dann da dein Bild ein. Dann kannst du über den Namen und Ohne Pfadangabe anzeigen.

 

Answer 3

Hi,

ja ich hab die vier bilder unter Projekt in Ressources hinzugefügt. Ich will einen Idealgewichtsrechner erstellen als Übung, allerdings sind in dem Buch anscheinend ein paar Fehler. Hab den Code genau abgeschrieben:

Public Class IdealgewichtsrechnerV5

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tbGroesse.Text = "180"
        tbGewicht.Text = "90"
        rbMaennlich.Checked = True
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbWeiblich.CheckedChanged

    End Sub

    Private Sub bnUmrechnen_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bnUmrechnen.Click
        Dim Groesse, Gewicht As Single
        Dim BMI As Short
        Dim Ergebnis As String
        Dim Smiley As Icon
        If Single.TryParse(tbGroesse.Text, Groesse) = False Then
            MessageBox.Show("Bitte eine Zahl für die Größe angeben!")
            Exit Sub
        End If
        If Single.TryParse(tbGewicht.Text, Gewicht) = False Then
            MessageBox.Show("Bitte eine Zahl für die Größe angeben!")
            Exit Sub
        End If
        BMI = Gewicht / (Groesse / 100) ^ 2
        If rbMaennlich.Checked = True Then
            Select Case BMI
                Case Is < 20
                    Ergebnis = "Untergewicht"
                    Smiley = My.Ressources.SmileyNeutral
                Case 20 To 25
                    Ergebnis = "Normalgewicht"
                    Smiley = My.Ressources.SmileyLacht
                Case 25 To 30
                    Ergebnis = "Übergewicht"
                    Smiley = My.Ressources.SmileyBesorgt
                Case Is > 30
                    Ergebnis = "Extremes Übergewicht"
                    Smiley = My.Ressources.SmileyEntsetzt
                Case Else
                    Ergebnis = "Unbekannter Wert"
            End Select
        Else
            Select Case BMI
                Case Is < 19
                    Ergebnis = "Untergewicht"
                    Smiley = My.Ressources.SmileyNeutral
                Case 19 To 24
                    Ergebnis = "Normalgewicht"
                    Smiley = My.Ressources.SmileyLacht
                Case 24 To 30
                    Ergebnis = "Übergewicht"
                    Smiley = My.Ressources.SmileyBesorgt
                Case Is > 30
                    Ergebnis = "Extremes Übergewicht"
                    Smiley = My.Ressources.SmileyEntsetzt
                Case Else
                    Ergebnis = "Unbekannter Wert"
            End Select
        End If
        tbBMI.Text = BMI
        tbErgebnis.Text = Ergebnis
        tbErgebnis.Image = Smiley.ToBitmap



    End Sub
End Class

für einen Tipp wär ich sehr dankbar! Irgendwie akzeptiert es die Bilder nicht.

Answer 4

Hi,
hast Du die Smileys wirklich den Ressourcen des Projektes hinzugefügt?

---

--
Viele Grüsse
Peter Fleischer (MVP, Partner)
Meine Homepage mit Tipps und Tricks

Answer 5

Hallo Emil1977,

Habe es probiert jedoch zeigt es eine Fehlermeldung "Ressources ist kein Member von My"

 Select Case BMI
                Case Is < 20
                    Ergebnis = "Untergewicht"
                    Smiley = My.Ressources.SmileyNeutral
                Case 20 To 25
                    Ergebnis = "Normalgewicht"
                    Smiley = My.Ressources.SmileyLacht
                Case 25 To 30
                    Ergebnis = "Übergewicht"
                    Smiley = My.Ressources.SmileyBesorgt
                Case Is > 30
                    Ergebnis = "Extremes Übergewicht"
                    Smiley = My.Ressources.SmileyEntsetzt
                Case Else
                    Ergebnis = "Unbekannter Wert"
            End Select

            Select Case BMI
                Case Is < 19
                    Ergebnis = "Untergewicht"
                    Smiley = My.Ressources.SmileyNeutral
                Case 19 To 24
                    Ergebnis = "Normalgewicht"
                    Smiley = My.Ressources.SmileyLacht
                Case 24 To 30
                    Ergebnis = "Übergewicht"
                    Smiley = My.Ressources.SmileyBesorgt
                Case Is > 30
                    Ergebnis = "Extremes Übergewicht"
                    Smiley = My.Ressources.SmileyEntsetzt
                Case Else
                    Ergebnis = "Unbekannter Wert"
            End Select

Möglicherweise geht es um einen Tippfehler. Auf Englisch schreibt man resource mit einem s (trifft auch für die Schlüsselwörter in .NET zu), kein Doppel-S wie auf Deutsch und Französisch. Werden die Dateien mit My.Resources.SmileyNeutral bzw. My.Resources.SmileyLacht erkannt?

Gruß,
Dimitar

---

Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip „IT-Pros helfen IT-Pros“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.

Answer 6

Hi, vielen Dank für den Tipp. Daran liegt es aber auch nicht. Werd mal ein anderes Buch probieren, find es aber generell enttäuschend dass das Programm so wenig verständliche Erklärungen bereithält, zumindest eine genauere Fehlerbeschreibung wäre schon hilfreich.

Answer 7

Hi Emil,
wenn Du in der WindowsForms-Anwendung in den Anwendungseinstellungen "Enable Application Framework" angehakt hast, wird Dir automatisch im My-Namensraum der Namensraum "Resources" hinzugefügt. Damit kann die von Dir genannte Fehlermeldung nicht auftreten. Wenn sie doch auftritt, bedeutet das, dass Du entweder keine WindowsForms-Anwendung hast oder das Häkchen gelöscht hast.

---

--
Viele Grüsse
Peter Fleischer (MVP, Partner)
Meine Homepage mit Tipps und Tricks

Answer 8

Hi Peter,

Danke für den Tipp. Wie komm ich denn in die Anwendungseinstellungen, unter Debuggen find ich keinen Eintrag "Enable ApplicationFramework", der abgehakt werden kann..oder bin ich da ganz falsch?;)

Grüße,

Emil

Answer 9

Hallo Emil,

Dieses Kontrollkästchen ist nicht unter Debuggen, sondern unter Anwendung in den Projekteigenschaften zu finden.

Gruß,
Dimitar

---

Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip „IT-Pros helfen IT-Pros“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.

Answer 10

Hallo Dimitar,

habs kontrolliert, ist aktiviert, also daran kanns auch nicht liegen..

aber danke,

Gruß Emil