Discussion :

[Martipit]

Salut

J'ai à nouveau besoin de votre aide

J'ouvre le programme KaraFunPlayer au myen du code suivant et je fais en sorte qu'il s'affiche dans le panel que je souhaite.

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
'Déclarations pour obtenir la fenetre KaraFun dans ma form
    Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    Declare Auto Function SetParent Lib "user32.dll" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As Integer
    Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    Private Const WM_SYSCOMMAND As Integer = 274
    Private Const SC_MAXIMIZE As Integer = 61488
    Dim proc As Process
 
Private Sub TRAVAIL_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            proc = Process.Start("C:\Musique\KaraFun Player\KaraFunPlayer.exe")
            proc.WaitForInputIdle()
            Dim hWnd As Long
            hWnd = FindWindow("TPlayFrm", "KaraFun Player")
            If hWnd <> 0 Then
                SetParent(hWnd, Me.PAN_KARAFUNPLAYER.Handle)
                SendMessage(hWnd, WM_SYSCOMMAND, SC_MAXIMIZE, 0)
            End If
End sub

Jusque là, pas de problème.

Par contre, si je fait un cliqué-glisser de ma fenêtre karafun, elle disparait et je suis obligé de fermer lapplication et de la réouvrir pour que KµaraFun soit à nouveau à sa place.


Il m'a été conseillé de supprimer la bordure et de maximiser Karafun mais karafun player ne possède pas ces attribus donc impossible de jouer là dessus

Ma question est donc la suivante : Est-il possible d'empêcher cette fenêtre de disparaitre de mon panel ?

Merci par avance pour vos réponses.

@+ Martipit

[mdevaux62]

Essaie d'ajouter cela dans le code de ta fenêtre :

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
 
    Protected Overrides Sub WndProc(ByRef m As Message)
        'Pour empêcher le déplacement de la fenêtre
        Const WM_NCLBUTTONDOWN As Integer = 161
        Const WM_SYSCOMMAND As Integer = 274
        Const HTCAPTION As Integer = 2
        Const SC_MOVE As Integer = 61456
        If (m.Msg = WM_SYSCOMMAND) AndAlso (m.WParam.ToInt32() = SC_MOVE) Then
            Return
        End If
        If (m.Msg = WM_NCLBUTTONDOWN) AndAlso (m.WParam.ToInt32() = HTCAPTION) Then
            Return
        End If
        MyBase.WndProc(m)
    End Sub

[Martipit]

Salut Midevaux

J'ai pris ton code et je l'ai copié tel quel dans mon programme.

Malheureusement, si je clique et que je glisse le programme KaraFun, j'obtiens toujours la même chos, à savoir quel'a fenêtre disparait.

Mon avis, je n'ai pas du faire tout comme il faut

Pourrais-tu m'apporter des précisions

@+ Martipit

[mdevaux62]

Le code envoyé ne concerne que ta propre fenêtre et en aucun cas ne peut interagir sur un programme externe.

[Martipit]

ok.

Donc quand je clique et que je glisse la fenetre Karfun qui se trouve affiché dans mon panel, j'agis sur mon programme externe. c'est bien cela?

Dans ce cas, que fait la sub que tu m'as envoyé ?

Si c'est comme tu me l'indique, dans ce cas, je vais surement ditre une annerire, mais il me faudrait un timer qui verifie en permanence la postion de la fenetre karafun et si elle n'est pas à sa place, il la repositionne...

Je ne comprend pas tout là... je le répète, je ne suis que débutant.

Qu'en pense tu ?

Merci à toi de te pencher sur mon soucis...

@+ Martipit

[mdevaux62]

Je pensais initialement que c'est ta propre fenêtre que tu souhaitais verrouiller et non le programme externe que tu as intégré.

Effectivement tu ne peux modifier les fonctionnalités du programme externe Karafun. A toi de d'adapter.