|
| |
VB.NET - Ein- und Umsteiger| Thread übergreifend bei Powerpoint Event | |  | | Autor: mathiasr | | Datum: 26.06.12 12:32 |
| Hallo,
offensichtlich habe ich ein Threading Problem und leider zu diesem Thema keine Erfahrung...
Ich erstelle ein Powerpoiintobjekt mit "With Events" in einem Formular
Dim WithEvents _oPPT As New Microsoft.Office.Interop.PowerPoint.Application In einer Form öffne ich eine selbstabspielende Powerpointpresentation.
oPPTPresentation = _oPPT.Presentations.Open(_curPres.Source, , , _
Microsoft.Office.Core.MsoTriState.msoTrue) Das Ende der Presentation möchte ich mit dem Presentation_End Ereignis
Private Sub _oPPT_SlideShowEnd(Pres As _
Microsoft.Office.Interop.PowerPoint.Presentation) Handles _oPPT.SlideShowEnd abfangen und weitere Dinge u.a. mit Controls auf dem Formular durchführen. Nachdem die Presentation abgespielt und das Eregnis eintritt und der Code hierdrin ausgeführt wird, kommt dann die Fehlermeldung (im Debugmodus):
"Ungültiger threadübergreifender Vorgang: Der Zugriff auf das Steuerelement PictureBox1 erfolgte von einem anderen Thread als dem Thread, für den es erstellt wurde."
Ich "befürchte" hier kommen Sachen wie Invoke zum Tragen (ähnlich http://www.vbarchiv.net/forum/id24_i18778t18758_query-notifikation-in-neuem-thread.html)? Wie ist hier der Ansatz ? Ein Codebeispiel wäre super da ich besagten Beitrag nicht wirklich umsetzen könnte...
Danke Euch schonmal ! | |
| Re: Thread übergreifend bei Powerpoint Event | | | | Autor: xirton | | Datum: 26.06.12 22:36 |
| Versuchs mal so. Habs aber nicht getestet 
Public Class Form1
Private WithEvents _oPPT As New _
Microsoft.Office.Interop.PowerPoint.Application
Private Delegate Sub _PPDelegate(ByVal Pres As _
Microsoft.Office.Interop.PowerPoint.Application)
Private Sub _oPPT_SlideShowEnd(ByVal Pres As _
Microsoft.Office.Interop.PowerPoint.Application) Handles _
_oPPT.SlideShowEnd
Dim ppDelegate As _PPDelegate
If Me.InvokeRequired Then
ppDelegate = New _PPDelegate(AddressOf _oPPT_SlideShowEnd)
Me.Invoke(ppDelegate, New Object() {Pres})
End If
'Ab hier dein Code welcher ausgeführt werden soll ....
End Sub
End Class
Beitrag wurde zuletzt am 26.06.12 um 22:37:43 editiert. | |
| Re: Thread übergreifend bei Powerpoint Event | | | | Autor: mathiasr | | Datum: 27.06.12 09:19 |
| Hallo DaveS,
hier der Code einer Testform mit der sich das Problem nachvollziehen läßt:
Imports Microsoft.Office.Interop.PowerPoint
Public Class Form2
Dim WithEvents _oPPT As New Microsoft.Office.Interop.PowerPoint.Application
Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) _
Handles MyBase.Load
Dim oPPS As Microsoft.Office.Interop.PowerPoint.Presentation = Nothing
Dim sFilename As String = "C:\Temp\TestPresentation.ppsx"
oPPS = _oPPT.Presentations.Open(sFilename)
End Sub
Private Sub _oPPT_SlideShowEnd(Pres As _
Microsoft.Office.Interop.PowerPoint.Presentation) Handles _
_oPPT.SlideShowEnd
Me.LabelStatus.Text = "Presentation beendet" 'hier kommt die
' Fehlermeldung
End Sub
End ClassSo funktioniert es nun zumindest (notwendige Änderung mit Kommentar "Neu"):
Eine Bestätigung von Euch das es so "sauber" ist wäre nett!
Imports Microsoft.Office.Interop.PowerPoint
Public Class Form2
Dim WithEvents _oPPT As New Microsoft.Office.Interop.PowerPoint.Application
Dim machIrgendwasDelegate As New MethodInvoker(AddressOf machIrgendwas) 'NEU
Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) _
Handles MyBase.Load
Dim oPPS As Microsoft.Office.Interop.PowerPoint.Presentation = Nothing
Dim sFilename As String = "C:\Temp\TestPresentation.ppsx"
oPPS = _oPPT.Presentations.Open(sFilename)
End Sub
Private Sub _oPPT_SlideShowEnd(Pres As _
Microsoft.Office.Interop.PowerPoint.Presentation) Handles _
_oPPT.SlideShowEnd
If Me.InvokeRequired Then 'NEU
Me.Invoke(machIrgendwasDelegate) 'NEU
Else
Call machIrgendwas()
End If
End Sub
Sub machIrgendwas()
Me.LabelStatus.Text = "Presentation beendet"
End Sub
End Class | |
| Re: Thread übergreifend bei Powerpoint Event | | | | Autor: mathiasr | | Datum: 27.06.12 10:49 |
| Problem gelöst. Danke  | |
 | 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 |
 |
|
Neu! sevCommand 4.0 
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere InfosTipp des Monats Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
| |
|
Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Mai 2024
Sie sind aktuell nicht angemeldet.