Warum kann ich das Bilde nicht laden!

Forumthread: 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

AW: Warum kann ich das Bilde nicht laden!

08.12.2005 17:55:17

Swen
AW: Warum kann ich das Bilde nicht laden!

08.12.2005 18:11:42

Swen
Geschlossen

09.12.2005 19:40:56

Geschlossen

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

Beliebteste Forumthreads (12 Monate)

Warum kann ich das Bilde nicht laden!

Forumthread: Warum kann ich das Bilde nicht laden!

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

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread