FlowFact - Entwicklungstools

zurück

Sub - OBJ_Bild_Set
Objektbild hinzufügen

  Sub OBJ_Bild_Set(ByVal rsOBJ As ADODB.Recordset, ByVal strSourceFileName As String, ByVal intIndex As Long, ByVal strBezeichnung As String)  
 


rsObj: Recordset, das von OBJ_New oder OBJ_Find_XXX zurückgegeben wurde. Auch ein 'm_oBase.FF_GetRecordset("SELECT * FROM OBJ ...")' ist möglich.
strSourceFilename: Datei- und Pfadangabe zur Bilddatei
intIndex: =0 Kurzexpose; >0 Langexpose
strBezeichnung: Bildtext z.B. Rückansicht


Public Sub OBJ_Bild_Set(ByVal rsOBJ As ADODB.Recordset, ByVal strSourceFileName As String, ByVal intIndex As Long, ByVal strBezeichnung As String)
    Dim strFileExt As String
    Dim strDestinationFileName As String

    strFileExt = m_oUtil.GetFileExtender(strSourceFileName)
    strDestinationFileName = OBJ_Bild_MakeFileName(rsOBJ, intIndex, strBezeichnung, strFileExt)

    m_oFS.CopyFile strSourceFileName, strDestinationFileName, True
End Sub