Warum kann ich das Bilde nicht laden!
08.12.2005 17:16:40
Swen
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