Déplacer sa "form" (fenêtre)

[mars073]

<p>Bonjour,<br/>
Je vais vous expliquez comment déplacer votre fenêtre avec un outil ou avec la fenêtre elle même, utile quand vous voulez faire un fenêtre personnalisé.<br/><br/>
fichiers KDO:<br/>
-le bouton Réduire:<img alt="ui-panel-hidebutton-down--25cb274.png" src="<base_url>/applications/sslimageproxy/interface/image.php?url=http://img60.xooimage.com/files/9/7/2/ui-panel-hidebutton-down--25cb274.png"/><br/>
-le bouton Niveau inférieur:<img alt="ui-chaticon-maximize-up--25cb4a5.png" src="<base_url>/applications/sslimageproxy/interface/image.php?url=http://img54.xooimage.com/files/1/a/3/ui-chaticon-maximize-up--25cb4a5.png"/><br/>
-le bouton Niveau supérieur:<img alt="agrandir--25cb452.png" src="<base_url>/applications/sslimageproxy/interface/image.php?url=http://img51.xooimage.com/files/3/3/3/agrandir--25cb452.png"/><br/>
-le bouton Fermer: <img alt="fermer--25cb524.png" src="<base_url>/applications/sslimageproxy/interface/image.php?url=http://img62.xooimage.com/files/2/e/3/fermer--25cb524.png"/><br/>
-une mini-image de fond =p: <img alt="ui-moneyframe2--25cb608.png" src="<base_url>/applications/sslimageproxy/interface/image.php?url=http://img60.xooimage.com/files/1/7/4/ui-moneyframe2--25cb608.png"/><br/><br/>
1.Ouvrez Visual Basic, puis faites un double-clique sur l'objet ou la forme qui servira à faire bouger la fenêtre...<br/><br/>
3.normalement vous aurez ceci (load) un peut haut dessus a droite:<br/><img alt="load-vb-2498ae1.jpg" src="<base_url>/applications/sslimageproxy/interface/image.php?url=http://img50.xooimage.com/files/0/7/6/load-vb-2498ae1.jpg"/><br/>
modifier le en "MouseDown", ce qui va créer un deuxième code supprimez le premier (load).<br/><br/>
4.Mettez le code suivant après "Public Class [nom_de_la_form]":</p>
<pre class="ipsCode prettyprint lang-auto">
Private Declare Function ReleaseCapture Lib "user32" () As Integer
Private Const HTCAPTION As Integer = 2
Private Const WM_NCLBUTTONDOWN As Integer = &HA1S
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByRef lParam As Integer) As Integer</pre>
<p>5.De retour au code "mousedown", vous mettez le code suivant dedans:</p>
<pre class="ipsCode prettyprint lang-auto">
If e.Button = Windows.Forms.MouseButtons.Left Then
ReleaseCapture()
SendMessage(Me.Handle.ToInt32, WM_NCLBUTTONDOWN, HTCAPTION, 0)</pre>
<p>Ps:Quelques code:<br/>
-Pour fermer la fenêtre:</p>
<pre class="ipsCode prettyprint lang-auto">
Me.close</pre>
<p>ou l'application compléte:</p>
<pre class="ipsCode prettyprint lang-auto">
End</pre>
<p>-Pour réduire(attention! le code peut bugé et faire réduire mais hors de la barre de tâche):</p>
<pre class="ipsCode prettyprint lang-auto">
Me.WindowState = FormWindowState.Minimized</pre>
<p>-Pour mettre au niveau inférieur:</p>
<pre class="ipsCode prettyprint lang-auto">
Me.WindowState = FormWindowState.Normal</pre>
<p>-Pour le niveau supérieure:</p>
<pre class="ipsCode prettyprint lang-auto">
Me.WindowState = FormWindowState.Maximized</pre>
<p>Conseil:<br/>
-Si vous mettez une image de fond mettez une couleur de fond puis ajoutez la comme couleur de transparence dans les paramètres de la form<br/><br/>
Bonne programmation à tous!<br/>
Cordialement,<br/>
Mars073</p>

[Azad]

<p>Merci du partage. <br/><br/>
+1 Rep.</p>