Bonjour à tous
Est il possible avec VB6 d'utiliser un controle dans une form, qui se situe sur une autre form ????
Merci et bonne journée
Bonjour à tous
Est il possible avec VB6 d'utiliser un controle dans une form, qui se situe sur une autre form ????
Merci et bonne journée
Oui
Il suffit de mettre le nom du Form, suivit du nom du composant, suivit de la propriété du dit composant.
depuis un Form2 cela donneraitla condition impérative, le form ou ce trouve le composant doit être chargé, pas forcement visible).
Code : Sélectionner tout - Visualiser dans une fenêtre à part Form1.TextBox1.Text = "coucou"
Merci ProgElecT de ta reponse.
Mais j'ai du mal m'exprimer
J'ai un frame dans une form2, et je voudrais le copier ou bien le passer dynamiquement dans la form1, pour pouvoir l'utiliser comme si il avait été dans la form1 du depart![]()
Pour le fun, reste à savoir si cela te sera utile.
2 Forms
Sur Form1, 3 Command Buttons.
Sur Form2, 1 Frame avec un Label dans ce Frame.
La grandeur des Forms et les quelques paramètres de placement et initialisations des composants sont inclus dans le code.
Code Form1 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35 Option Explicit Private Declare Function SetParent Lib "User32" ( _ ByVal hWndChild As Long, _ ByVal hWndNewParent As Long) As Long Private Sub Form_Load() Command1.Caption = "1° Recuperer Frame1 de Form2" Command1.Move 105, 105, 2280, 450 Command2.Caption = "Changer la couleur de Frame1" Command2.Move 2490, 105, 2055, 450 Command3.Caption = "Decharger Form2" Command3.Move 4665, 105, 1530, 450 Me.Height = 3840: Me.Width = 6555 Load Form2 End Sub Private Sub Command1_Click() SetParent Form2.Frame1.hWnd, Me.hWnd Form2.Frame1.Move 60, 855 Form2.Label1.Move 195, 255, 2115, 495 Form2.Label1.Caption = "Maintenant dans Form1 " _ & "mais appartient toujours à Form2" End Sub Private Sub Command2_Click() Form2.Frame1.BackColor = &HC0FFC0 End Sub Private Sub Command3_Click() Unload Form2 MsgBox "Frame1 disparait ..." End Sub Private Sub Form_Unload(Cancel As Integer) On Error Resume Next Unload Form2 End SubDonc cela n'est pas une copie mais un déplacement, de Form2 vers Form1.
Code Form2 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Option Explicit Private Sub Form_Load() Frame1.Move 720, 405, 3255, 2325 Label1.Move 195, 255, 1545, 145 Label1.Caption = "Au depart dans Form2" End Sub
Frame1 et le composant Label1 appartenant toujours à Form2, dans le code de Form1, pour agir sur le Frame et/ou sur le/les composants qu'il contient, il faux donc invoquer Form2.Composant.Propriété ou Méthode = ....
Mille millions de merci ProgElect !!!
Excuse moi de ne pas avoir repondu plus tot, mais je croyais que c'etait impossible, et comme un bouricot, j'ai du oublier de mettre la notification par email
Heureusement que je suis repassé par la par hasard, en classant mes raccourcis, autrement j'aurais pas trouvé ce splendide code
Vraiment merci, tu me sauves la vie, je vais essayer de l'appliquer dans mon code...
Je te souhaite une excelente soirée![]()
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager