Filmcover in Userform amzeigen?

[MdeJong]

  Datebank_1.xlsm (Größe: 118,62 KB / Downloads: 5) Hallo liebe Excelfreunde,

mit Hilfe hier aus dem Forum, hab ich es doch glatt hinbekommen, mir eine Filmdatenbank mit Usermaske zum Aufruf der Filme
zu erstellen.
Soweit ist sie schon fast fertig. :)

Jetzt möchte ich gerne, das bei Suche oder Auswahl meines Films in der Userform, mir das passende Cover zum Film angezeigt wird.
Die Cover speichere ich in einem Verzeichnis auf der Festplatte "Filmcover"

Wie ich das automatisiert wieder als VBA-Code umsetze ist für mich natürlich wieder Neuland um bitte euch dringend um Hilfe?

In der userform "BluRayListe", gibt es dort eine Image-Box, in der ich im VBA-Editor wenigstens schon mal ein Bild einfügen konnte, um euch zu zeigen,
wie ich mir das vorstelle.


Ist das umsetzbar? Reicht es, wenn ich dich Cover in einem Verzeichnis sammle und man kann sie von dort aus, per Code passend zu dem Film anzeigen?

Ich hoffe weiterhin auf professionelle Hilfe von euch,

Gruß MdeJong

[Crazy Tom]

Hallo

hier auf Arbeit kann und darf ich deine Datei nicht laden
aber da ich die ja schon kenne....

das könnte mit diesem Code innerhalb deines Suchbuttons funktionieren

beachte aber dass die Filmcover genau so heißen müssen wie der Film
sonst findet es das Cover nicht

Code:

Dim strPath As String
   strPath = "D:\Filmcover"
   Image1.Picture = LoadPicture(strPath & "\" & TextBox19.Text & ".jpg")

in meinem Test befindet sich der Ordner Filmcover auf Laufwerk D
das Filmcover muss dann so heißen wie der Text in Textbox19 --> deutsch. Filmname
auch das Format des Covers muss angepasst werden, in meinem Test .jpg


MfG Tom

[MdeJong]

Hi Rom, :05:

ich habs mir gedacht, das du dir schon Gedanken darüber gemacht hast.....war ja in meinen letzten Mappen nicht zu übersehen. ;)
Ich bin auch bei der Arbeit und kann den Code erst später ausprobieren.    Konnte gerade in der Mittagspause mein neues Thema hier anschlagen. :)

Vielen Dank für deine schnelle Hilfe.
Ich gebe heute Abend Infos....wie ich das hinbekommen habe. 

Gruß
Michael

[Crazy Tom]

Hallo

hier noch mit Fehlerbehandlung falls das Cover nicht gefunden wird

Code:

   Dim strPath As String
   strPath = "D:\Filmcover"
   Image1.Picture = Nothing
   On Error Resume Next
   Image1.Picture = LoadPicture(strPath & "\" & TextBox19.Text & ".jpg")
   On Error GoTo 0

MfG Tom

[MdeJong]

An welcher Stelle in dem Such-Code sollen die Zeilen?
Ich habe jetzt ein festes Bild zur Anschauung dort hineingepackt, da muss mit Sicherheit wieder raus?  :)

[Zwergel]

Hi Michael,

du solltest nicht unnötig zum Antworten den Zitierbutton nutzen, sondern den weiter unten angeordneten Antwortbutton.
Zitieren bitte nur dann, wenn es für die Antwort notwendig ist.

[MdeJong]

OK  

[Crazy Tom]

Hallo

das könnte so passen

Code:

Private Sub CommandButton1_Click()
   Dim c As Range
   Dim strSuche As String
   Dim strPath As String
   strPath = "D:\Filmcover"    'Pfad anpassen
   Image1.Picture = Nothing
   strSuche = InputBox("Filmname eingeben", "Filmsuche")
   If strSuche <> "" Then
       With Sheets("BluRay-Liste")
           Set c = .Columns(2).Find(strSuche, LookIn:=xlValues, lookat:=xlWhole)
           If Not c Is Nothing Then
               TextBox20.Value = .Cells(c.Row, 1).Value
               TextBox18.Value = .Cells(c.Row, 3).Value
               TextBox16.Value = .Cells(c.Row, 4).Text
               TextBox14.Value = .Cells(c.Row, 5).Value
               TextBox17.Value = .Cells(c.Row, 6).Value
               TextBox13.Value = .Cells(c.Row, 7).Value
               TextBox15.Value = .Cells(c.Row, 8).Value
               TextBox12.Value = .Cells(c.Row, 9).Value
               TextBox10.Value = .Cells(c.Row, 10).Value
               TextBox11.Value = .Cells(c.Row, 11).Value
               TextBox21.Value = .Cells(c.Row, 14).Value
               ListBox1.AddItem .Cells(c.Row, 12).Value
               
               On Error Resume Next
               Image1.Picture = LoadPicture(strPath & "\" & TextBox19.Text & ".jpg")
               On Error GoTo 0
               
               'und so weiter und sofort
           Else
               MsgBox "Film nicht gefunden"
           End If
       End With
   End If
End Sub

MfG Tom

[MdeJong]

Hi Tom,

ich bin sicher, das ich den Film richtig benannt habe .
Deinen Code hinter suchbutton, doch es geht nicht

Grß
Michael

[MdeJong]

Hey....geht doch...nur beim weiter wechseln auf dem spin behält er das Bild bei
Und ich glaube,das der Code sich TextBox18 zum Vergleicht Filmname und Name .jpg Datei
Muss denn in 18 das gleiche wie in 19 stehen?