[TuT] Jednostavni Text Editor

Prvi tut :
Web Browser
Drugi tut :
Blackjack
Treci tut :
Digitron
Moj cetvrti tut o VB-u 2008 (imam ih namjeru napraviti 20-tak )

Sada cu vam objasnit kako da napravite najjednostavniji Text Editor.

Prvo napravite windows aplikaciju i dajte joj ime Text Editor.
Sada je vrijeme da kreiramo prozor gdje cemo pisati.

Izaberite u All Windows Form i nadjite Rich Text Box.
Prevucite preko cijelog forma samo ostavite malo na vrhu.



Sada cemo dodati ona cuda (file i to)

Na All windows Form nadjite Menu Strip i prevucite preko gore (gdje ste ostavili mjesta).



Sada cemo prvo dodati u FILE.
Ondje gdje pise Text Here Klikinte i upisite File.
Pa zatim svugdje gdje pise Text here kucajte sljedece :

Open
Save
Exit

Sada gore gdje pise pored File text here ukucajte Edit.
Ispod kucajte sljedece :

Undo
Select All
Copy
Cut
Paste

Pored Edit dodajte Font a ispod dodajte samo Font.



Sada je vrijeme za code :

Kod File su sljedecei codovi :

Open :
Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
Dim Open As New OpenFileDialog()

Open.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
Open.CheckFileExists = True
Open.ShowDialog(Me)
Try
Catch ex As Exception
' Do nothing on Exception
End Try
End Sub

Save :

RichTextBox1.SaveFile("Text files *.txt)|*.txt|All files (*.*)|*.*"


Exit :

Close()

Za Edit su sljedeci codovi :

Undo :

RichTextBox1.Undo()

Select All :

RichTextBox1.SelectAll()

Copy :

RichTextBox1.Copy()

Cut :

RichTextBox1.Cut()

Paste :

RichTextBox1.Paste()

Sada ide code za Font (napomena : Prvo pod All WIndows form nadjite FontDialong i ubacite ga) :


Private Sub FontToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontToolStripMenuItem1.Click
FontDialog1.ShowDialog()
End Sub

Private Sub FontDialog1_Apply(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontDialog1.Apply
FontDialog1.Font = RichTextBox1.Font

End Sub

To je to sto se tice codova.
Finalni code bi trebao izgledati ovako :

:

Public Class Form1



Private Sub FontToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontToolStripMenuItem1.Click


FontDialog1.ShowDialog()
End Sub

Private Sub FontDialog1_Apply(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontDialog1.Apply
FontDialog1.Font = RichTextBox1.Font

End Sub


Private Sub UndoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UndoToolStripMenuItem.Click
RichTextBox1.Undo()
End Sub

Private Sub SelectAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelectAllToolStripMenuItem.Click
RichTextBox1.SelectAll()
End Sub

Private Sub CopyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripMenuItem.Click
RichTextBox1.Copy()
End Sub

Private Sub CutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CutToolStripMenuItem.Click
RichTextBox1.Cut()
End Sub

Private Sub PasteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasteToolStripMenuItem.Click
RichTextBox1.Paste()

End Sub

Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
Close()

End Sub

Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
Dim Open As New OpenFileDialog()

Open.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
Open.CheckFileExists = True
Open.ShowDialog(Me)
Try
Catch ex As Exception
' Do nothing on Exception
End Try
End Sub

Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
RichTextBox1.SaveFile("Text files *.txt)|*.txt|All files (*.*)|*.*"
End Sub
End Class




Slika programa :




Source File :

Download


Tut created by mandA

svaka cast za tut

hahahahAAHAAHHAHAHAHA
Sto je macak sve procitao HAHAHAH


mogo je napisat u tut'u r3d_devil nam pusi ku**c.. ti bi reko svaka cast..

Tut super !
Čista desetka.

pusi ti meni, nisam cijelu temu procitao, ali koliko sam vidio tut je prejak

HAHAHA placem .. ocam najjaci si. mogul te u prijatelje add ?

ili nee mogli bi se dirat?

Ne spamaj po temi... Ak ti je do spama pisi mu u GB !

EDIT : United : Sa youtuba sam prije radio... Ali nista od ovoga nije sa youtuba jer je ovo prejednostavno...
Ugl. radim na 1-om "ultimate" programu pa cemo vidjet ...

Brate sve je ovo fino lijepo, svaka tebi cast...Ali posto je ovo 99% sve sa youtube-a, pokusaj to sve sto si do sada naucio, da ukomponujes u jedan program. Iskoristi to sve u jednom programu...Valjda kuzis

Nice TUT nisam sve pročitao jer nemam namjeru ovo da radim.
Brao care empty <3

Mislis da je meni do spama?

vidis da mi se postovi i ne broje xd

koji si ti debil, necu tebe dirati, daj mi broj od mame, nju bih rado dirao

ti balo jedan kad bi vidio golu zenu pobjego bih u shoku bi bio mjesec dana..
zato se poklopi da nebi ga lizno malo !

Btw zasluzio sam samar off topic sve xd


Znas li ti sta znaci btw ?

je**m ti svu familiju retardiranu

btw : prvi je poceo srati

Procitaj pravila.
Cini mi se da je clan 11.