Etienne BAUDOUX

Forum sur les projets de Etienne BAUDOUX


Astuce : Rendre temporairement opaque vos fenêtres lors de leurs déplacements

Partagez
avatar
Blackorion35
Je suis là tous les jours
Je suis là tous les jours

Masculin Nombre de messages : 2558
Age : 26
Localisation : Rouen
Emploi/loisirs : Dirigeant société informatique déclaré/Informaticien au CNED
Humeur : En forme !
Date d'inscription : 19/03/2013

Astuce : Rendre temporairement opaque vos fenêtres lors de leurs déplacements

Message par Blackorion35 le Lun 5 Aoû 2013 - 16:39

Bonjour,

Mini astuce aujourd'hui pour un bel effet lors du déplacement de vos fenêtres !

Objectif : Rendre un peut transparent une fenêtre sans bordure lorsque vous la déplacez en maintenant le clique gauche de votre souris.

Etape 1 : Créer un nouveau projet et une nouvelle fenêtre.

Etape 2 : Mettez là sans bordure.

Etape 3 : Ajouter le code suivant dans la fonction de base (API) de celle-ci en code VB.NET : 


Code:
  Private IsFormBeingDragged As Boolean = False 'Custom code by Gipse pour SZ repris legalement par Mantrix (AlgoStep).
    Private MouseDownX As Integer
    Private MouseDownY As Integer


Ensuite placer un panel en haut de la fenetre et créer les fonctions suivantes lié à ce panel : 

- MouseDown
- MouseUp
- MouseMove

Dans MouseDown, ajouter un code VB.NET : 


Code:
 If e.Button = System.Windows.Forms.MouseButtons.Left Then
            IsFormBeingDragged = True
            MouseDownX = e.X
            MouseDownY = e.Y
        End If

Dans MouseMove, ajouter un code VB.NET : 


Code:
 If IsFormBeingDragged Then
            Dim temp As Drawing.Point = New Drawing.Point()
            temp.X = Me.Location.X + (e.X - MouseDownX)
            temp.Y = Me.Location.Y + (e.Y - MouseDownY)
            Me.Location = temp
            temp = Nothing
            Me.Opacity = 0.5R
        End If

Dans MouseUp, ajouter un code VB.NET : 


Code:
 If e.Button = System.Windows.Forms.MouseButtons.Left Then
            IsFormBeingDragged = False
            Me.Opacity = 1

        End If

Vous aurez remarquer l'ajout simple de Me.Opacity = 0.5R qui va rendre légèrement transparente votre fenêtre et Me.Opacity = 1 qui la remettra normal après le relâchement du clique gauche Smile 

Testé et fonctionnel avec Visual Studio 2010 VB.NET.
Testé avec SZ2012 mais peut bugé. Et ne fonctionne pas si la fenêtre est dans une MDI...

A vous de modifier 0.5R pour l'adapter à votre besoin (le mieux perso c'est 90% Wink )

Voilà Wink J’espère que l'effet rendra bien :p



Le site officiel de notre société : http://algostep-company.fr
Notre WebOS "Rynna" en développement : http://rynnawebos.fr/login
Le WebOS "Zator" conçu pour le forum et ses membres dispo en test ici :
http://algostep-company.fr/WebOS-Zator-Test1/
---------------------------------------------------------
avatar
Jeremy60800

Gagnant or au concours SZ2014
Gagnant or au concours SZ2014

Masculin Nombre de messages : 918
Age : 16
Emploi/loisirs : Programmation avec SZ / Modding Minecraft / Youtubeur
Humeur : Cool !
Date d'inscription : 08/08/2013

Re: Astuce : Rendre temporairement opaque vos fenêtres lors de leurs déplacements

Message par Jeremy60800 le Mar 13 Aoû 2013 - 19:18

Salut

Merci pour cette astuce !
Cela m'a bien aider !

JEREMY60800



Arrow Venez voir mon site : InformatiqueBlog™
Arrow InformatiqueBlog™ Minecraft : InformatiqueBlog™ - Minecraft
@ Mon contact "pro" : informatiqueblog@gmx.fr
@ Mon twitter : @jeremy60800  / Twitter
@ Twitter d'InformatiqueBlog™ : @InformatiqueDev / Twitter
Idea Mes logiciels : TexteNote , VerifWindowsMineServ Creator

    La date/heure actuelle est Dim 20 Aoû 2017 - 15:29