Das nachfolgende Beispiel zeigt, wie sich ein AVI-File ohne zusätzliches Player-Control in einer PictureBox abspielen lässt. Alles was man dazu braucht, ist die universelle SendMCIString API-Funktion! Erstellen Sie ein neues Projekt und platzieren Sie eine PictureBox auf die Form. Weiterhin werden noch zwei CommandButtons benötigt (cmdPlay und cmdStop). Und hier der Code: Option Explicit ' benötigte API-Deklarationen Private Declare Function mciSendString Lib "winmm.dll" _ Alias "mciSendStringA" ( _ ByVal lpstrCommand As String, _ ByVal lpstrReturnString As String, _ ByVal uReturnLength As Long, _ ByVal hwndCallback As Long) As Long Private Declare Function GetShortPathName Lib "kernel32" _ Alias "GetShortPathNameA" ( _ ByVal lpszLongPath As String, _ ByVal lpszShortPath As String, _ ByVal cchBuffer As Long) As Long ' AVI-File öffnen Private Sub AVI_Open(ByVal sFile As String) Dim sBuffer As String * 256 Dim nResult As Long ' DOS-Namen ermitteln (8.3-Format) nResult = GetShortPathName(sFile, sBuffer, Len(sBuffer)) sFile = Left$(sBuffer, nResult) ' AVI öffnen ' öffnet ein Gerät und eine Multimedia-Datei mciSendString "open " & sFile & " type avivideo" & _ " alias myAVI", 0, 0, 0 ' Anzeige in der PictureBox mciSendString "window myAVI handle " & _ CStr(Picture1.hWnd), 0, 0, 0 End Sub ' AVI in PictureBox abspielen Private Sub AVI_Play() mciSendString "play myAVI from 0", 0, 0, 0 End Sub ' Abspielvorgang stoppen Private Sub AVI_Stop() mciSendString "close myAVI", 0, 0, 0 End Sub ' MCI Schließen Private Function AVI_Close() mciSendString "close myAVI", 0, 0, 0 End Function ' AVI öffnen und abspielen Private Sub cmdPlay_Click() Dim sFile As String ' Dateiname sFile = "c:\winnt\clock.avi" ' MCI öffnen AVI_Open sFile ' Abspielvorgang starten AVI_Play End Sub ' Abspielvorgang beenden und MCI schließen Private Sub cmdStop_Click() AVI_Stop AVI_Close End Sub Dieser Tipp wurde bereits 40.523 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
Neu! sevPopUp 2.0 Dynamische Kontextmenüs! Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
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. |