- Visual Basic / VB.NET : Deplacer un formulaire sans barre de titre - CodeS SourceS
- Visual Basic / VB.NET : Déplacer un formulaire sans barre de titre - CodeS SourceS
- Deplacer une feuille sans barre de titre ou un objet, reduire agrandir une feuille avec mouse_move
- Visual Basic / VB.NET : Déplacement de feuilles sans barre de titre avec un modul - CodeS Sou
- Javascript : Fenêtre sans barre de titre - CodeS SourceS
1 mars 2009 à 14:38
22 janv. 2008 à 23:55
22 janv. 2008 à 23:40
20 janv. 2008 à 09:15
néanmoins, j'y décèle quelques indélicatesses.
ValRetourLng n'est pas déclaré (pas d'utilisation de l'Option Explicit ?)
ValRetourLng ne sert de toutes facon a rien puisqu'il n'est ni testé, ni renvoyé
MoveForm est une fonction de type Variant (pas de type définit)... et qui ne renvoie rien...
tu transmets à un parametre d'API définit en ByRef As Any la valeur 0& ... donnes lui plutot ByVal 0& si tu ne veux pas crasher un jour ou l'autre ton application.
tu demandes le MoveForm dans le _Load ????
pourquoi ne pas utiliser l'evenemtn adéquat (MouseDown, par exemple)
je n'ai pas compris pourquoi tu as posté...
je sais que tu n'as fait que remanier le code de Nix, qui n''est pas terrible, terrible, mais le poids des années est là !
19 janv. 2008 à 22:44
Private Declare Function SendMessageA Lib "User32" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "User32"()
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Function MoveForm(Who As Form)
Call ReleaseCapture
ValRetourLng = SendMessageA(Who.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End Sub
'Dans une Form
Private sub Form_Load()
MoveForm Me
End Sub