Probleme Forms [VB.net] - VB/VBA/VBS - Programmation
Marsh Posté le 22-04-2006 à 13:32:11
Bonjour,
j'ai des remarques à faire, avant d'essayer de me creuser la tête pour ton problème :
On ne doit pas créer un nouveau topic, sous prétexte qu'on n'a pas eu les réponses qu'on souhaitait au premier topic, à même pas un jour d'intervalle.
Si ce premier topic n'a pas du tout de réponse, on peut s'interroger sur la qualité de rédaction du premier post : en l'occurence, il était mal rédigé : pas de problème d'ortho, mais purée, le minimum, c'est la ponctuation (majuscule, deux-points...). En plus, on est dans une catégorie de programmation : tu dois quand même savoir comment ça marche les balises, nan ? Donc tu mets ton code dans les balises qu'il faut, et tu fais un copier/coller de ton code : c'est plus lisible avec la syntaxe du logiciel (ex. : frmblabla2.opacity=1 devient frmblabla2.Opacity = 1).
En voyant le titre de ton topic, dans le bénéfice du doute, on se dit que t'as dû tout expliquer depuis le début, avec morceaux de code bien encadrés, toussa... Ben nan, même pas
C'est le genre de détails qui me paraissent évidents quand on veut se faire entendre, pour obtenir de l'aide...
Marsh Posté le 22-04-2006 à 13:43:28
Pour en revenir à ton problème, je pense que tu t'emmèles les pédales avec la création de tes formes.
En fait, tu dois mettre l'opacité à 1 à form1 et non pas à frmblabla2.
Marsh Posté le 22-04-2006 à 13:53:37
Pour ta gouverne, c'est parceque le premier topic était mal rédigé que j'en ai fait un autre.
Pour le code le voici :
'Form2
Private Sub btn1_Click
Dim frmblabla As New Form1
frmblabla.Opacity = 1
Me.Close()
End Sub
'form1
private sub btn_click
Dim frmblabla2 As New form2
Me.Opacity() = 0.1
frmblabla2.ShowDialog() 'Affiche un form2
end sub
Marsh Posté le 22-04-2006 à 15:18:31
Splinter_7 a écrit : Pour ta gouverne, c'est parceque le premier topic était mal rédigé que j'en ai fait un autre. |
bonjour,
si un topic ne te plait pas, tu as la possibilité de le supprimer tu sais
Marsh Posté le 22-04-2006 à 12:37:48
Voila, j'ai 2 forms, form1 et form2.
'Ici form1
private sub form_load
dim frmblabla as new form2
form1.opacity=0.1
frmblabla.show
end sub
'Ici Form2
private sub btn_click
dim frmblabla2 as new form2
frmblabla2.opacity=1
Me.close
end sub
Le form1 a bien une opacité de 10% mais ensuite il ne recupère pas son opacité de 100% lorsque je click sur btn.