none
Déplacer un Form avec propriété StyleBorder=None Background image= noir.bmp TransparenceKey=black avec un composant Perso a l' intérieur position Dock et Transparent RRS feed

  • Question

  • Bonsoir,
    j ai essayé mais ca marche pas,  ptète a cause de la transparence

    vu que j ai
    un Form avec un image noir.bmp pour le background et Black pour TransparenceKey pour cacher la Form
    cette Form contient un composant Personalisé qui lui codé enC#
    Ce composant a un background =Transparent et contient 2 TextBox +Bouton et barre de menu qui sont dans un splitcontainer transparent 
    moi mon but c' est  de pouvoir déplacer la Form principal  avec le curseur soit à partir de  la zone du composant personnalisé vu qu'il rempli toute la Form

    l' évènement doit- il être crée dans le composant jcrois qu' il y a moyen de ciblé le parentForm
    ou dans la Form ? j' ai pas réussi
    voila ,merci  

    mon code mouse qui fonctionne su une Form normale
    Private mouseOffset As Point
    
        Private isMouseDown As Boolean = False
    
        Private Sub Ffichier_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles FileControl1.MouseDown
    
            Dim xOffset As Integer
    
            Dim yOffset As Integer
    
    
    
            If e.Button = MouseButtons.Left Then
    
                xOffset = -e.X - SystemInformation.FrameBorderSize.Width
    
                yOffset = -e.Y - SystemInformation.CaptionHeight - _
    
    
    
                        SystemInformation.FrameBorderSize.Height + 30
    
    
    
                mouseOffset = New Point(xOffset, yOffset)
    
                isMouseDown = True
    
            End If
    
        End Sub
    
    
    
        Private Sub Ffichier_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles FileControl1.MouseMove
    
            If isMouseDown Then
    
                Dim mousePos As Point = Control.MousePosition
    
                mousePos.Offset(mouseOffset.X, mouseOffset.Y)
    
                Location = mousePos
    
            End If
    
        End Sub
    
    
    
        Private Sub Ffichier_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles FileControl1.MouseUp  
    
    
    
            If e.Button = MouseButtons.Left Then
    
                isMouseDown = False
    
            End If
    
        End Sub
    
    #End Region
    • Modifié Dragonix vendredi 8 mai 2009 17:13
    mercredi 6 mai 2009 20:46

Réponses

  • Bonjour,

    en fait ça fonctionne pas lorsqu' on crée l' évenement sur le ControlPerso lui-même ,donc je l' ai fait sur un Panel tranparent que j' ai rajouté sur la Form principal par dessus mon ControlPerso dans une zone transparente et la ca fonctionne très bien, c pas totalement ce que je voulais faire mais c fonctionnel

    ++++++
    Lenilam
    ++++++

    vendredi 8 mai 2009 17:12