Précédent   Forum du club des développeurs et IT Pro > Dotnet > Langages > VB.NET
VB.NET Forum d'entraide sur la programmation Visual Basic .NET. Avant de poster -> FAQ VB.NET, Articles VB.NET, Sources VB.NET
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse
 
Outils de la discussion
Publicité
'
Vieux 05/01/2013, 21h53   #1
programmes
Invité de passage
 
Homme
Assistant aux utilisateurs
Inscription : août 2012
Messages : 63
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Vendée (Pays de la Loire)

Informations professionnelles :
Activité : Assistant aux utilisateurs
Secteur : Services de proximité

Informations forums :
Inscription : août 2012
Messages : 63
Points : 3
Points : 3
Par défaut Redimentionner une vidéo

Bonsoir à tous,

Je cherche à redimmentionner une vidéo à la taille de la form sous visual studio 2010. Es-ce possible et comment? Sur mes recherches avec google il y a VISCOM Video Edit ActiveX Control. Quelqu'un en sait-il plus à ce sujet ou il y a t'il une autre possibilité?

Pour infos j'utilise Windows Média Player. Dois-je utiliser une autre fonction?
Merci à vous tous...
programmes est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 06/01/2013, 17h45   #2
programmes
Invité de passage
 
Homme
Assistant aux utilisateurs
Inscription : août 2012
Messages : 63
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Vendée (Pays de la Loire)

Informations professionnelles :
Activité : Assistant aux utilisateurs
Secteur : Services de proximité

Informations forums :
Inscription : août 2012
Messages : 63
Points : 3
Points : 3
Y-a personne pour m'aider à résoudre mon problème?
programmes est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 07/01/2013, 22h13   #3
MABROUKI
Membre Expert
 
mebarek
Inscription : avril 2008
Messages : 1 041
Détails du profil
Informations personnelles :
Nom : mebarek
Âge : 53

Informations forums :
Inscription : avril 2008
Messages : 1 041
Points : 1 542
Points : 1 542
bonjour programmes.....

Pas tres clair vu qu'il n'y a aucun code pour comprendre le besoin.
Mais tu as aussi DirectX 9.0 for Managed Code(august 2006) que tu peux utiliser(sdk dispo en telechargement free sur site MSDN)....
Il suffit de designer le control(form ou panel) qui sera le "video.owner" de ta video.....elle se resize à sa taille automatiquement.....

exemple code:
Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
'apres installation de la sdk(voir dans dossier C:\WINDOWS\Microsoft.NET\DirectX for Managed Code\1.0.2902.0\)
'ajouter ue reference aux assemblies:
'-Microsoft.DirectX.dll
'-Microsoft.DirectX.AudioVideoPlayback.dll
 
'pour executer cet  exemple:
'dropper sur le form dans l'ordre
'- panel1(contiendra nos 2 buttons)
'
'- panel2 (adffichera la video)
' 
Imports Microsoft.DirectX
Imports Microsoft.DirectX.AudioVideoPlayback
 
Public Class frmVideo
 
    Private vid As Video
    Public Sub New()
 
        ' Cet appel est requis par le Concepteur Windows Form.
        InitializeComponent()
 
        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        Me.ResizeRedraw = True
        Me.Panel1.Dock = DockStyle.Top
        Me.Panel2.Dock = DockStyle.Fill
    End Sub
    Private Sub btnOpenFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpenFile.Click
        Dim strFileVid As String = String.Empty
 
        Dim dlg As OpenFileDialog = New OpenFileDialog
        dlg.FilterIndex = 0
        dlg.Filter = "Fichiers Video(*.*)|*.*"
        If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then
            strFileVid = dlg.FileName
            If Len(strFileVid) = 0 Then
                Return
            Else
                vid = New Video(strFileVid, True)
                vid.Caption = "bear"
                Me.Text = vid.Caption
                vid.Size = New Size(Me.Panel2.Width, Me.Panel2.Height)
                vid.Owner = Me.Panel2
                vid.ShowCursor()
                vid.Play()
 
 
            End If
        End If
    End Sub
 
 End Class
lien de telechargement:
http://www.google.fr/url?sa=t&rct=j&..._s_nx3w7tcmLRQ

bon code..................
MABROUKI est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 08/01/2013, 01h51   #4
programmes
Invité de passage
 
Homme
Assistant aux utilisateurs
Inscription : août 2012
Messages : 63
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Vendée (Pays de la Loire)

Informations professionnelles :
Activité : Assistant aux utilisateurs
Secteur : Services de proximité

Informations forums :
Inscription : août 2012
Messages : 63
Points : 3
Points : 3
Merci pour ta réponse c'est exactement ce qu'il me fallait
Sympa! A+
programmes est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 08/01/2013, 18h26   #5
programmes
Invité de passage
 
Homme
Assistant aux utilisateurs
Inscription : août 2012
Messages : 63
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Vendée (Pays de la Loire)

Informations professionnelles :
Activité : Assistant aux utilisateurs
Secteur : Services de proximité

Informations forums :
Inscription : août 2012
Messages : 63
Points : 3
Points : 3
J'ai une erreur avec directX. Le programme m'affiche la fenêtre "Delay Notification" avec les boutons "Swicth to..." et 'Contiinue Waiting". Je n'ai même pas la possibilité d'annuler.

J'ai du importer manuellement les dll car directx ne figurait nulle part dans les références
J'ai donc importé:
Directx3D.dll (j'ai un écran 3D)
audiovideoplayback.dll
Voici mon code:
Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Imports Microsoft.DirectX
Imports Microsoft.DirectX.AudioVideoPlayback
Public Class Form1
    Private Vid As Video
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Vid = New Video("C:\Décompression\Intro.avi", True)
        Vid.Caption = "bear"
        Me.Text = Vid.Caption
        Vid.Size = New Size(Me.Panel1.Width, Me.Panel1.Height)
        Vid.Owner = Me.Panel1
        Vid.ShowCursor()
        Vid.Play()
 
    End Sub
End Class
Merci à vous tous pour votre aide!
programmes est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 09/01/2013, 19h59   #6
programmes
Invité de passage
 
Homme
Assistant aux utilisateurs
Inscription : août 2012
Messages : 63
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Vendée (Pays de la Loire)

Informations professionnelles :
Activité : Assistant aux utilisateurs
Secteur : Services de proximité

Informations forums :
Inscription : août 2012
Messages : 63
Points : 3
Points : 3
Personne ne peut m'aider à résoudre mon problème?
Ce serait sympa...
programmes est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Cette discussion est résolue.
Outils de la discussion

Navigation rapide


Fuseau horaire GMT +2. Il est actuellement 19h18.


 
 
 
 
Partenaires

Hébergement Web