Je voudrais bouger ma form sans le 2 - sizable

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Je voudrais bouger ma form sans le 2 - sizable

Spiritu4L

lut , j'aimerais pouvoir bouger ma form sans avoir a mettre la barre 2 - sizable de Vb . Auriez vous le code à inserer svp ?

Publicité

Carbon_14

La déplacer ou l'agrandir ?
Sizable ne concerne que la possibilité pour l'utilisateur de prendre un bord de feuille et de tirer dessus. Une feuille non sizable, on peut la déplacer comme on veut (faut "prendre" la barre de titre avec curseur souris).

Spiritu4L

ué mé pouvoir la bouger en ayant retirer la barre de titre c'est possible ?

Carbon_14

Normalement oui, en codant... En bougeant avec souris ou par choix du développeur.

Y a une API qui permet de fixer la position d'une feuille SetWindowPos(). Ca peut accompagner le mouvement de la souris (si bouton appuyé) ou être géré soft (genre qui fuit devant le curseur :lol: ).

Je code en C, donc VB3, vieux souvenir .

karlkox

Vi, avec les API, c'est tres simple :

Code :

Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_NCLBUTTONDOWN = &HA1
Const HT_CAPTION = 2
Private Sub MoveWindow(Byval m_hWnd as long)
ReleaseCapture
call SendMessage(m_hWnd , WM_NCLBUTTONDOWN, HT_CAPTION, 0)
End Sub
' Dans ta form, ca s'utilise comme ca :
Private Sub Form1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MoveWindow(me.hwnd)
End Sub

Message édité par karlkox le 21-10-2002 à 15:34:04

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Je voudrais bouger ma form sans le 2 - sizable

Sujets relatifs
Post d'un form côté serveur	[HTML]Form désactiver la touche entrée ?
[VB] Question Bete, plusieurs occurances de la form	Selectionner un item d'une liste d'une form [Resolu]
attribut value sur champ file dans un form HTML	[DELPHI]Comment avoir un event KeyDown sans etre dans une form
multipart/form-data et Mozilla	Comment mettre une form en always on top...
VB.NET : comment manipuler les Form Child ?	Faire bouger une form en delphi
Plus de sujets relatifs à : Je voudrais bouger ma form sans le 2 - sizable

Page générée en 0.048 secondes