AzeNotepad By_Onur

[Onur Əliyev]

Qaqas Men O Problemi Tapdim Netde Gezisirdim Videolara Baxanda Gordumki TextBox Ile Hazirlanan Notepadlar Undo(Geri) Var Amma Redo(Ireli) Yoxdu

 

Amma RichTextBox Ile Edende Her Ikisi Olur Microsoftun Notepadindada Redo Yoxdu

[TΛNNΞЯ]

he Microsoftda Text Boxt la yigir Redo yoxdu ondada

[Onur Əliyev]

Bes Qaqas Bir Soz Sorusum Nece Edirsen Proqram Boyuyende TextBox-da Boyuyur?

[TΛNNΞЯ]

bunun ucun video qoyaram vaxt tapan kimi

 

1777

[Ʌüsal]

Ac faylina bu kodu yazin

artiq txt html ve s kimi formatlarida destekleyecek

 

OpenFileDialog1.Title = \"RTE - Open File\"

OpenFileDialog1.DefaultExt = \"rtf\"

OpenFileDialog1.Filter = \"Rich Text Files|*.rtf|Text Files|*.txt|HTML Files|*.htm|All Files|*.*\"

OpenFileDialog1.FilterIndex = 1

OpenFileDialog1.ShowDialog()

 

If OpenFileDialog1.FileName = \"\" Then Exit Sub

 

Dim strExt As String

strExt = System.IO.Path.GetExtension(OpenFileDialog1.FileName)

strExt = strExt.ToUpper()

 

Select Case strExt

Case \".RTF\"

RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.RichText)

Case Else

Dim txtReader As System.IO.StreamReader

txtReader = New System.IO.StreamReader(OpenFileDialog1.FileName)

RichTextBox1.Text = txtReader.ReadToEnd

txtReader.Close()

txtReader = Nothing

RichTextBox1.SelectionStart = 0

RichTextBox1.SelectionLength = 0

End Select

RichTextBox1.Modified = True

[Onur Əliyev]

Vusal Bes Save

 

Tanner, Artiq Tapdim Yes Mende Artiq Yigacam Butun Fayllar Ile...

[TΛNNΞЯ]

Vusal Ac koduna gore tesekkurler ama menim ehtiyacim yoxdu ama asakidaki kodda demeli Text Box cevirib etdim RichtextBox ama qirmizi olan kodu uygunlasdira bilmedim bayagdan ellesirem alinmir asagi bax gorek belke sen nese cixarda bildin

 

Private Sub YaddaSaxlaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YaddaSaxlaToolStripMenuItem.Click

Dim Save As New SaveFileDialog

Save.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"

Save.Title = "Save File"

Save.CheckPathExists = True

Save.ShowDialog(Me)

Try

My.Computer.FileSystem.WriteAllText(Save.FileName, RichTextBox1, False)

Catch ex As Exception

End Try

End Sub

[Ʌüsal]

hazirladigin programin nece save varsa onu yoxla

[Onur Əliyev]

Tanner Sene Save Lazimdir?

Eger Save Lazimdirsa Buyur..

 

SaveFileDialog1.Filter = "Text Document (*.txt)|*.txt|All Files (*.*)| *.*"

SaveFileDialog1.ShowDialog()

If SaveFileDialog1.FileName <> "" Then

FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)

PrintLine(1, TextBox1.Text)

FileClose(1)

End If

End Sub

[TΛNNΞЯ]

anlamadime seni biraz deqiq yazda

 

FireFox save kodun her cur yigiram mene bunu yigmag lazimdir yigmisam ama burasin uygunlasdira bilmirem olmasa basqa cur yigacam save kodun

[Onur Əliyev]

Vallah Seni Basa Dusmedim ((

[TΛNNΞЯ]

Koda gore sagol ama oz yigdigim kodu isteyirem Vusal yoxlasa ela olar

[Onur Əliyev]

Gozle Baxiram O Kodu Gorum nese tapa bildim

[TΛNNΞЯ]

Tesekkurler ozum tapdim cox sagol uygunlasdirdim

[Onur Əliyev]

Buyur Qaqas..

 

Private Sub YaddaSaxlaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YaddaSaxlaToolStripMenuItem.Click

 

Dim Save As New SaveFileDialog

Save.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"

Save.Title = "Save File"

Save.CheckPathExists = True

Save.ShowDialog(Me)

Try

My.Computer.FileSystem.WriteAllText(Save.FileName, OpenMode.Output, False)

Catch ex As Exception

End Try

End Sub

End Class

[TΛNNΞЯ]

zehmete gore sagol ama ozum uygunlasdirmisam 10 deqiqedi artiq

[Onur Əliyev]

Ok...Sevindim..Deymez Xosdu..

 

Tanner Zehmet Deyilse Cap kodunu yazda men ozum tapmisam yaziram olmur..

[TΛNNΞЯ]

PrintDialog1.ShowDialog()