cs_andrebernard
Messages postés404Date d'inscriptionlundi 9 juin 2003StatutMembreDernière intervention 4 septembre 2013
-
19 nov. 2007 à 12:53
cs_andrebernard
Messages postés404Date d'inscriptionlundi 9 juin 2003StatutMembreDernière intervention 4 septembre 2013
-
19 nov. 2007 à 17:51
Bonjour
Je viens de creer une form MDI dans laquelle j'ai 2 form filles.
J'ai rajouté une fonction de drag and drop pour pouvoir déplacer mon textbox apres le lancement du programme.
ça marche bien mais je n'arrive pas à faire passer le controle sur l'autre form , elle s'arrette à la bordure de celle ou elle a été créé.
Est ce quelqu'un connait un moyen de passer de l'autre coté.
dsaunier
Messages postés12Date d'inscriptionmercredi 5 février 2003StatutMembreDernière intervention25 novembre 2007 19 nov. 2007 à 14:31
Bonjour,
c'est un peu bizarre comme idée mais comme quoi rien n'est impossible tu trouveras ds le fichier une maniere de realiser ce que tu veux (utilisation d'api windows). De façon théorique, ton pb se pose comme: comment changer le parent d'un controle?
Dans un module de code:
'Recup de http://vbcity.com/forums/faq.asp?fid=9&cat=Common+Controls
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Public Declare Function GetFocus Lib "user32" () As Long
Public hWndText As Long
Public bForm1 As Long
Public Sub Main()
Form1.Show
Form1.Text1.SetFocus
hWndText = GetFocus() ' handle de la text box
bForm1 = True 'le textbox est sur la form 1
End Sub
Public Sub MouseMove(ByRef aCtrl As Control, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim g As Long
If Button = 1 Then
If bForm1 Then
'est-ce que le controle est au bord gauche de form1
If aCtrl.Left + (X - CurX) > 0 And aCtrl.Top + (Y - CurY) > 0 Then
cs_andrebernard
Messages postés404Date d'inscriptionlundi 9 juin 2003StatutMembreDernière intervention 4 septembre 20131 19 nov. 2007 à 13:07
En fait j'ai meme pas besoin qu'il soit recréé sur la form2 , mais juste qu'on le vois sur la form2 tant qu'on tiens le bouton de souris appuyé.Alors que pour l'instant il disparait.
Juste qu'il depasse les limites de la form1 ou il a été créé