Remerciez-le!

Remerciez @Admin pour avoir partagé cet document gratuitement, de la manière la plus simple, en partageant sur les réseaux sociaux.

1 2 Retour au sommaire Codes (15223) Les plus populaires du mois Les plus popul

1 2 Retour au sommaire Codes (15223) Les plus populaires du mois Les plus populaires Les plus récents Les mis à jour Toutes les sources Tout le niveau 1 (débutant) Tout le niveau 2 (initié) Tout le niveau 3 (expert) Toutes les sources avec un fichier ZIP Les sources (1520) Les mieux notés Trouver un code par mot clé (Nouveau) Les Trophées Top des favoris des membres Top par catégorie Les auteurs de sources Le top des membres Ajouter une source Catégories des codes API ASP Base de Donnees Base de registre Compression & Split Control Date & Heure Direct X Divers Ecrans de veille Exécution Fichier / Disque Formulaire Graphique Imprimante Jeux Maths Message Box Modules Multimedia Connecté en tant que ndere Fiche Profil Messages Chat Pub Rechercher sur le site Rechercher avec : Moteur de recherche Mots associés aux sources Avec [Nouve Codes ANIMATION 3D Rechercher [ Dernières recherches ] Options : Tous les codes Codes .NET uniquement Exclure les codes .NET Ajouter à mes codes favoris TUTO 11 DIRECTX : DIRECTSHOW LES VIDEO VOS JEUX. Bug Tracking Seminar Learn key principles of bug lifecycle management. Free seminar www.elementool.com Diagram to Code with UML O/R Mapping with Class & ER diagram .NET, PHP & Java Code www.visual-paradigm.com Annonces Google Informations sur la source Catégorie de cette source :DIRECT X, Directx, Directshow, Video, Directshow, Jeu Niveau de la source : Débutant Date création : 29/05/2007 02:46:50 Date de mise à jour : 01/06/2007 16:03:01 Vue 3911 fois Auteur : ciberrique [Ecrire un message] Commentaire sur cette source (8) Ajouter votre commentaire sur cette source Donnez une note à cette source : Description Pour se code, pas beaucoup de nouveauté, simplement l'affichage d'une vidéo en se DirectShow, vidéo affiché soit en plein écran (pour un jeu) soit en fenetré dans une tout autre objet possédant un hWnd. Source Option Explicit Public DSAudio As IBasicAudio 'IBasicAudio permet Public DsVideo As IBasicVideo 'Permet l'accés d Public DSevent As IMediaEvent 'IMediaEvent perm Public DScontrol As IMediaControl 'IMediaControl pe Public IPosition As IMediaPosition 'IMediaPosition p Public VideoWindow As IVideoWindow 'Information conc Public FullScreen As Boolean 'Option pour le m Multimedia OLE, DDE, Automation OpenGL Optimisation du code Périphériques Projet NURMITES Réseau & Internet Sécurité Shell Souris, Clavier, etc? SPECIAL CONCOURS ! (ARCHIVE 1er Concours) SPECIAL CONCOURS ! (ARCHIVE 2eme Concours) Système Texte Trucs & Astuces Tutoriaux VB.NET VBA VBScript Tutoriaux (96) Les derniers tutoriaux Ajouter un tutorial Forum (270755) Liste des thèmes Poser une question Les derniers messages Videos Les dernières vidéos Proposer une vidéo CSLib .NET CSLib .NET (Librairie .NET) Comparer les prix (V2!) Livres (18272) Tous les livres Nos conseils Les dernières parutions Top des ventes CodeS-SourceS Vos livres favoris Top favoris des membres Les livres les plus consultés Outils & Liens Les RFC Le Dico de la prog Annuaire de sites Emploi (2402) Postulant Gérer votre CV Déposer votre CV (c'est gratuit) Consulter les offres d'emploi Recruteur [NOUVEAU] Rechercher un CV Déposer une offre d'emploi Consulter les CVs Gérer vos offres d'emploi Etat de vos crédits pour déposer des offres d'emploi Services Modèles de CV et lettres de motivations Trouvez une convention collective Création de bannières en Flash Envoyer des ecards GRATUITEMENT (Nouveau) Vous cherchez un casting ? +50 casting/semaine ! (Nouveau) Téléchargements Fonds d'écran (Nouveau) CS ToolBar Toolbar Firefox (Nouveau) Les compil's Contact Demande de partenariat Demande de prestation (Devis) 'Chargement d'un fichier en memoire Public Function LoadVideo(ByRef path As String, _ ByRef Video As IBasicVideo, ByRef sEvent As IMedia ByRef Control As IMediaControl, ByRef Position As If path <> "" Then Set Control = New FilgraphManager ' Initi Control.RenderFile path ' La mé Set DSAudio = Control ' On do Set Video = Control ' On Set sEvent = Control ' On Set Position = Control ' De Set VideoWindow = Control ' Att If Not FullScreen Then VideoWindow.WindowStyle = 1 ' Si Else VideoWindow.FullScreenMode = True ' Met End If End If End Function 'Joue le fichier Public Function PlayVideo(ByRef Control As IMediaControl, Dim lWidth As Long Dim lHeight As Long Control.Stop ' Arr Position.CurrentPosition = 0 ' Rem Control.Run ' Jou If Not FullScreen Then DsVideo.GetVideoSize lWidth, lHeight VideoWindow.Owner = hWnd VideoWindow.SetWindowPosition 0, 0, lWidth, lHeig End If End Function 'Stop entierement la lecture Public Function StopVideo(ByRef Control As IMediaControl, Control.Stop ' Arr Position.CurrentPosition = 0 ' Rem End Function 'Supprime la video de la memoire Public Function DeleteVideo(ByRef Control As IMediaContro Control.Stop ' Arret de la vid Set Control = Nothing ' Vidage de la me Set sEvent = Nothing ' Vidage de la me Set Video = Nothing ' Vidage de la me Set Position = Nothing ' Vidage de la me End Function 'Pause Public Function PauseVideo(ByRef Control As IMediaControl Control.Pause ' Pause de la vid End Function 'Redemarage apres une pause Public Function ReStartVideo(ByRef Control As IMediaContr Control.Run ' Relance la vide End Function Les autres codes sourc Les autres codes sourc Annoncer sur CodeS-SourceS (Pub) Autre Contacter les admins (un pb sur le site ?) Chat Autres langages CodeS-SourceS ASP / ASP.NET C / C++ / C++.NET ColdFusion PHP Javascript / DHTML Delphi Flash JAVA / J2EE Graphisme IRC Assembleur C# / C#.NET PDA / PocketPC SQL Foxpro Python Codes pour Windev Codes snippets GeoGuide New Communauté IT TechnoS-SourceS New Dotnet-News IcoMania Divers Livre d'or (Nouveau) Remerciements Les admins CodeS-SourceS Faire un lien vers CodeS-SourceS Comment soutenir CodeS-SourceS ? Partenaires Developers Association Frontier.fr Editions Eyrolles Magazine Programmez! CodeWise Sites Internet Section Etudiants Obtenir les produits Microsoft gratuitement! Liste des écoles d'info Job étudiant : Donnez des cours particuliers Faites des castings (Nouveau) Project Hoshimi Section Pros Recevoir des livres blancs GRATUITEMENT Evènements à venir Emploi Magazines Liste des magazines Mon Compte Mes sources Ajouter une source Explication finale Pour le mode plein écran je n'ai pas trouvé comment quitter automatiquement, toute source j'ai mis une astuce utilisable : If IPosition.CurrentPosition = IPosition.Duration Then Form1.Show End If Ceci suffit à retourner en mode fenetré. J'ai utilisé l'aide de msdn, et le code du module suivant : http://files.codes-sources.com/fichier.aspx?id=8202&f=Module1.bas Surement je ferais une mise a jour pour permettre differente modification au niveau Aucune erreur n'est gerer dans le zip. Fichier ZIP Pour les "Membres Club", vous pouvez télécharger directement un fichier con sans télécharger le zip en entier ! Fichier Taille Voir Télécharger Form1.frm 5 881 octets Module1.bas 4 763 octets MSSCCPRJ.SCC 192 octets Projet1.vbp 972 octets Projet1.vbw 83 octets Télécharger le ZIP Dernières sources de cet auteur [ ciberrique ] TUTO TILE 7 : PASSAGE À L'ISOMÉTRIQUE LECTEUR DE FICHIER MS3D ASCII METHODE SUPERMAP, TUTO TILES 6 ! EDITEUR DE MATRICE POUR LES TILES COLLISION DIRECTX, TUTO TILES 5 Dernières sources dans la même catégorie [ Direct X SIMULATEUR DE ROBOT 3D ( EN DEVELOPPEMENT ) MOTEUR 2D (DIRECTDRAW) + GESTION DES SON (DIRECTSOUND) + GESTION DES MULTIMEDIAS (DIRECTX.AUDIOVIDEO HMEDIA LECTEUR VB6/DX7 : EDITEUR DE MODELS 3D (MESH) AVEC SUPPORT DE P TUTO TILE 7 : PASSAGE À L'ISOMÉTRIQUE Sources qui peuvent être en rapport avec celle-ci TUTO TILE 7 : PASSAGE À L'ISOMÉTRIQUE TUTO POUR LES ACTIONS DE BASE SUR VB TOUT CONNAÎTRE DE SON PC SANS DLL (OU PRESQUE). Ajouter une source Modifier une de mes sources Mes tutoriaux Ajouter un tutorial Modifier un de mes tutoriaux Poser une question dans le forum Contacter les admins Paramétrer Mon compte Options de mon compte Messagerie Boîte de réception Nouveau message à un membre Carnet d'adresses Favoris Mes codes favoris Mes livres favoris Gestion de vos alertes mails [NOUVEAU] Recevez les mails quotidien/hebdo avec les langages de votre choix ! Déconnexion Derniers blogs Un nouveau concurrent p... Sql server : c?est quoi... Ajout de controle dynam... Sharepoint 2007 : les l... Sql pass : jour 0 ou co... la suite... Feed RSS des blogs Sondage La suite bureautique que vous utilisez Microsoft Office XP Microsoft Office 2000 Microsoft Office 2003 Microsoft Office 2007 OpenOffice Autre :: Voter :: begin process at 2007 09 18 18:02:31 Derniers échanges Re : ouvrir une feuille... Re : timer et procedure... Re : ouvrir une feuille... Re : timer et procedure... Re : timer et procedure... La suite... Feed RSS du forum Mes Rss Voir toutes vos news... Comparer les prix Comparer les prix de l'Appareil Photo Numérique Panasonic DMC- FX07 Stats TOUT POUR LA BASE DE REGISTRE (REGEDIT) - COMPLET !!! TUTO CERCLES ET ANTI-ALIASING (ANTI-CRÉNELAGE - PIXELISATI Voir toute la liste pour Historique des mises à jour Date Description 01/06/2007 16:03:01 Mise à jour du nom de la source. 29/05/2007 02:48:20 Petite erreur. Les commentaires Commentaire de : shadowmoy le 29/05/2007 11:57:30 bon deja ca plante pas sous xp (1 bon point) la video n'est pas redimensionée par rapport au container (pas bien ca) je doit avoir une classe sur mon hdd qui gere le strech le curseur de lecture etc... si moi je te la mailerai un truc interessant sur directshow serait de pouvoir faire un rendu sur une surface d une picturebox mais j'ai pas encore vu de source vb capable de le faire uploads/S4/ tuto-11-directx-directshow-video-dans-vos-jeux-42882-aspx 1 .pdf