1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Not Pad em VB .net 2005

Discussão em 'Programação' iniciada por Morphine0225, 5 de Abril de 2007. (Respostas: 12; Visualizações: 2303)

  1. Morphine0225

    Morphine0225 Power Member

    Boas! Tou a começar a desenvolver um notpad no Visual Basic .net studio 2005 e gostava que alguem me pudesse ajudar nos primeiros passos... Por onde começar e que fazer.. Queria ter nele algumas coisas do tipo as que aparecem no editor que usamos para escrever estes tópicos...:)


    Desde já obrigado a todos! Aguardo resposta...​
     
  2. liquido

    liquido Power Member

  3. Morphine0225

    Morphine0225 Power Member

    Obrigado pela ajuda... ;)

    Vou começar a por mãos a obra e fazer um editor de texto melhor que o WORD... lool
     
  4. damisoft

    damisoft Power Member

    para fazeres um notepad, só precisas de um form, e de um TextBox :-D
     
  5. Blackened

    Blackened Power Member

    E uns botões e um menu para gravar e ler ficheiros :002: Até te vou dar uma dica de onde começar a estudar para ler e gravar ficheiros - Streams.
     
  6. Preatorian

    Preatorian Power Member

    Tens um exemplo disso no NoteBox no meu site: http://alcides.ideias3.com -> Projectos -> VB.net

    Se precisares do source code, manda PM
     
  7. Morphine0225

    Morphine0225 Power Member

    Obrigado a todos! Já começei a construção... Se tiver uma grande duvida venho aki pedir ajuda.. ;)
     
  8. |[-BooT-]|

    |[-BooT-]| Folding Member

    já agora, vê o notepad++... dá para tirares umas ideias, mas aviso já, que fazer melhor que o notepad++ vai exigir muito trabalho :P


    fica bem e força nisso ;)
     
  9. rodmarcos

    rodmarcos Power Member

    Eu também tenho de desenvolver um NOTEpad... com um browser lol. Estou a utilizar o visual basic 2005...
    Este link: http://www.alvaroaugusto.com.br/vb/vb_cap4b.html de que visual basic é que está a falar? Não conheço a maior parte dos comandos... em vez do common dialog, eu estava a usar o OpenFileDialog.ShowDialog(). Mas depois como faço para colocar o que eu abrir na minha aplicação?
    Também li que deveria colocar uma textbox. Textbox ou uma richtextbox? É que depois para mudar de fonte e de cor, tamanho, etc, também dá se for textbox?
    obrigado pela ajuda, desde ja
     
  10. Morphine0225

    Morphine0225 Power Member

    richtextbox é o indicado... Já terminei o meu.. :D

    Qualquer coisa apita..

    Morphine0225
     
  11. rodmarcos

    rodmarcos Power Member

    Lol. tive de entregar hoje o trabalho... Ficou uma valente bosta, mas pronto...
    Obrigado pela ajuda na mesma.
    Fiquem bem
     
  12. alfinete

    alfinete Power Member

    aqui tens um notepad com as coisas mais basicas

    codigo fonte a baixo

    Código:
    ' classe que ten funções de entrada e saida de dados
    
    Imports System.IO
    
    Public Class Form1
        Inherits System.Windows.Forms.Form
    
        ' para avisar guardar antes de fexar
    
        Dim mudou As Boolean = False
    
    
      
    
        Private Sub AbrirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AbrirToolStripMenuItem.Click
            ' variavel para saber qual o botão que clicou na msg box
    
            Dim r As Integer
    
            If mudou Then
    
                r = MsgBox("Não guardou as Alterações, pretende Guardar?", MsgBoxStyle.YesNoCancel)
    
                If r = MsgBoxResult.Yes Then
    
                    GuardarToolStripMenuItem_Click(sender, e)
    
                ElseIf r = MsgBoxResult.No Then
                    abrir()
                End If
            Else
                abrir()
            End If
    
        End Sub
    
        Private Sub GuardarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GuardarToolStripMenuItem.Click
    
            If Me.SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
    
                Dim guardou As Boolean = guardar_file(Me.txt_principal.Text, SaveFileDialog1.FileName)
    
                If guardou Then
                    Me.StatusBar_notepad.Text = "ficheiro" & Me.SaveFileDialog1.FileName & _
                       "Guardado com sucesso"
                    mudou = False
                Else
                    Me.StatusBar_notepad.Text = "ERRO: Ficheiro Não Guardado"
    
                End If
    
            End If
        End Sub
    
        ' ' opfile objecto de dialogo para escolher o ficheiro
    
        Public Sub abrir()
            If Opfile.ShowDialog() = Windows.Forms.DialogResult.OK Then
                Me.txt_principal.Text = abrir_file(Opfile.FileName)
                Me.Text = "notepad.net plus - " & Opfile.FileName
                Me.StatusBar_notepad.Text = ""
            End If
        End Sub
    
    ' função para abrir um file
        Public Function abrir_file(ByVal fullpath As String, _
        Optional ByRef errinfo As String = "") As String
    
            Dim strfile As String
            Dim objreader As StreamReader
    
            Try
                objreader = New StreamReader(fullpath)
                strfile = objreader.ReadToEnd()
                objreader.Close()
                Return strfile
    
            Catch ex As Exception
    
                errinfo = ex.Message
    
            End Try
    
            Return ""
    
        End Function
    
        ' função guardar file
    
        Public Function guardar_file(ByVal doc As String, ByVal fullpath As String, _
                                     Optional ByVal errinfo As String = "") As Boolean
    
            ' stream writer , escrever num determinado ficheiro
    
            Dim guardou As Boolean = False
            Dim objwriter As StreamWriter
    
            Try
                objwriter = New StreamWriter(fullpath)
                objwriter.Write(doc)
                objwriter.Close()
                guardou = True
    
            Catch ex As Exception
    
                errinfo = ex.Message
    
            End Try
    
    
            Return guardou
    
        End Function
    
      
    
        ' ficheiro novo
    
        Private Sub NovoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NovoToolStripMenuItem.Click
    
            Dim r As Integer
    
            If mudou Then
    
                r = MsgBox("Não Guadoru as alterações, pertende Guardar ?", MsgBoxStyle.YesNoCancel, "Guardar")
    
                If r = MsgBoxResult.Yes Then
                    Me.GuardarToolStripMenuItem_Click(sender, e)
                ElseIf r = MsgBoxResult.No Then
                    Me.txt_principal.Text = ""
                End If  ' caso clique cancel fiva na mesma
            Else
                Me.txt_principal.Text = ""
            End If
    
        End Sub
    
        Private Sub txt_principal_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_principal.TextChanged
            mudou = True
        End Sub
    
        ' menu opção sair
    
        Private Sub SairToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SairToolStripMenuItem.Click
    
            Dim r As Integer
    
            ' ao clicar em sair sem salvar dá um aviso
    
            If mudou Then
    
                r = MsgBox("Não Guadoru as alterações, pertende Guardar ?", MsgBoxStyle.YesNoCancel, "Guardar")
    
                If r = MsgBoxResult.Yes Then
                    Me.GuardarToolStripMenuItem_Click(sender, e)
                    Close()
    
                ElseIf r = MsgBoxResult.No Then
                    Me.txt_principal.Text = ""
    
                End If  ' caso clique cancel fiva na mesma
            Else
                Me.txt_principal.Text = ""
            End If
    
    
    
        End Sub
    
        ' formclosing quando esta a fechar
        ' formclose   quando esta fexado
    
        Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    
            Dim r As Integer
    
            ' ao clicar em sair sem salvar dá um aviso
    
            If mudou Then
    
                r = MsgBox("Não Guardou as alterações, pertende Guardar ?", MsgBoxStyle.YesNoCancel, "Guardar")
    
                If r = MsgBoxResult.Yes Then
    
                    If Me.SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                        Dim guardou As Boolean = guardar_file(Me.txt_principal.Text, SaveFileDialog1.FileName)
                        If Not guardou Then MsgBox("erro:ficheiro não guardado")
                    Else
                        ' cancela o close por isso não fecha a aplicação
                        e.Cancel = True
    
                    End If
                    
    
                ElseIf r = MsgBoxResult.Cancel Then
                    e.Cancel = True
    
                End If  ' caso clique cancel fiva na mesma
            
            End If
    
        End Sub
    
    
        ' status bar
       
        Private Sub StatusBarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StatusBar_status.Click
    
            Me.StatusBar_notepad.Visible = Not Me.StatusBar_notepad.Visible
    
            ' DESCHECAR A OPÇÃO DO MENU
            Me.StatusBar_status.Checked = Not Me.StatusBar_status.Checked
    
        End Sub
    
        Private Sub Statusbar_transparente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Statusbar_transparente.Click
    
            ' se a opção transparebte for activada por a tranaparencia 
            If Me.Statusbar_transparente.Checked Then
                Me.TransparencyKey = Color.Brown
                Me.Statusbar_transparente.Checked = False
    
    
            Else
                Me.TransparencyKey = Me.txt_principal.BackColor
                Me.Statusbar_transparente.Checked = True
            End If
    
        End Sub
    
        Private Sub TipoDeLetraToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TipoDeLetraToolStripMenuItem.Click
            ' mostra o dialog de mudança de fonte
    
    
            If Me.FontDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                Me.txt_principal.Font = Me.FontDialog1.Font
            End If
    
    
        End Sub
    
        Private Sub CorDeTextoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CorDeTextoToolStripMenuItem.Click
            ' cor do texto
    
            If Me.ColorDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                Me.txt_principal.ForeColor = Me.ColorDialog1.Color
            End If
    
        End Sub
    
        Private Sub CorDeFundoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CorDeFundoToolStripMenuItem.Click
            'cor do fundo
            If Me.ColorDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
    
                Me.txt_principal.BackColor = Me.ColorDialog1.Color
                Me.Statusbar_transparente.Checked = False
    
            End If
        End Sub
    End Class
    
    
    

    imagem do form a baixo

    [​IMG]

    espero que ajude
     
  13. rodmarcos

    rodmarcos Power Member

    Obrigado pela ajuda, mas já fiz o notepad e já entreguei. Também não eram essas as funções que me estavam a dar cabo do caco. :P
    A minha tinha ficheiro-> novo, abrir, guardar, imprimir, sair
    editar-> redo, undo, select all, find, replace
    formatar-> fonte, cor texto, cor fundo, alinhamento
    about e botão para o browser...
    Mas ficou a intenção ;) Obrigadão!
     

Partilhar esta Página