Positions de 2 Forms

Bonjour, je cherche à superposer 2 formulaires pour jouer sur la transparence de celui qui est au premier plan. Je n'ai pas compris comment ouvrir 2 formulaires ensemble (peut-être ne suis-je pas tombé sur le bon tutoriel). J'utilise Visual Basic 2010 Express. J'ai finalement abouti au code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Public Class Form1   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.SetDesktopLocation(50, 200) Me.Size = New Size(600, 500) Me.MaximizeBox = False Me.MinimizeBox = False Me.TransparencyKey = Color.White Form2.SetDesktopLocation(50, 500) Form2.Size = New Size(600, 500) Form2.Show() End Sub

---

A chaque exécution la position du 2ème formulaire est différente !!!

D'où mes questions :
Pourquoi ce positionnement fluctuant ?
Comment ouvrir proprement les 2 formulaires ?
Peut-on mettre le code de l'application ailleurs que dans Form1.vb et démarrer sur ce code ?

Merci d'avance

Bonjour,

Quelques avis très personnels :

1. Par définition, l'application démarre sur *un* formulaire. Ce n'est pas incontournable, mais ça explique les difficultés à avoir un 2e formulaire ouvert au démarrage.

2. Jongler avec la définition de form2 alors que form1 n'est pas encore chargé (évènement form_load) c'est comme vouloir faire des statistiques électorales alors que le 2e candidat n'est pas encore connu... Le résultat est aléatoire.

3. Form2 étant quantiquement indéfini au moment de form1_load, il serait judicieux de placer une variable dans la classe form2 qui donnerait cette information. Genre :

Code:

---

1 2 3 4 5 6 7

Public Class Form2 Public form2loaded As Boolean = False   Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load form2loaded = True End Sub End Class

---

On accède à cette information ainsi dans form1 :

Code:

---

1 2 3

If Form2.form2loaded = True Then ' (...) End If

---

4. Dans le raisonnement : on cherche à positionner la form2 en fonction de la position de form1; pourquoi ne pas utiliser l'évènement Form1_LocationChanged plutôt que Form1_Load ?

5. Enfin, un panel transparent ne donnerait-il pas le même effet qu'une 2e form transparente, avec une gestion infiniment plus simple ?

par défaut le StartPosition du form est défini sur "windows gère"
il faut dire que c'est toi qui t'en occupe, et là le .location sera pris en compte

http://msdn.microsoft.com/fr-fr/libr...tposition.aspx

Citation:

---

Manual La position du formulaire est déterminée par la propriété Location.
CenterScreen Le formulaire est centré dans l'affichage actuel et possède les dimensions spécifiées dans la taille du formulaire.
WindowsDefaultLocation Le formulaire est situé à l'emplacement par défaut de Windows et possède les dimensions spécifiées dans la taille du formulaire.
WindowsDefaultBounds Le formulaire est situé à l'emplacement par défaut de Windows et possède les limites déterminées par défaut par Windows.
CenterParent Le formulaire est centré dans les limites de son formulaire parent.

---

Merci de m'avoir répondu rapidement,même si vos explications ne m'ont pas permis d'y voir plus clair. Je vais expliquer ce que j'ai compris de VB 2010 Express pour déterminer où ça coince.
Je démarre un projet du type Application Windows Forms. Du code est mis en place : Form1.vb. Par ce code la classe Form1 (un modèle) est créée ainsi qu'une instance Form1 de cette classe (un objet correspondant au modèle), puis affichée. Ce code s'exécute automatiquement par le paramétrage de Form1 comme formulaire de démarrage. D'où le code (visible) :

Code:

---

1 2 3 4 5

Public Class Form1   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class

---

Je me place dans ce code pour y mettre mes propres paramètres :

Code:

---

1 2 3 4 5 6 7 8 9 10

Public Class Form1   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.SetDesktopLocation(50, 200) Me.Size = New Size(600, 500) Me.MaximizeBox = False Me.MinimizeBox = False Me.TransparencyKey = Color.White End Sub End Class

---

J'intègre ensuite d'autres procédures :

Code:

---

1 2 3 4 5 6 7 8 9 10

Public Class Form1   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ... End Sub Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint ... End Sub ... End Class

---

Je suis ensuite allé dans Projet - Ajouter un nouvel élément - Windows Form pour créer le second formulaire Form2.
A partir de là rien ne va plus.
En suivant la proposition de Franticfranz j'ai modifié mon code comme suit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Public Class Form2   Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ... End Sub End Class Public Class Form1   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ... End Sub

---

j'obtiens le message d'erreur suivant :
"class 'Form2' et class 'Form2' partiel déclarés dans 'C:\ ...\Form2.Designer.vb sont en conflit dans namespace 'WindowsApplication1' mais sont fusionnés, car l'un d'eux est déclaré partiel' (ouf)
Est-ce dû au fait que j'ai ajouté l'élément Form2

Quant à la position de Form2 par rapport à Form1 je verrai ensuite quand ils auront été correctement mis en place.

Franticfranz, peux-tu m'en dire un peu plus sur les panel ?
Merci

La superposition du formulaire transparent a quel objectif ? superposer des contrôles ?

EDIT: Mon message précédent a été "downvoted", il semble que je vous fourvoie. Il vaut mieux que je vous laisse entre les mains de quelqu'un qui saura mieux que moi vous guider. :ccool:

Citation:

---

Envoyé par horemheb

En suivant la proposition de Franticfranz

---

en même temps ce qu'il dit est faux et à côté de la question ...

Citation:

---

Envoyé par franticfranz

1. Par définition, l'application démarre sur *un* formulaire. Ce n'est pas incontournable, mais ça explique les difficultés à avoir un 2e formulaire ouvert au démarrage.

---

l'application peut démarrer sur zéro, un formulaire ou plusieurs, rien de compliqué là dedans.

Citation:

---

Envoyé par franticfranz

2. Jongler avec la définition de form2 alors que form1 n'est pas encore chargé (évènement form_load) c'est comme vouloir faire des statistiques électorales alors que le 2e candidat n'est pas encore connu... Le résultat est aléatoire.

---

faux aussi, ce n'est pas parce que le form n'est pas affiché qu'il n'est pas utilisable
sinon une instance d'une classe non graphique ne serait jamais utilisable ...

Citation:

---

Envoyé par franticfranz

3. Form2 étant quantiquement indéfini au moment de form1_load, il serait judicieux de placer une variable dans la classe form2 qui donnerait cette information.

---

là non plus je ne vois pas le rapport, quand on fait dim f as new form2 on peut faire ce qu'on veut dessus
et rien n'empeche de définir des propriétés qui seront utilisés lors de form2.load

Citation:

---

Envoyé par franticfranz

4. Dans le raisonnement : on cherche à positionner la form2 en fonction de la position de form1; pourquoi ne pas utiliser l'évènement Form1_LocationChanged plutôt que Form1_Load ?

---

une bonne idée ici
s'il faut que les forms soient toujours l'un sur l'autre, il faut gérer les events locationchanged sur les 2 form pour appliquer à l'autre

Citation:

---

Envoyé par franticfranz

5. Enfin, un panel transparent ne donnerait-il pas le même effet qu'une 2e form transparente, avec une gestion infiniment plus simple ?

---

pas sur, de toute facon la transparence en windows forms c'est pas ca ...

pour reprendre les questions de départ

Citation:

---

Envoyé par horemheb

Pourquoi ce positionnement fluctuant ?

---

voir ma 1ère réponse, une propriété à modifier

Citation:

---

Envoyé par horemheb

Comment ouvrir proprement les 2 formulaires ?

---

comme tu veux, il y a plusieurs possibilités

Citation:

---

Envoyé par horemheb

Peut-on mettre le code de l'application ailleurs que dans Form1.vb et démarrer sur ce code ?

---

une application .net démarre sur une sub, la sub main
dans les propriétés du projet, ca demande le formulaire de démarrage (form1 par défaut)
visual studio écrit donc une sub main cachée qui créé la form1, en gros :

Code:

---

1 2 3 4

sub main dim f as new form1 application.run(f) end sub

---

tu peux repasser en mode sub main, tu devras alors écrire une sub main quelque part (soit dans un module, soit en shared sub dans une classe, et il démarrera là)
après sur un projet on peut aussi définir le mode de fermeture (à la fermeture de la fenêtre de démarrage ou à la fermeture de la dernière fenetre existante)

donc soit tu créés 2 form dans le sub main, soit tu créés une 2ème form dans la 1ère form (comme tu tentes actuellement), l'effet sera le même

