|
INVENTOR VBA : thumbnail von geladener komponente ??
BernhardU am 26.01.2006 um 11:01 Uhr (0)
Vielen Dank!!Stimmt funktioniert!! mfg BernhardPS: Hoffe du hast meine 10U Erhalten!!
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : thumbnail von geladener komponente ??
BernhardU am 26.01.2006 um 18:51 Uhr (0)
Hi! Ich habe mitlerweile herausgefunden, dass ich da bei den Dateieigenschaften das Feld Vorschaugrafik speichern ankacken muss!Ich wollte fragen, ob es möglich ist das VB oder VBA gesteuert anzusprechen!Sodass ich dann einfach ein Programm schreib, dass mir die Dateien über ApprenticeServer oder im IV öffnet und das Häckchen automatisch setzt.Kann mir da jemand helfen!Vielen Dank mfg Bernhard
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : thumbnail von geladener komponente ??
BernhardU am 26.01.2006 um 15:33 Uhr (0)
Hallo Frank!Es funktioniert leider nicht bei mir!Ich willl das ganze in eine IV AddIn dll Datei einpacken doch! Dort will ich gern einen Thumbnail von nichtgeöffneten Dateien anzeigen!Doch es funktioniert irgendwie nur in deiner EXE Datei!bei mit kommt immer eine Fehlermeldung bei dieser Definition: Dim oPD As stdole.IPicture = odoc.ThumbnailIch hab absolut keine Ahnung warum! Ist da möglicherweise IV Schuld? Ich wüsste nicht, wie ich im IV ein dokument definieren konnte ohne eines zu öffnen außer Apprenti ...
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : thumbnail von geladener komponente ??
BernhardU am 23.01.2006 um 11:10 Uhr (0)
Hi!Das sollte eigentlich doch auch mit ApprenticeServer funktionieren oder?Dim oappr As New Inventor.ApprenticeServerComponent Dim odoc As Inventor.ApprenticeServerDocument odoc = oappr.Open(fname) Dim oPD As stdole.IPicture = odoc.Thumbnail Dim oMF As New System.Drawing.Imaging.Metafile(New IntPtr(oPD.Handle), New System.Drawing.Imaging.WmfPlaceableFileHeader) Dim oCallback As New System.Drawing.Image.GetThumbnailImageAbort(AddressOf ThumbnailCallback) Pb_thumb.Image = oMF.GetThu ...
|
| In das Form INVENTOR VBA wechseln |