Problême avec les MDI
Résolu
cs_veler
Messages postés
723
Date d'inscription
dimanche 26 novembre 2006
Statut
Membre
Dernière intervention
23 janvier 2013
-
21 févr. 2007 à 12:28
cs_veler Messages postés 723 Date d'inscription dimanche 26 novembre 2006 Statut Membre Dernière intervention 23 janvier 2013 - 21 févr. 2007 à 13:01
cs_veler Messages postés 723 Date d'inscription dimanche 26 novembre 2006 Statut Membre Dernière intervention 23 janvier 2013 - 21 févr. 2007 à 13:01
A voir également:
- Problême avec les MDI
- Mdi lu ✓ - Forum Visual Basic
- Activation mdi - Forum Delphi / Pascal
- Comment activer la fenêtre d'un prog ouverte (réduite ou en arrière plan) ✓ - Forum Visual Basic
- Probleme sur activation de fenetre fille d'une application mdi deja creers ✓ - Forum Delphi / Pascal
- Mdi forms ✓ - Forum C# / .NET
1 réponse
cs_veler
Messages postés
723
Date d'inscription
dimanche 26 novembre 2006
Statut
Membre
Dernière intervention
23 janvier 2013
2
21 févr. 2007 à 13:01
21 févr. 2007 à 13:01
Re, laissez tomber, je suis tros con, je ne m'y été pas pris dans le bon sans, sa fonctionne maintenant. Pour les curieux,je vous donnes le code source que j'ai trouvé:
Dim Nomlong, Nomcourt As String
Dim lon, tutu As Integer
Dim ext As String
OpenFileDialog1.Filter = "Fichier HTML(*.html)|*.html|Fichier HTM(*.htm)|*.htm|Fichier SHTML(*.shtml)|*.shtml|Fichier Texte(*.txt)|*.txt|Fichier RTF(*.rtf)|*.rtf|Tous les fichies(*.*)|*.*"
OpenFileDialog1.ShowDialog()
Nomlong = OpenFileDialog1.FileName
If Nomlong <> ""Then
lon = Nomlong.Length
ext = Nomlong.Substring(lon - 3, 3) If ext "html"Or ext "htm"Or ext = "shtml"Or ext = "txt" Or ext = "rtf"Or ext = "*"Then
' Création de la nouvelle form
Dim x As New Form2
x.MdiParent = Me
x.Visible = True
' Récupération du nom du fichier
Dim anti As Integer = lon - 4
While Nomlong.Substring(anti, 1) <> ""
anti = anti - 1
End While
Nomcourt = Nomlong.Substring(anti + 1, lon - anti - 1)
x.Text = Nomcourt
'On vide le RichTextBox
x.RichTextBox1.Text = String.Empty
'Ouverture du fichier sélectionné
'son nom est dans openFileDialog1.FileName
Dim sr As StreamReader = New StreamReader(OpenFileDialog1.OpenFile, True)
Try
Dim data As String = sr.ReadLine
While Not (data Is Nothing)
x.RichTextBox1.AppendText(data + _
Convert.ToChar(13) + _
Convert.ToChar(10))
data = sr.ReadLine()
End While
Finally
If Not (sr Is Nothing) Then
sr.Close()
End If
End Try
Else
tutu = MsgBox("Ceci n'est pas un fihier valide", MsgBoxStyle.Information, "Opération annulée")
End If
End If
ebaudoux@club.fr
http://velerweb-2.fr.nf
http://jbaudoux.club.fr/veler/
Dim Nomlong, Nomcourt As String
Dim lon, tutu As Integer
Dim ext As String
OpenFileDialog1.Filter = "Fichier HTML(*.html)|*.html|Fichier HTM(*.htm)|*.htm|Fichier SHTML(*.shtml)|*.shtml|Fichier Texte(*.txt)|*.txt|Fichier RTF(*.rtf)|*.rtf|Tous les fichies(*.*)|*.*"
OpenFileDialog1.ShowDialog()
Nomlong = OpenFileDialog1.FileName
If Nomlong <> ""Then
lon = Nomlong.Length
ext = Nomlong.Substring(lon - 3, 3) If ext "html"Or ext "htm"Or ext = "shtml"Or ext = "txt" Or ext = "rtf"Or ext = "*"Then
' Création de la nouvelle form
Dim x As New Form2
x.MdiParent = Me
x.Visible = True
' Récupération du nom du fichier
Dim anti As Integer = lon - 4
While Nomlong.Substring(anti, 1) <> ""
anti = anti - 1
End While
Nomcourt = Nomlong.Substring(anti + 1, lon - anti - 1)
x.Text = Nomcourt
'On vide le RichTextBox
x.RichTextBox1.Text = String.Empty
'Ouverture du fichier sélectionné
'son nom est dans openFileDialog1.FileName
Dim sr As StreamReader = New StreamReader(OpenFileDialog1.OpenFile, True)
Try
Dim data As String = sr.ReadLine
While Not (data Is Nothing)
x.RichTextBox1.AppendText(data + _
Convert.ToChar(13) + _
Convert.ToChar(10))
data = sr.ReadLine()
End While
Finally
If Not (sr Is Nothing) Then
sr.Close()
End If
End Try
Else
tutu = MsgBox("Ceci n'est pas un fihier valide", MsgBoxStyle.Information, "Opération annulée")
End If
End If
ebaudoux@club.fr
http://velerweb-2.fr.nf
http://jbaudoux.club.fr/veler/