Pol63 j'essaie de mettre en application tes remarques. Pour cela j'ai redémarré un nouveau projet. J'ai ajouté un élément Module1 dans lequel j'ai tapé ce qui suit :

Code:

---

1 2 3 4 5 6 7 8

Module Module1 Sub main() Dim Fenetre1 As New Form1 Dim Fenetre2 As New Form2 Application.Run(Fenetre1) End Sub   End Module

---

J'ai donc défini 2 forms
Dans le code de la fenêtre 1 (Form1.vb) j'ai ajouté le code qui suit :

Code:

---

1 2 3 4 5 6 7 8

Public Class Form1   Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Me.SetDesktopLocation(50, 200) Me.Size = New Size(600, 500) Me.Text = "Fenêtre 1" End Sub End Class

---

J'ai ensuite ajouté un nouvel élément Windows Form (Form2.vb) dans lequel j'ai ajouté le code :

Code:

---

1 2 3 4 5 6 7 8

Public Class Form2 Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Me.SetDesktopLocation(100, 400) Me.Size = New Size(600, 500) Me.Text = "Fenêtre 2" End Sub   End Class

---

Parenthèse concernant le placement : SetDesktopLocation est bien l'équivalent de la propriété Location ??
Je n'ai pas mis la même position pour l'instant pour m'assurer de leur présence.

Pour l'instant seule la fenêtre 1 est affichée. Suis-je sur la bonne voie ?

Pour afficher aussi la fenêtre 2 je suppose que le Form2_Load du code de la fenêtre 2 ne suffit pas, puis-je le faire figurer (suivant quelle syntaxe?) dans le code du Module1 à la suite de Application.Run(Fenetre1) et continuer à développer mon application dans ce module ?
De nouveau Merci

Voici le code de SetDesktopLocation via décompilation (le framework .net est en grande partie codé en .net)

Code:

---

1 2 3 4

Public Sub SetDesktopLocation(ByVal x As Integer, ByVal y As Integer) Dim workingArea As Rectangle = SystemInformation.WorkingArea Me.Location = New Point(workingArea.X + x, workingArea.Y + y) End Sub

---

donc ca ressemble oui, ca semble prendre en compte le cas ou l'écran ne commence pas au pixel 0 :aie:

l'évènement load est déclenché après le new
ce n'est pas ca qui fait que le form s'affiche
il y a 3 méthodes pour afficher un form
application.run(leform)
leform.show
leform.showdialog

show affiche le form
showdialog affiche le form en modale
application.run démarre une écoute de la boucle de message windows et fait .show
l'application.run fonctionne un peu comme le showdialog, tant que la fenetre n'est pas fermée l'exécution du code n'avance pas dans la sub

donc tu dois pouvoir faire

Code:

---

1 2 3 4

Dim Fenetre1 As New Form1 Dim Fenetre2 As New Form2 Fenetre2.Show Application.Run(Fenetre1)

---

sinon tu peux essayer wpf au lieu de windows forms (à partir de vs2008)
on peut faire beaucoup de choses graphiques plus simplement, la transparence est bien gérée, et là le panel transparent par dessous tous les autres controles ca fonctionnera

Citation:

---

Envoyé par Pol63

en même temps ce qu'il dit est faux et à côté de la question ...

---

Dont acte.

Citation:

---

Envoyé par Pol63

l'application peut démarrer sur zéro, un formulaire ou plusieurs, rien de compliqué là dedans.

---

L'application peut démarrer avec 1.000 formulaires. Rien de compliqué non plus, juste une simple boucle. Pour autant, le principe d'une application Windows est d'accueillir l'utilisateur avec *un* formulaire. VB.NET a été organisé dans ce sens : Ce n'est certainement pas par hasard si dans les propriétés du projet il est nécessaire et suffisant de définir *le* formulaire de démarrage. Avoir un 2e formulaire au démarrage tient de la bidouille, c'est tout ce que je me suis permis d'écrire.

Citation:

---

faux aussi, ce n'est pas parce que le form n'est pas affiché qu'il n'est pas utilisable
sinon une instance d'une classe non graphique ne serait jamais utilisable ...

---

Je ne dis pas qu'il n'est pas utilisable, je dis que le chargement d'un formulaire n'est pas le bon moment pour s'occuper de la définition d'un autre formulaire.

