Sujet Précédent Sujet Suivant

DEPLACER UN FORMULAIRE SANS BARRE DE TITRE

The_Gregg - 3 déc. 2001 à 21:23
djgab21 Messages postés 66 Date d'inscription vendredi 15 juin 2007 Statut Membre Dernière intervention 19 mai 2011 - 1 mars 2009 à 14:38

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/74-deplacer-un-formulaire-sans-barre-de-titre

djgab21 Messages postés 66 Date d'inscription vendredi 15 juin 2007 Statut Membre Dernière intervention 19 mai 2011
1 mars 2009 à 14:38

Parfait ! C'est ce qu'il me fallait !

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
22 janv. 2008 à 23:55

ravi de l'entendre ^^

gloomy64 Messages postés 46 Date d'inscription lundi 18 octobre 2004 Statut Membre Dernière intervention 3 avril 2008
22 janv. 2008 à 23:40

Honnetement, j'avous que le code est très mauvais... et au départ c'étais pour un pote que je l'avais postée... qui la repris d'ailleurs... desolès, j'suis un peu surcharger ces temps et je fais un peu n'importe quoi, enfin Renfield, merci de pas etre trop mechant avec moi, de quand meme corriger mon code et j'promets de faire mieux la prochaine fois.

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
20 janv. 2008 à 09:15

c'est un code standard, Gloomy64
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à !

gloomy64 Messages postés 46 Date d'inscription lundi 18 octobre 2004 Statut Membre Dernière intervention 3 avril 2008
19 janv. 2008 à 22:44

'Dans un module

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

Nicoxs Messages postés 11 Date d'inscription mardi 25 octobre 2005 Statut Membre Dernière intervention 16 janvier 2007
16 janv. 2007 à 19:15

Surtout qu'il s'agit d'une source microsoft :) : http://support.microsoft.com/kb/173773/fr

Afyn Messages postés 608 Date d'inscription samedi 3 août 2002 Statut Membre Dernière intervention 22 décembre 2016
3 nov. 2003 à 16:11

J'ai vu que cette source était au Top des sources les mieux notées.
Je connais pas les critères de notation, mais j'ai vu des sources sur VB France qui mériteraient amplement un meilleur positionnement.

Faut donc relativiser (comme dirait mc²)

A+

Afyn

Norram Messages postés 8 Date d'inscription mercredi 25 juin 2003 Statut Membre Dernière intervention 8 octobre 2003
8 oct. 2003 à 10:51

salut
j'aimerais savoir si faut metre ça dans une form
ou ds un module??????

mais bon, c'est exactement ce ke je cherchait!!!!
merci
jen avait déja un exemplaire mais il y avait pleins d'erreurs mais cété pascomme sa !
merci
@+

tareumleretour Messages postés 38 Date d'inscription jeudi 27 juin 2002 Statut Membre Dernière intervention 22 mai 2005 1
16 mars 2003 à 20:44

Oui mais if button=2 comment on fait???

Kicolas Messages postés 2 Date d'inscription jeudi 31 octobre 2002 Statut Membre Dernière intervention 8 février 2005
23 nov. 2002 à 05:31

Super ! C'est exactement ce que je cherchais !!!

cs_stailer Messages postés 507 Date d'inscription jeudi 28 mars 2002 Statut Membre Dernière intervention 13 mai 2009 1
24 oct. 2002 à 01:17

Vala, c'est justement ce que je cherche. Merci.

bob3000 Messages postés 406 Date d'inscription mardi 7 mai 2002 Statut Membre Dernière intervention 2 octobre 2004
8 mai 2002 à 00:23

Super!!!

The_Gregg
3 déc. 2001 à 21:23

Merci, c'est utile ;)

Discussions similaires

Barre de recherche web

UserForm (formulaire) , aprés exécution impossible d'afficher la Civilité

Afficher une barre de progression pendant le traitement d'une macro excel

Formulaire de reservation

recherche dans base mysql

Votre réponse

Discussions similaires