Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Class Form1 Dim text_start As String Dim text_end As String Dim path As String = Nothing Dim filename As String = "Sans titre" Dim vbspace = " " Dim request As MsgBoxResult Dim close_form As Boolean = False Dim ServiceMsg As Boolean = False Dim myFormat As DataFormats.Format = _ DataFormats.GetFormat(DataFormats.UnicodeText) Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed ' On sauvegardera les options My.Settings.Save() End Sub Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing close_form = True If text_start <> text_end Then request = MsgBox("Voulez-vous enregistrer les modifications de" & vbspace & filename & vbspace & "?", vbQuestion + vbYesNoCancel, "Bloc-notes") If request = MsgBoxResult.Yes Then If My.Computer.FileSystem.FileExists(path) Then savefile() e.Cancel = False ElseIf SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.Cancel Or Windows.Forms.DialogResult.None Then e.Cancel = True End If ElseIf request = MsgBoxResult.Cancel Then e.Cancel = True End If End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Command().Length >= 1 Then path = Replace(Command(), """", "") openfile() End If End Sub Private Sub QuitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem.Click Me.Close() End Sub Private Sub HeureDateToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HeureDateToolStripMenuItem.Click RichTextBox1.Text = RichTextBox1.Text & Now.ToShortTimeString & vbspace & Now.ToShortDateString End Sub Private Sub SélectionnertoutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SélectionnertoutToolStripMenuItem.Click RichTextBox1.SelectAll() End Sub Private Sub AnnulerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnnulerToolStripMenuItem.Click If RichTextBox1.CanUndo Then RichTextBox1.Undo() ElseIf RichTextBox1.CanRedo Then RichTextBox1.Redo() End If 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 Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If RichTextBox1.CanUndo Or RichTextBox1.CanRedo Then AnnulerToolStripMenuItem.Enabled = True Else AnnulerToolStripMenuItem.Enabled = False End If If RichTextBox1.CanPaste(myFormat) Then CollerToolStripMenuItem.Enabled = True Else CollerToolStripMenuItem.Enabled = False End If If RichTextBox1.TextLength <> 0 And RichTextBox1.SelectedText.Length <> 0 Then CouperToolStripMenuItem.Enabled = True CopierToolStripMenuItem.Enabled = True Else : CouperToolStripMenuItem.Enabled False : CopierToolStripMenuItem.Enabled False End If If RichTextBox1.SelectedText.Length <> 0 Then SupprimerToolStripMenuItem.Enabled = True Else SupprimerToolStripMenuItem.Enabled = False End If If RichTextBox1.TextLength <> 0 Then SupprimerToutToolStripMenuItem.Enabled = True SélectionnertoutToolStripMenuItem.Enabled = True RechercherToolStripMenuItem.Enabled = True RechercherLeSuivantToolStripMenuItem.Enabled = True Else RechercherToolStripMenuItem.Enabled = False RechercherLeSuivantToolStripMenuItem.Enabled = False SupprimerToutToolStripMenuItem.Enabled = False SélectionnertoutToolStripMenuItem.Enabled = False End If 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 SupprimerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SupprimerToolStripMenuItem.Click RichTextBox1.SelectedText = String.Empty 'On supprime le texte selectionné End Sub Private Sub SupprimerToutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SupprimerToutToolStripMenuItem.Click RichTextBox1.Clear() End Sub Private Sub CollerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CollerToolStripMenuItem.Click RichTextBox1.Paste(myFormat) End Sub Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk path = OpenFileDialog1.FileName filename = System.IO.Path.GetFileName(path) openfile() End Sub Private Sub NouveauToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NouveauToolStripMenuItem.Click If text_start <> text_end Then request = MsgBox("Voulez-vous enregistrer les modifications de" & vbspace & filename & vbspace & "?", vbQuestion + MsgBoxStyle.YesNoCancel, "Bloc-notes") If request = MsgBoxResult.Yes Then savefile() ClearNotepad() ElseIf request = MsgBoxResult.No Then ClearNotepad() End If Else ClearNotepad() End If End Sub Private Sub OuvrirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OuvrirToolStripMenuItem.Click OpenFileDialog1.Filter = "Fichier texte (*.txt)|*.txt|Tous les fichiers (*.*)|*.*" OpenFileDialog1.FileName = "" If text_start <> text_end Then request = MsgBox("Voulez-vous enregistrer les modifications de" & vbspace & filename & vbspace & "?", vbQuestion + vbYesNoCancel) If request = MsgBoxResult.Yes Then If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then OpenFileDialog1.ShowDialog() End If End If ElseIf request = MsgBoxResult.No Then OpenFileDialog1.ShowDialog() Else OpenFileDialog1.ShowDialog() End If End Sub #Region "Fonctions" Function openfile() If path <> Nothing And HaveRepertory() = True Then RichTextBox1.LoadFile(path, RichTextBoxStreamType.PlainText) text_start = RichTextBox1.Text Me.Text = filename & " - Bloc-notes" Return True End If Return False End Function Function ClearNotepad() RichTextBox1.Clear() path = Nothing filename = "Sans titre" text_start = RichTextBox1.Text Me.Text = filename & " - Bloc-notes" Return Nothing End Function Function HaveRepertory() If My.Computer.FileSystem.FileExists(path) = True Then : Return True : End If Return False End Function #End Region #Region "Sauvegarder" Function savefile() If path <> Nothing And HaveRepertory() = True Then My.Computer.FileSystem.WriteAllText(path, RichTextBox1.Text, False) text_start = RichTextBox1.Text If ServiceMsg = True Then : MsgBox("Le fichier à bien été enregistré", vbInformation, "Bloc-notes") : End If Return True Else If ServiceMsg = True Then : MsgBox("Vous devez choisir un répertoire sur votre ordinateur pour sauvegarder le fichier.", vbInformation, "Bloc-notes") : End If SaveFileDialog1.FileName = filename SaveFileDialog1.Filter = "Fichier texte (*.txt)|*.txt|Tous les fichiers (*.*)|*.*" SaveFileDialog1.ShowDialog() End If Return False End Function Private Sub EnregistrerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnregistrerToolStripMenuItem.Click savefile() End Sub Private Sub EnregistrersousToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnregistrersousToolStripMenuItem.Click SaveFileDialog1.ShowDialog() End Sub Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk path = SaveFileDialog1.FileName If close_form = False Then filename = System.IO.Path.GetFileName(path) RichTextBox1.Text = text_start Me.Text = filename & vbspace & "- Bloc-notes" End If savefile() End Sub #End Region Private Sub OptionsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OptionsToolStripMenuItem.Click Try Dim Police As FontDialog = New FontDialog Police.Font = RichTextBox1.Font If Police.ShowDialog = System.Windows.Forms.DialogResult.OK Then RichTextBox1.Font = Police.Font End If Catch ex As Exception : End Try End Sub Private Sub FontToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontToolStripMenuItem.Click Try Dim Couleur As ColorDialog = New ColorDialog Couleur.Color = RichTextBox1.ForeColor If Couleur.ShowDialog = System.Windows.Forms.DialogResult.OK Then RichTextBox1.ForeColor = Couleur.Color End If Catch ex As Exception : End Try End Sub Private Sub RetourAutomatiqueÀLaLigneToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RetourAutomatiqueÀLaLigneToolStripMenuItem.Click Try If RetourAutomatiqueÀLaLigneToolStripMenuItem.Checked = False Then RetourAutomatiqueÀLaLigneToolStripMenuItem.Checked = True BarreDétatToolStripMenuItem.Enabled = False RichTextBox1.ScrollBars = RichTextBoxScrollBars.ForcedVertical RichTextBox1.WordWrap = True Else BarreDétatToolStripMenuItem.Enabled = True RichTextBox1.ScrollBars = RichTextBoxScrollBars.ForcedBoth RichTextBox1.WordWrap = False RetourAutomatiqueÀLaLigneToolStripMenuItem.Checked = False End If Catch ex As Exception : End Try End Sub Private Sub BarreDétatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BarreDétatToolStripMenuItem.Click If BarreDétatToolStripMenuItem.Checked = False Then RetourAutomatiqueÀLaLigneToolStripMenuItem.Enabled = False BarreDétatToolStripMenuItem.Checked = True ToolStrip1.Visible = True Else RetourAutomatiqueÀLaLigneToolStripMenuItem.Enabled = True BarreDétatToolStripMenuItem.Checked = False ToolStrip1.Visible = False End If End Sub Private Sub RichTextBox1_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged text_end = RichTextBox1.Text If BarreDétatToolStripMenuItem.CheckState = CheckState.Checked Then Dim intFirstChar As Integer = Me.RichTextBox1.GetCharIndexFromPosition(New Point(0, 0)) Dim intFirstLine As Integer = Me.RichTextBox1.GetLineFromCharIndex(intFirstChar) Dim intCharCount As Integer = (Me.RichTextBox1.SelectionStart + Me.RichTextBox1.SelectionLength) - intFirstChar Dim strFromStart As String = Me.RichTextBox1.Text.Substring(intFirstChar, intCharCount) Dim intLine As Integer = strFromStart.Split(CChar(vbLf)).Length Me.ToolStripStatusLabel1.Text = "Ln" & vbspace & intFirstLine + intLine & ", Col" & vbspace & (intCharCount - strFromStart.LastIndexOf(vbLf)) End If End Sub Private Sub MessagesDeServicesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MessagesDeServicesToolStripMenuItem.Click If MessagesDeServicesToolStripMenuItem.Checked = False Then MessagesDeServicesToolStripMenuItem.Checked = True ServiceMsg = True Else MessagesDeServicesToolStripMenuItem.Checked = False ServiceMsg = False End If End Sub Private Sub RechercherToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RechercherToolStripMenuItem.Click Form2.Show() End Sub Private Sub RechercherLeSuivantToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RechercherLeSuivantToolStripMenuItem.Click Form2.Show() End Sub Private Sub RemplacerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RemplacerToolStripMenuItem.Click Form2.Show() ' Mise en place de remplacer End Sub End Class
If System.Environment.GetCommandLineArgs.Length >= 1 Then path = Replace(Command(), """", "") filename = System.IO.Path.GetFileName(path) openfile() End If
Le demandeur a laissé l'import automatique de Microsoft.VisualBasic (compatibilité avec vb6) dans les propriétés de son projet. Ce qui explique la présence de Command() dans son code.
parce que je l'avais utilisé et trouvé sur un forum