Citation:

---

là non plus je ne vois pas le rapport, quand on fait dim f as new form2 on peut faire ce qu'on veut dessus
et rien n'empeche de définir des propriétés qui seront utilisés lors de form2.load

---

Avec VB.NET on fini toujours par faire ce qu'on veut, mais bon... un "dim f as new form2" dans un "form_load", je ne permettrai jamais de le conseiller à personne, c'est la pire des solutions. Et quand on en arrive là c'est souvent qu'on a pas beaucoup réfléchi.

Citation:

---

pas sur, de toute facon la transparence en windows forms c'est pas ca ...

---

Entièrement d'accord.

Depuis que j'ai essayé de porter une application via "mono", j'essaye d'être beaucoup plus rigoureux dans la méthode que j'emploie pour arriver à un résultat sur VB.NET. J'essaye d'en faire autant avec mes conseils. Désolé s'il y a quelques erreurs parfois.

Citation:

---

Envoyé par franticfranz

Dont acte.

---

je ne suis pas un expert du "dont acte"
mais le cas échant il faut pas le prendre mal, on dit tous des conneries un jour ou l'autre ^^

Citation:

---

Envoyé par franticfranz

Le principe d'une application Windows est d'accueillir l'utilisateur avec *un* formulaire. VB.NET a été organisé dans ce sens : Ce n'est certainement pas par hasard si dans les propriétés du projet il est nécessaire et suffisant de définir *le* formulaire de démarrage. Avoir un 2e formulaire au démarrage tient de la bidouille, c'est tout ce que je me suis permis d'écrire.

---

pas trop d'accord, visual studio est taillé pour aller dans le sens de ce qui est courament utilisé, il existaient de nombreuses applis à plusieurs fenêtre dès le démarrage
je ne vois pas en quoi c'est de la bidouille d'avoir 2 forms au démarrage (tel l'éditeur vb6 qui pouvait être en mode sdi)

Citation:

---

Envoyé par franticfranz

...

---

un débutant doit débuter, et ne peut pas tout assimiler d'un coup, donc mettre un new form dans un form_load ne sera pas plus choquant que le reste de son code, si tant est que celà puisse être choquant (enfin moi je le mettrais plus dans le new, je suis pas très form load vu qu'en plus il est buggé en x64/aspiration des exceptions)[/QUOTE]

Citation:

---

Envoyé par Pol63

je ne suis pas un expert du "dont acte"
mais le cas échant il faut pas le prendre mal, on dit tous des conneries un jour ou l'autre ^^

---

Moi plus que d'autres (dire des conneries). Si je le prenais mal à chaque fois je me ferais un ulcère en moins d'une semaine... Mais quand je me trompe j'aime comprendre pourquoi.

Citation:

---

je ne vois pas en quoi c'est de la bidouille d'avoir 2 forms au démarrage (tel l'éditeur vb6 qui pouvait être en mode sdi)

---

Jusqu'à ce qu'on m'en démontre la nécessité dans une application, je pars toujours du principe qu'on peut faire autrement. Surtout quand on veut les superposer... Sur ce, j'arrête le hors-sujet, horemheb attend de l'aide.

Bonjour,

Je me permet une remarque

Est-ce que l'évènement Shown ne suffirait pas ? (n'oubliez pas le n à la fin)

Tiré de MSDN

Citation:

---

Notes
L'événement Shown est déclenché uniquement la première fois qu'un formulaire est affiché

---

Form.Shown, évènement

Fonctionne bien chez moi, et testé avec des positionnements qui sont toujours identique. (j'ai juste un petit clignotement de Form2)

Ce qui donnerait tout simpement (code sans les positionnements)

Code:

---

1 2 3 4 5 6 7 8

Public Class Form1 Dim f2 As Form2 = New Form2   ' se produit lorsque le formulaire est affiché la première fois. Private Sub Form1_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown Form2.Show() End Sub End Class

---

Ce qui reste simple

Effectivement la proposition de rv26t fonctionne et marche aussi bien avec Form1_load que avec Form1_shown. Quelle est la différence ? dois-je m'attendre à des problèmes plus tard ?

De l'obscurité (vu l'heure tardive) nait la lumière.

Encore Merci et à bientôt pour d'autres questions. :P