Exercice VB: Interface MS Word
Ecrire le programme qui permet de réaliser l'interface suivante:
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217 | Imports System.IOPublic Class Form1 Public lblrs As Label Private Sub NouveauToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NouveauToolStripMenuItem.Click End Sub Private Sub OuvrirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OuvrirToolStripMenuItem.Click 'Dim opendlg As New OpenFileDialog 'With opendlg ' .InitialDirectory = IO.Directory.GetCurrentDirectory ' If .ShowDialog() = DialogResult.OK Then ' lblrs.Text = "filename = " & .FileName ' Else ' lblrs.Text = "annulé" ' End If 'End With If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then Dim nomfichier As String = OpenFileDialog1.FileName Dim str As StreamReader = New StreamReader(nomfichier) RichTextBox1.Text = str.ReadToEnd str.Close() End If End Sub Private Sub FermerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FermerToolStripMenuItem.Click End End Sub Private Sub EnregestrerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnregestrerToolStripMenuItem.Click FileOpen(1, "stagiaire.txt", OpenMode.Random, OpenAccess.Write, Len(RichTextBox1)) End Sub Private Sub EnregestrerSousToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnregestrerSousToolStripMenuItem.Click SaveFileDialog1.InitialDirectory = Application.ExecutablePath SaveFileDialog1.Filter = "Enregestrer Sous (*.doc)|*.doc|All files (*.*)|*.*" SaveFileDialog1.FilterIndex = 0 If SaveFileDialog1.ShowDialog() = DialogResult.OK Then Dim nomFichier As String = SaveFileDialog1.FileName Dim fichier As StreamWriter = Nothing Try fichier = New StreamWriter(nomFichier) Catch ex As Exception MessageBox.Show("Problème à l'écriture du fichier (" + ex.Message + ")", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error) Return Finally Try fichier.Close() Catch End Try End Try End If End Sub Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click If ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then ' choix d'une couleur de texte RichTextBox1.ForeColor = ColorDialog1.Color ' on change la propriété forecolor du TextBox End If End Sub Private Sub ToolStripButton11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton11.Click If FontDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then RichTextBox1.Font = FontDialog1.Font End If End Sub Private Sub MiseEnPageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MiseEnPageToolStripMenuItem.Click Dim pagedlg As New PageSetupDialog With pagedlg Dim pd As New Drawing.Printing.PrintDocument() .Document = pd If .ShowDialog = DialogResult.OK Then With .PageSettings.PaperSize lblrs.Text = String.Format("papier : {0] * {1]", .Width, .Height) End With With .PageSettings.Margins lblrs.Text += String.Format("-marges {0],{1],{2],{3]", .Left, .Top, .Right, .Bottom) End With Else lblrs.Text = "annulé" End If End With End Sub Private Sub CouperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CouperToolStripMenuItem.Click RichTextBox1.Cut() End Sub Private Sub CopierToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopierToolStripMenuItem.Click RichTextBox1.Copy() End Sub Private Sub CollerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CollerToolStripMenuItem.Click RichTextBox1.Paste() End Sub Private Sub SelectionnerToutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelectionnerToutToolStripMenuItem.Click RichTextBox1.SelectAll() End Sub Private Sub EffacerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EffacerToolStripMenuItem.Click RichTextBox1.Clear() End Sub 'Private Sub RechercherToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RechercherToolStripMenuItem.Click ' Dim dlgrecherche As New DialogResult ' Dim i As Integer = RichTextBox1.Text.IndexOf(Text, RichTextBox1.selectionstatr + RichTextBox1.selectionlenght) 'End Sub Private Sub ImprimerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImprimerToolStripMenuItem.Click Dim printdlg As New PrintDialog With printdlg Dim pd As New Drawing.Printing.PrintDocument() .Document = pd .AllowSelection = True .AllowSomePages = True pd.PrinterSettings.MaximumPage = 5 If .ShowDialog = DialogResult.OK Then With pd.PrinterSettings lblrs.Text = String.Format("imprimante : {0]-copier : {1] - page : {2] -{3]", .PrinterName, .Copies, .FromPage, .ToPage) End With Else lblrs.Text = "annuler" End If End With End Sub Private Sub PoliceToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PoliceToolStripMenuItem.Click If FontDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then RichTextBox1.Font = FontDialog1.Font End If End Sub Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click Dim opendlg As New OpenFileDialog With opendlg .InitialDirectory = IO.Directory.GetCurrentDirectory If .ShowDialog() = DialogResult.OK Then lblrs.Text = "filename = " & .FileName Else lblrs.Text = "annulé" End If End With End Sub Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click Dim printdlg As New PrintDialog With printdlg Dim pd As New Drawing.Printing.PrintDocument() .Document = pd .AllowSelection = True .AllowSomePages = True pd.PrinterSettings.MaximumPage = 5 If .ShowDialog = DialogResult.OK Then With pd.PrinterSettings lblrs.Text = String.Format("imprimante : {0]-copier : {1] - page : {2] -{3]", .PrinterName, .Copies, .FromPage, .ToPage) End With Else lblrs.Text = "annuler" End If End With End Sub Private Sub ToolStripButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton8.Click RichTextBox1.Cut() End Sub Private Sub ToolStripButton9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton9.Click RichTextBox1.Copy() End Sub Private Sub ToolStripButton10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton10.Click RichTextBox1.Paste() End Sub Private Sub ToolStripButton12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton12.Click RichTextBox1.Undo() End Sub Private Sub ToolStripButton13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton13.Click RichTextBox1.Update() End Sub Private Sub ToolStripButton14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button14.Click Try Dim nouveaustyle As FontStyle = RichTextBox1.SelectionFont.Style If sender.button14.pushed Then nouveaustyle = nouveaustyle Or FontStyle.Bold Else nouveaustyle = nouveaustyle And Not FontStyle.Bold End If RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, nouveaustyle) Catch ex As Exception 'button14.pushed = RichTextBox1.SelectionFont.Bold End Try End Sub Private Sub ToolStripComboBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripComboBox1.Click Dim t As Integer Dim fnt As New Font("arial", 20, FontStyle.Bold) sender.richtextbox1.drawstring(fnt.Style.ToString, fnt, Brushes.Blue, 10, t) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ToolStripComboBox1.Items.Add("Arial") End SubEnd Class |