Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Teil 3
Autor: Gekko
Datum: 19.09.04 17:38
On Error Resume Next ' The HasMacros property only works for Excel & Word files ' and raises error if document is not one of these. Ignore ' any error for this sample. Dim sItem As String sItem = CStr(oDocProp.HasMacros) If Err Then sItem = "<unknown>" lstNormalProps.AddItem "Macros Attached: " & sItem ' We'll get the thumnail image of the document (if available)... Dim oPicDisp As StdPicture Set oPicDisp = oDocProp.Thumbnail If oPicDisp Is Nothing Then chkShowPreview.Enabled = False Else Set picPreview.Picture = oPicDisp chkShowPreview.Enabled = True End If On Error GoTo Err_Trap txtCustName.Text = "" txtCustValue.Text = "" lstCustType.ListIndex = 0 ' Loop through the custom properties collection and ' add each item to a list box... lstCustProps.Clear For Each oCustProp In oDocProp.CustomProperties sTmp = oCustProp.Name & ": " & CStr(oCustProp.Value) sTmp = sTmp & " [" & CustTypeName(oCustProp.Type) & "]" lstCustProps.AddItem sTmp Next ' Disable items if file is read only... Call EnableItems((Not oDocProp.IsReadOnly)) ' The operation was successful. OpenDocumentProperties = True Exit Function Err_Trap: ' Trap common errors returned from componenet... Select Case Err.Number Case &H80040203 ' The file is open by another program MsgBox Err.Description & " Please choose another file." Err.Clear: Resume GetFileFromUser Case &H80040202 ' The file selected is not an OLE structured storage file MsgBox Err.Description & " Please choose another file." Err.Clear: Resume GetFileFromUser Case &H80040201 ' DCOM is not installed -- fall through to MsgBox below End Select MsgBox "Error: " & Err.Description, vbCritical, "Err: " & CStr(Err.Number) End Function Private Sub UpdateSummaryInfo() ' Quick and dirty save routine... On Error Resume Next If txtAuthor.Text <> oDocProp.Author Then oDocProp.Author = txtAuthor.Text End If If txtComments.Text <> oDocProp.Comments Then oDocProp.Comments = txtComments.Text End If If txtTitle.Text <> oDocProp.Title Then oDocProp.Title = txtTitle.Text End If End Sub

Wer kann mir dies übersetzen?	899	Gekko	19.09.04 17:32
Teil 2	682	Gekko	19.09.04 17:35
Teil 3	565	Gekko	19.09.04 17:38
Teil 4	577	Gekko	19.09.04 17:39
Re: Teil 4	541	eclere	20.09.04 12:07
Re: Teil 4	508	Lustlos	21.09.04 14:43

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen