Les fenêtres MDI fille [Résolu]

gollum57320 54 Messages postés lundi 29 mai 2006Date d'inscription 5 mai 2010 Dernière intervention - 8 juil. 2008 à 14:02 - Dernière réponse : gollum57320 54 Messages postés lundi 29 mai 2006Date d'inscription 5 mai 2010 Dernière intervention
- 8 juil. 2008 à 16:01
Re boujour à tous,

Suite a ma première question qui fût réglé rapidement je me heurte a un autre problème de taille, donc je vais vous montrer ma situation actuel :

     - le MDI parent de nom MainMDI   
          elle comporte les bouttons standart d'une MDI de VB2005.net + un boutton qui doit rajouter bonjour a la richtextbox    nommé    Editor  de la MDI fille activer

    - La MDI fille nommé MDIfille qui comporte la richtextbox nommé Editor

Pour m'aider je suis des cour sur un autre site : http://plasserre.developpez.com/v4-4.htm
mais le problème c'est que ca ne fonctionne pas

Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttom.Click
        Me.ActiveMdiChild.editor.text = " bonjour"
End Sub

Comme à mon habitude merci j'avance as tous ceux qui vont d'aidé sur ce problème
Afficher la suite 

Votre réponse

13 réponses

Meilleure réponse
gillardg 3288 Messages postés jeudi 3 avril 2008Date d'inscription 14 septembre 2014 Dernière intervention - 8 juil. 2008 à 15:55
3
Merci
Imports




System.Windows.Forms



Public








Class

MDIParent1



Private





Sub

ShowNewForm(


ByVal

sender


As





Object

,


ByVal

e


As

EventArgs)


Handles

NewToolStripMenuItem.Click, NewToolStripButton.Click, NewWindowToolStripMenuItem.Click



' Create a new instance of the child form.








Dim

ChildForm


As





New

Form1



' Make it a child of this MDI form before showing it.


ChildForm.MdiParent =





Me


m_ChildFormNumber += 1


ChildForm.Text =





"Window "

& m_ChildFormNumberChildForm.Show()



End





Sub








Private





Sub

OpenFile(


ByVal

sender


As





Object

,


ByVal

e


As

EventArgs)


Handles

OpenToolStripMenuItem.Click, OpenToolStripButton.Click



Dim

OpenFileDialog


As





New

OpenFileDialogOpenFileDialog.InitialDirectory =



My

.Computer.FileSystem.SpecialDirectories.MyDocumentsOpenFileDialog.Filter =



"Text Files (*.txt)|*.txt|All Files (*.*)|*.*"








If

(OpenFileDialog.ShowDialog(


Me

) = System.Windows.Forms.DialogResult.OK)


Then








Dim

FileName


As





String

= OpenFileDialog.FileName



' TODO: Add code here to open the file.








End





If








End





Sub








Private





Sub

SaveAsToolStripMenuItem_Click(


ByVal

sender


As





Object

,


ByVal

e


As

EventArgs)


Handles

SaveAsToolStripMenuItem.Click



Dim

SaveFileDialog


As





New

SaveFileDialogSaveFileDialog.InitialDirectory =



My

.Computer.FileSystem.SpecialDirectories.MyDocumentsSaveFileDialog.Filter =



"Text Files (*.txt)|*.txt|All Files (*.*)|*.*"








If

(SaveFileDialog.ShowDialog(


Me

) = System.Windows.Forms.DialogResult.OK)


Then








Dim

FileName


As





String

= SaveFileDialog.FileName



' TODO: Add code here to save the current contents of the form to a file.








End





If








End





Sub 










Private





Sub

ExitToolsStripMenuItem_Click(


ByVal

sender


As





Object

,


ByVal

e


As

EventArgs)


Handles

ExitToolStripMenuItem.Click



Me

.Close()



End





Sub








Private





Sub

CutToolStripMenuItem_Click(


ByVal

sender


As





Object

,


ByVal

e


As

EventArgs)


Handles

CutToolStripMenuItem.Click



' Use My.Computer.Clipboard to insert the selected text or images into the clipboard








End





Sub








Private





Sub

CopyToolStripMenuItem_Click(


ByVal

sender


As





Object

,


ByVal

e


As

EventArgs)


Handles

CopyToolStripMenuItem.Click



' Use My.Computer.Clipboard to insert the selected text or images into the clipboard








End





Sub








Private





Sub

PasteToolStripMenuItem_Click(


ByVal

sender


As





Object

,


ByVal

e


As

EventArgs)


Handles

PasteToolStripMenuItem.Click



'Use My.Computer.Clipboard.GetText() or My.Computer.Clipboard.GetData to retrieve information from the clipboard.








End





Sub








Private





Sub

ToolBarToolStripMenuItem_Click(


ByVal

sender


As





Object

,


ByVal

e


As

EventArgs)


Handles

ToolBarToolStripMenuItem.Click



Me

.ToolStrip.Visible =


Me

.ToolBarToolStripMenuItem.Checked



End





Sub








Private





Sub

StatusBarToolStripMenuItem_Click(


ByVal

sender


As





Object

,


ByVal

e


As

EventArgs)


Handles

StatusBarToolStripMenuItem.Click



Me

.StatusStrip.Visible =


Me

.StatusBarToolStripMenuItem.Checked



End





Sub








Private





Sub

CascadeToolStripMenuItem_Click(


ByVal

sender


As





Object

,


ByVal

e


As

EventArgs)


Handles

CascadeToolStripMenuItem.Click



Me

.LayoutMdi(MdiLayout.Cascade)



End





Sub








Private





Sub

TileVerticleToolStripMenuItem_Click(


ByVal

sender


As





Object

,


ByVal

e


As

EventArgs)


Handles

TileVerticalToolStripMenuItem.Click



Me

.LayoutMdi(MdiLayout.TileVertical)



End





Sub








Private





Sub

TileHorizontalToolStripMenuItem_Click(


ByVal

sender


As





Object

,


ByVal

e


As

EventArgs)


Handles

TileHorizontalToolStripMenuItem.Click



Me

.LayoutMdi(MdiLayout.TileHorizontal)



End





Sub








Private





Sub

ArrangeIconsToolStripMenuItem_Click(


ByVal

sender


As





Object

,


ByVal

e


As

EventArgs)


Handles

ArrangeIconsToolStripMenuItem.Click



Me

.LayoutMdi(MdiLayout.ArrangeIcons)



End





Sub








Private





Sub

CloseAllToolStripMenuItem_Click(


ByVal

sender


As





Object

,


ByVal

e


As

EventArgs)


Handles

CloseAllToolStripMenuItem.Click



' Close all child forms of the parent.








For





Each

ChildForm


As

Form


In





Me

.MdiChildrenChildForm.Close()



Next








End





Sub








Private

m_ChildFormNumber


As





Integer








Private





Sub

ToolStripButton1_Click(


ByVal

sender


As

System.Object,


ByVal

e


As

System.EventArgs)


Handles

ToolStripButton1.Click



Dim

childform


As

Form1 =


Me

.ActiveMdiChildchildform.Editor.Text =



" bonjour"








End





SubEnd







Class

Merci gillardg 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 94 internautes ce mois-ci

Commenter la réponse de gillardg
gillardg 3288 Messages postés jeudi 3 avril 2008Date d'inscription 14 septembre 2014 Dernière intervention - 8 juil. 2008 à 14:33
0
Merci
Me

.ShowNewForm(


Me

, e)ChildForm.editor.Text =



" bonjour"
Commenter la réponse de gillardg
gollum57320 54 Messages postés lundi 29 mai 2006Date d'inscription 5 mai 2010 Dernière intervention - 8 juil. 2008 à 14:40
0
Merci
Nan ca ne marche pas il ouvre juste une nouvelle MDIfille
Commenter la réponse de gollum57320
gillardg 3288 Messages postés jeudi 3 avril 2008Date d'inscription 14 septembre 2014 Dernière intervention - 8 juil. 2008 à 14:47
0
Merci
et sur la mdifille qui s'ouvre , est ce qu'il y a ton contrôle editor???
Commenter la réponse de gillardg
gollum57320 54 Messages postés lundi 29 mai 2006Date d'inscription 5 mai 2010 Dernière intervention - 8 juil. 2008 à 14:54
0
Merci
au niveau de la pas de problème chaque fenêtre MDIfille a son contrôle Editor mais il reste vide
Mais je crois avoir trouver  au est plus au moin le problème
d'après le site dont j'ai donner le Lien je doit mettre
Private Sub
Form1_MdiChildActivate..

   
MDIFilleActive=Me.ActiveMdiChild

End Sub

Seul problème que veux dire les .. et quel type de variable et MDIFilleActive ?
Commenter la réponse de gollum57320
gillardg 3288 Messages postés jeudi 3 avril 2008Date d'inscription 14 septembre 2014 Dernière intervention - 8 juil. 2008 à 14:57
0
Merci
type de variable et MDIFilleActive = form ?!?!?!
Commenter la réponse de gillardg
gollum57320 54 Messages postés lundi 29 mai 2006Date d'inscription 5 mai 2010 Dernière intervention - 8 juil. 2008 à 15:09
0
Merci
c'est ce que j'ai essayer mais reponce de VB2005.net    'Editor' n'est pas un membre de 'System.Windwos.Forms.form'
Commenter la réponse de gollum57320
gillardg 3288 Messages postés jeudi 3 avril 2008Date d'inscription 14 septembre 2014 Dernière intervention - 8 juil. 2008 à 15:12
0
Merci
mais non TA_FORM
Commenter la réponse de gillardg
gollum57320 54 Messages postés lundi 29 mai 2006Date d'inscription 5 mai 2010 Dernière intervention - 8 juil. 2008 à 15:21
0
Merci
mais non TA_FORM  alors là je ne comprent plius rien
Commenter la réponse de gollum57320
gillardg 3288 Messages postés jeudi 3 avril 2008Date d'inscription 14 septembre 2014 Dernière intervention - 8 juil. 2008 à 15:28
0
Merci
wouf wouf
la form dans laquelle tu as mis un editor
Commenter la réponse de gillardg
gollum57320 54 Messages postés lundi 29 mai 2006Date d'inscription 5 mai 2010 Dernière intervention - 8 juil. 2008 à 15:34
0
Merci
moment délire ( bwaaaaaaaaaaaaaaaaaaaaaaaaaaaaaahhhhh)

je reprend depuis le debut
 Voila le code utilisier
 
Public Class MainMDI
    Dim ChildForm As New MDIfille
    Private m_ChildFormNumber As Integer
    Dim MDIFilleActive As Form

Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewToolStripMenuItem.Click, NewToolStripButton.Click, NewWindowToolStripMenuItem.Click
        Dim ChildForm As New MDIfille
        ChildForm.MdiParent = Me
        m_ChildFormNumber += 1
        ChildForm.Text = "Script" & m_ChildFormNumber
        ChildForm.Show()
    End Sub

Private Sub UndoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UndoToolStripMenuItem.Click
        MDIFilleActive.Editor.Text = " bonjour"
End Sub

Private Sub Form1_MdiChildActivate()
        MDIFilleActive = Me.ActiveMdiChild
End Sub
   
Private Sub MainMDI_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MDIfille.MdiParent = Me
End Sub

Sur ma MDIfille j'ai ma zone de text nomer Editor
 avec cette méthode VB me trouve une erreur : 'Editor' n'est pas un membre de 'System.Windwos.Forms.form'
Commenter la réponse de gollum57320
gollum57320 54 Messages postés lundi 29 mai 2006Date d'inscription 5 mai 2010 Dernière intervention - 8 juil. 2008 à 16:00
0
Merci
Grand merci pour ton aide a se problème.
Commenter la réponse de gollum57320
gollum57320 54 Messages postés lundi 29 mai 2006Date d'inscription 5 mai 2010 Dernière intervention - 8 juil. 2008 à 16:01
0
Merci
mais une grande partie de ton code je l'avais déjà mais je juger inutil de le mettre dans le poste
Commenter la réponse de gollum57320

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.