Discussion :

[chelguera]

bonjour

petit programme de gestion video en vb6 qui affiche la video dans une fenetre (wmplayer) mais je voudrais que la video s'affiche en plein ecran sur le second moniteur.... quelle carte choisir ou ocx

merci

[ProgElecT]

bonjour

petit programme de gestion video en vb6 qui affiche la video dans une fenetre (wmplayer) mais je voudrais que la video s'affiche en plein ecran sur le second moniteur.... quelle carte choisir ou ocx

merci

Un Form, un PictureBox ?

Pour ma part, la sortie étant dans un PictureBox, je dimensionne ma Form.Width = Dimension de mon écran de commande(mon PC portable) + résolution de l'écran secondaire, et Picture de sortie .Left = Form.width.
Mon choix d'affichage (configuration windows) étant "Étendre le bureau au deux écran"

[ProgElecT]

Salut
Dans un module.bas

Code :

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

1
2
3
4
5
'Bureau étendu sur 2 écrans
Public DeuxEcranS As Boolean
Public Sub Main()
 DeuxEcranS = False
End Sub

En fait j’ai deux Optionbuttons qui me permet de choisir si je veux jouer la sortie sur l’écran du portable ou sur l’écran externe, je ne détecte pas si il y a un écran externe (je ne savais pas faire à l’époque) suivant l’option choisie:

Code :

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

1
2
3
Private Sub Option1_Click(Index As Integer)
If Index = 0 Then DeuxEcranS = False Else DeuxEcranS = True
End Sub

La sortie d’affichage plein écran est un Form, ScaleMode = VBTwips

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Activate()
If DeuxEcranS = True Then
'placement sur l’écran externe 
 Me.Left = Screen.Width + ((Screen.Width - Me.Width) / 2): Me.Top = (Screen.Height - Me.Height) / 2
 Else
 'placement sur l’écran du PC portable
 Me.Left = frmDiapoDernLeft: Me.Top = frmDiapoDernTop
End If
End Sub
Private Sub Form_Resize()
 Me.Left = Screen.Width + ((Screen.Width - Me.Width) / 2): Me.Top = (Screen.Height - Me.Height) / 2
End Sub

Je ne sais plus ou sont les sources d’un de mes programmes qui utilise un PictureBox, mais le principe est le même.
Il y a une discussion qui reprend exactement ce principe .

[chelguera]

bonjour,

desole de n'avoir pas repondu plus tot mais soucis familiaux.. enfin soit...

Bon, je vais tenter de rexpliquer mon probleme.. j'ai une form dans laquelle je choisis une video, et une fois choisie, j'aimerais quelle s'affiche en plein ecran mais sur le second ecran ceci afin que je puisse pendant quelle s'execute continuer a travailler sur le premier ecran.

Merci de vos contributions a regler ce petit probleme

[DarkVader]

Bonjour,
Apparemment il s'agit de placer la fenêtre d'un programme externe (wmp) :
si c'est bien le cas, voir avec setwindowpos.

Pour déterminer le nombre d'écrans et la taille de l'écran virtuel
voir Getsystemmetrics

Code :

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

1
2
3
4
5
6
7
        Const SM_CYVIRTUALSCREEN    As Long = 79
        Const SM_CMONITORS          As Long = 80
        Const SM_CXVIRTUALSCREEN    As Long = 78
 
        Debug.Print "Nb d'écrans :                " & GetSystemMetrics(SM_CMONITORS)
        Debug.Print "Largeur de l'écran virtuel : " & GetSystemMetrics(SM_CXVIRTUALSCREEN)
        Debug.Print "Hauteur de l'écran virtuel : " & GetSystemMetrics(SM_CYVIRTUALSCREEN)