Discussion :

[programmes]

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]

Y-a personne pour m'aider à résoudre mon problème?

[MABROUKI]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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..................

[programmes]

Merci pour ta réponse c'est exactement ce qu'il me fallait
Sympa! A+

[programmes]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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]

Personne ne peut m'aider à résoudre mon problème?
Ce serait sympa...