MENÜ


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


 

 

Hírek

  • Kéthetente frissülő példaprogramok
    2011-04-19 22:00:13

    Minden második hétben új példaprogram, vagy egy meglévő program új "Part"-ja fog megjelenni az oldalunkon!

    Kellemes programozást, kellemes tavaszt!

  • Visual Basic 2010 Express Edititon
    2011-01-21 18:31:44

    Töltsd le a Visual Basic Express Edititon-t

    Windows-ra, angolul!

    Visual Basic 2010 Express Edition

  • Visual Basic letöltése!!
    2011-01-15 10:56:07

    Töltsd le a Visual Basic-et

    a Microsoft webhelyéről:

    VisualBasic letöltése

  • Értékelj!
    2010-11-20 09:00:46

    Kérlek értékeld ezt az oldalt a ´Szavazás´-nál,

    vagy írj nekem e-mailt (kovdan23@citromail.hu),

    hogy tudjam mit kell változtatni!!

    Köszönöm!

  • Kérdések-Teszt 1.
    2009-12-09 21:15:42

    Kérdések-Teszt 1. változatának kérdései:

    Mit csinál az alábbi parancs?

    InputBox("Hány éves vagy?", "Enter name", "25")

    Ha tudod a kérdésre a választ, akkor *.bmp formátumban küld el a

    kovdan23@citromail.hu címre. 

  • Verseny 1.
    2009-12-09 20:46:24

    Az első verseny kérdése:

    Mit csinál ez a parancs: MsgBox("Szia!") ?

    Ha tudod a választ, küld el *.bmp kiterjesztésben, névvel ellátva a

    kovdan23@citromail.hu címre!

Asztali nézet