Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
704to708
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Warum kann ich das Bilde nicht laden!

Warum kann ich das Bilde nicht laden!
08.12.2005 17:16:40
Swen
Hallo an alle,
ich habe folgende Code geschrieben:
Option Explicit
Private ausgewähltePCB As PCB
Private strFolder As String
Private strImage1Path As String
Private strFilename As String

Private Sub UserForm_Initialize()
strFilename = UF_Header.ausgewähltePCB.name
If strFilename <> "" Then
strFolder = ThisWorkbook.Path & "\pic\"
strFilename = strFilename & "_WS.bmp"
With UF_PCBinfo.Image1
.Picture = LoadPicture(strFolder & strFilename)
End With
End If
End Sub

Ich bekomme aber immer einen Fehler 13 "Typen unverträglich"
Gruß
Swen

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Warum kann ich das Bilde nicht laden!
08.12.2005 17:55:17
Swen
Hallo an alle,
ich bin ein Stück weiter gekommen es hat damit zutun das
wenn ich das Klassenmodul
UF_Header.ausgewähltePCB.name
in eine Variable stecke die als string deklariert wurde übernimmt er das wohl nicht so wie ich es gerne hätte!
gruß
swen
AW: Warum kann ich das Bilde nicht laden!
08.12.2005 18:11:42
Swen
Hallo an alle
wenn ich es so mache...
*************************************************************
Option Explicit
Private strFilename As String

Private Sub UserForm_Initialize()
strFilename = "Spea-MD"
With UF_PCBinfo.Image1
.Picture = LoadPicture(ThisWorkbook.Path & "/pic/" & strFilename & "_WS.bmp ")
End With
End Sub

*************************************************************
dann klappt es, wenn ich aber nur die Variable str Filename
anders über das Klassenmodul PCB füllen möchte siehe hier
*************************************************************
Option Explicit
Private strFilename As String

Private Sub UserForm_Initialize()
strFilename = UF_Header.ausgewähltePCB.name
With UF_PCBinfo.Image1
.Picture = LoadPicture(ThisWorkbook.Path & "/pic/" & strFilename & "_WS.bmp ")
End With
End Sub

*************************************************************
sagt er mir das ich einen Typen unverträglich Laufzeitfehler 13!
es muss irgenwas mit der deklaration der Eigenschaft des Objektes zutun haben "UF_Header.ausgewähltePCB.name"
Das sieht wie folgt aus:
*************************************************************
Option Explicit
Private strName As String
'*** Objekt PCB bekommt die Eigenschaft "name" ***'
Public Property Get name() As String
name = strName
End Property
Public Property Let name(ByVal vNewValue As String)
strName = vNewValue
End Property
*************************************************************
Gruß
Swen
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige