[Source+Tutorial] Visual Basic 2008 - Bloco De Notas

[Stigal 221]

• Irá Precisar De:
  1 - MenuStrip1
  1 - ColorDialog1
  1 - FontDialog1
  1 - SaveFileDialog1
  1 - OpenFileDialog1

  1 - RichTextBox1

  -

  -

• Configurando:

  #MenuStrip:

  Criar "Arquivo" e adicionar abaixo "Novo", "Abrir...",  "Salvar Como..." e "Sair"
  Ao lado adicionar "Editar" e coloque abaixo "Copiar", "Colar", "Refazer", "Desfazer"
  Ao lado adicione "Formatar" e coloque abaixo "Estilo De Texto", "Cores" e "Fontes..." 
  -
  Em "Estilo De Texto" coloque ao lado "Negrito", "Italico", Sublinhado"

  -

  Exemplos:

  

  

  

  

  

  -
  Agora basta dar 2 Click's no FORM1, Apagar tudo e adicionar o codigo abaixo!
  -

  -

• Source/Código:

  Imports System.IO
  
  Public Class Form1
  
      Private Sub NovoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NovoToolStripMenuItem.Click
          If RichTextBox1.Text <> "" Then
              If (MessageBox.Show("Deseja Salvar o arquivo ?", "Salvar Arquivo", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) = DialogResult.Yes) Then
  
              End If
          End If
          RichTextBox1.Clear()
          RichTextBox1.Focus()
      End Sub
  
      Private Sub EditarArquivoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditarArquivoToolStripMenuItem.Click
          If Me.OpenFileDialog1.ShowDialog() = DialogResult.OK Then
              Dim fs As New FileStream(OpenFileDialog1.FileName, FileMode.Open, FileAccess.Read)
              Dim m_streamReader As New StreamReader(fs)
              ' Lê o arquivo usando a classe StreamReader
              m_streamReader.BaseStream.Seek(0, SeekOrigin.Begin)
  
              ' Lê cada linha do stream até a última
              Me.RichTextBox1.Text = ""
  
              Dim strLine As String = m_streamReader.ReadLine()
  
              While Not (strLine Is Nothing)
                  Me.RichTextBox1.Text += strLine + ControlChars.Lf
                  strLine = m_streamReader.ReadLine()
              End While
  
              ' Fecha o stream
              m_streamReader.Close()
          End If
      End Sub
  
      Private Sub SalvarComoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalvarComoToolStripMenuItem.Click
          Try
              ' Pega o nome do arquivo para salvar
              If Me.SaveFileDialog1.ShowDialog() = DialogResult.OK Then
  
                  ' abre um stream para escrita e cria um StreamWriter para implementar o stream
                  Dim fs As New FileStream(SaveFileDialog1.FileName, FileMode.OpenOrCreate, FileAccess.Write)
                  Dim m_streamWriter As New StreamWriter(fs)
                  m_streamWriter.Flush()
  
                  ' Escreve para o arquivo usando a classe StreamWriter
                  m_streamWriter.BaseStream.Seek(0, SeekOrigin.Begin)
                  ' escreve no controle richtextbox
                  m_streamWriter.Write(Me.RichTextBox1.Text)
                  ' fecha o arquivo
                  m_streamWriter.Flush()
                  m_streamWriter.Close()
              End If
          Catch em As Exception
              MsgBox("Erro a salvar o arquivo ", MsgBoxStyle.Critical, "Erro ao Salvar")
          End Try
      End Sub
  
      Private Sub FecharToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FecharToolStripMenuItem.Click
          Me.Close()
      End Sub
  
      Private Sub CopiarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopiarToolStripMenuItem.Click
          RichTextBox1.Copy()
      End Sub
  
      Private Sub ColarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColarToolStripMenuItem.Click
          RichTextBox1.Paste()
      End Sub
  
      Private Sub RefazerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RefazerToolStripMenuItem.Click
          RichTextBox1.Redo()
      End Sub
  
      Private Sub DesfazerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DesfazerToolStripMenuItem.Click
          RichTextBox1.Undo()
      End Sub
  
      Private Sub NegritoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NegritoToolStripMenuItem.Click
          Dim nome_fonte As String
          Dim tamanho_fonte As Single
          Dim negrito As Boolean
  
          nome_fonte = RichTextBox1.Font.Name
          tamanho_fonte = RichTextBox1.Font.Size
          negrito = RichTextBox1.Font.Bold
  
          If negrito = False Then
              RichTextBox1.SelectionFont = New Font(nome_fonte, tamanho_fonte, FontStyle.Bold)
          Else
              RichTextBox1.SelectionFont = New Font(nome_fonte, tamanho_fonte, FontStyle.Regular)
          End If
      End Sub
  
      Private Sub ItalicoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ItalicoToolStripMenuItem.Click
          Dim nome_fonte As String
          Dim tamanho_fonte As Single
          Dim italico As Boolean
  
          nome_fonte = RichTextBox1.Font.Name
          tamanho_fonte = RichTextBox1.Font.Size
          italico = RichTextBox1.Font.Italic
  
          If italico = False Then
              RichTextBox1.SelectionFont = New Font(nome_fonte, tamanho_fonte, FontStyle.Italic)
          Else
              RichTextBox1.SelectionFont = New Font(nome_fonte, tamanho_fonte, FontStyle.Italic)
          End If
      End Sub
  
      Private Sub SublinhadoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SublinhadoToolStripMenuItem.Click
          Dim nome_fonte As String
          Dim tamanho_fonte As Single
          Dim sublinha As Boolean
  
          nome_fonte = RichTextBox1.Font.Name
          tamanho_fonte = RichTextBox1.Font.Size
          sublinha = RichTextBox1.Font.Underline
  
          If sublinha = False Then
              RichTextBox1.SelectionFont = New Font(nome_fonte, tamanho_fonte, FontStyle.Underline)
          Else
              RichTextBox1.SelectionFont = New Font(nome_fonte, tamanho_fonte, FontStyle.Underline)
          End If
      End Sub
  
      Private Sub CoresToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CoresToolStripMenuItem.Click
          ColorDialog1.ShowDialog()
          RichTextBox1.ForeColor = ColorDialog1.Color
      End Sub
  
      Private Sub FontesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontesToolStripMenuItem.Click
          FontDialog1.Font = RichTextBox1.Font
          FontDialog1.ShowDialog()
          RichTextBox1.Font = FontDialog1.Font
      End Sub
  
      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
          MessageBox.Show("Ola Usuario, Bloco de Notas Foi Aberto Com Sucesso." & Chr(13) & "Aperte OK Para Ir Ao Programa.", _
     "Bloco de Notas - Stigal")
      End Sub
  End Class
  

-

Atenciosamente, Stigal.

[Visitante]

Script me simples, mas ficou melhor que o bloco de notas do windows.

[Stigal 221]

Script me simples, mas ficou melhor que o bloco de notas do windows.

Script básico que torna o bloco de notas mais simples, sem muita frescura

[TsplayerT 83]

Stigal, será que você não pode Disponibilizar o Download e Versão do Visual Basic?

Também se possivel Deixar o Download do Bloco de Notas.exe?