---

Könnyebb parancsok |nehézségi fok:könnyű|

Me.Close

Bezárja az ablakot.

---

 

Me.Text1.SelectAll

A Text1 nevű szövegdobozban lévő szöveget kijelöli

---

 

Me.txt1.Text = " "

A txt1 nevű szövegdobozban lévő szöveget törli

---

---

 

Bonyolultabb parancsok |nehézségi szint: közép-haladó|

Most a "Letöltések" menüpont "Little Text Editor" projektjének egy-két részét építjük föl.

Ehhez hozz létte egy Windows Application.t, és nevezd el LTE-ra. Állítsd az ablak IsMdiContainer tulajdonságát True-ra.

Adj a szülőablakhoz egy gyerekablakot és nevezd el frmChild-re. Adj a gyerekablakhoz egy szövegdobozt, és módosíts a Dock tulajdonságát Fill-re. Majd nevezd el Text1-re.

 

Az új menüpont

1.Helyezz el egy gombot, és kattints rá kettőt. Írd be a kódot:

Dim frmTxt As New frmChild

frmTxt.MdiParent = Me

frmTxt.Show ( )

 

Gyerekablakok elrendezése

Lépcsőzetes

1. Helyezz el egy gombot, és kattints rá kettőt. Írd be a parancsot:

 

Me.LayoutMdi(MdiLayout.Cascade)

Mozaik

1. Helyezz el egy gombot, és kattints rá kettőt. Írd be a parancsot:

 

Me.LayoutMdi(MdiLayout.TileHorizontal)

 

Gyerekablak bezárása

1. Helyezz el ismét egy gombot, és kattints rá kettőt. Írd be a kódrészletet:

 

Me.ActiveMdiChild.Close ( )

 

Hosszú sorok tördelése

1. Helyezz el egy gombot, és kattints rá kettőt. Írd be a parancsot:

 

Dim frmTxt As frmChild

 

Try

frmTxt = Me.ActiveMdiChild

frmTxt.Text1.WordWrap = Not frmTxt.Text1.WordWrap

Catch ex As Exception

MsgBox("A hosszú sorok tördelése nem sikerült!")

End Try

 

Kivágás-Másolás-Beillesztés

Kivágás

1. Helyezz el egy gombot, és kattints rá 2-t. Írd be a kódot a Click esemény törzsébe:

 

Clipboard.SetDataObject(Text1.SelectedText)

Text1.SelectedText = " "

Másolás

1. Helyezz el egy gombot, és kattints rá 2-t. Írd be:

 

Clipboard.SetDataObject(Text1.SelectedText)

Beillesztés

1. Helyezz el egy gombot, és kattints rá 2-t. Írd be:

 

Text1.SelectedText = Clipboard.GetDataObject.GetData(Text1.SelectedText)

 

A betűtípus megadása

1. Helyezz el egy FontDialog-ot, és módosítsd a nevét: fd1-re.

2. Hozz létre most egy gombot, és kattints rá duplán. Írd be az alábbi kódot:

 

Dim frmTxt As frmChild

Try

frmTxt = Me.ActiveMdiChild

If fd1.ShowDialog <> Windoes.Forms.DialogResult.Cancel Then

frmTxt.Text1.Font = fd1.Font

End If

Catch ex As Exception

End Try

---

 

A megnyitás menüpont

1. Helyezz el egy OpenFileDialg-ot, és módosítsd a nevét: ofd1-re. Írd be a Filter tulajdoság szövegmezőjébe:

Szöveges fájl|*.txt

2. Helyezz el most egy gombot, és kattints rá duplán. írd be az alábbi kódot:

 

Dim fs As System.IO.FileStream

Dim sr As System.IO.StreamReader

Dim frmTxt As New frmChild

 

Try

If ofd1.ShowDialog <> Windows.Forms.Dialog.Result.Cancel Then

fs = New System.IO.FileStream(ofd1.FileName, IO.FileMode.Open)

sr = New System.IO.StreamReader (fs)

frmTxt.MdiParent = Me

frmTxt.Text1.Text = sr.ReadToEnd

sr.Close ( )

frmTxt.Text = ofd1.FileName

frmTxt.Show ( )

End If

Catch ex As Exception

MsgBox("A megnyitás nem sikerült!")

EndTry

---

 

A mentés menüpont

 

1. Helyezz el egy SaveFileDialog-ot, és adj neki sfd1 nevet. A Filter tulajdonságnak adj kedved szerint adatot, majd a DefaultExt tulajdonságnak adj txt értéket. Ez azt jeleni, hogy ha a felhasználó nem ad meg semmit kiterjesztésnek, akkor a fájlt txt formatumú lesz.

2. Majd helyezz el egy gombot, és kattints rá duplán. Írd be a kódot a Click esemény törzsébe:

 

Dim fs As System.IO.FileStream

Dim sw As System.IO.StreamWriter

Dim frmTxt As frmChild

 

Try

frmTxt = Me.ActiveMdiChild

If sfd1.ShowDialog <> Windows.Forms.Dialog.Result.Cancel Then

fs = New System.IO.FileStream(sfd1.FileName, IO.FileMode.Create)

sw = New System.IO.StreamWriter (fs)

sw.Write(frmTxt.Text1.Text)

sw.Close ( )

frmTxt.Text = sfd1.FileName

End If

Catch ex As Exception

MsgBox("A mentés nem sikerült!")

End If

---

---

 

Ha szeretnél egy kicsit programozni, gyakorlati példákon keresztül, töltsd le ezt a *.txt fájlt!:

Példák

---