Je voudrais bouger ma form sans le 2

Marsh Posté le 19-10-2002 à 01:15:28

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

Marsh Posté le 19-10-2002 à 01:15:28

Marsh Posté le 19-10-2002 à 12:46:43

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).

Marsh Posté le 19-10-2002 à 16:50:16

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

Marsh Posté le 19-10-2002 à 19:09:11

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 .

Marsh Posté le 21-10-2002 à 15:33:50

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

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *

Je voudrais bouger ma form sans le 2 - sizable

Sujets relatifs:

Leave a Replay