Czytanie i zapisywanie do pliku tekstowego - Wygląd formularza

Funkcje programu

1) Pobieranie do obiektu RichTexBox tekstu z pliku tekstowego po naciśnięciu przycisku Pobierz tekst z pliku
2) Po wybraniu numeru linii w obiekcie NumericUpDown tekst z wybranej linii pokazuje się w etykiecie linia z

obiektu RichTexBox

3) Po naciśnięciu przycisku Zapisz tekst do pliku tekstowego, tekst z RichTextBox zostanie zapisany do pliku txt

Dodatkowe elementy do wykonania

4) Umieścić etykietę która będzie pokazywała liczbę linii w obiekcie RichTextBox
5) Umieścić na formularzu obiekt PictureBox i wyświetlić zdjęcie.

Kod program

Procedura zdarzeniowe dla przycisku pierwszego

Private

Sub

Button1_Click(sender

As

Object

, e

As

EventArgs

)

Handles

Button1.Click

Dim

nazwapliku

As

String

Dim

liczba_l

As

Integer

Dim

openFileDialog1

As

New

OpenFileDialog

()

openFileDialog1.InitialDirectory =

"c:\"

openFileDialog1.Filter =

"txt files (*.txt)|*.txt|All files (*.*)|*.*"

openFileDialog1.FilterIndex = 2
openFileDialog1.RestoreDirectory =

True

If

openFileDialog1.ShowDialog() = Windows.Forms.

DialogResult

.OK

Then

nazwapliku = openFileDialog1.FileName()
MsgBox(nazwapliku)
RichTextBox1.LoadFile(nazwapliku,

RichTextBoxStreamType

.PlainText)

End

If

liczba_l = RichTextBox1.Lines.Count()
MsgBox(liczba_l)
NumericUpDown1.Maximum = liczba_l - 1

End

Sub

Procedura zdarzeniowa związana ze zmiana wyświetlanego numeru linii

Private

Sub

NumericUpDown1_ValueChanged(sender

As

Object

, e

As

EventArgs

)

Handles

NumericUpDown1.ValueChanged

Dim

n

As

Integer

n = NumericUpDown1.Value
Label1.Text = RichTextBox1.Lines(n)

End

Sub

Procedura zdarzeniowa związana z zapisem do pliku.

Private

Sub

Button2_Click(sender

As

Object

, e

As

EventArgs

)

Handles

Button2.Click

Dim

nazwapliku

As

String

Dim

saveFileDialog1

As

New

SaveFileDialog

()

saveFileDialog1.InitialDirectory =

"c:\"

saveFileDialog1.Filter =

"txt files (*.txt)|*.txt|All files (*.*)|*.*"

saveFileDialog1.FilterIndex = 1
saveFileDialog1.RestoreDirectory =

True

If

saveFileDialog1.ShowDialog() = Windows.Forms.

DialogResult

.OK

Then

nazwapliku = saveFileDialog1.FileName()
MsgBox(nazwapliku)
RichTextBox1.SaveFile(nazwapliku,

RichTextBoxStreamType

.PlainText)

End

If

End

Sub

Wstawianie obrazka do obiektu PictureBox

Private

Private

Sub

Button3_Click(sender

As

Object

, e

As

EventArgs

)

Handles

Button3.Click

Dim

nazwapliku

As

String

Dim

openFileDialog1

As

New

OpenFileDialog

()

openFileDialog1.InitialDirectory =

"c:\"

openFileDialog1.Filter =

"png files (*.png)|*.png|All files (*.*)|*.*"

openFileDialog1.FilterIndex = 2
openFileDialog1.RestoreDirectory =

True

If

openFileDialog1.ShowDialog() = Windows.Forms.

DialogResult

.OK

Then

nazwapliku = openFileDialog1.FileName()
MsgBox(nazwapliku)
PictureBox1.SizeMode =

PictureBoxSizeMode

.Zoom

PictureBox1.Load(nazwapliku)

End

If

End

Sub

Zmiana sposobu wyświetlania obrazka w obiekcie PictureBox

Dim

i

As

Integer

Private

Sub

PictureBox1_Click(sender

As

Object

, e

As

EventArgs

)

Handles

PictureBox1.Click

Select

Case

i

Case

0

PictureBox1.SizeMode =

PictureBoxSizeMode

.AutoSize

Case

1

PictureBox1.SizeMode =

PictureBoxSizeMode

.CenterImage

Case

2

PictureBox1.SizeMode =

PictureBoxSizeMode

.Normal

Case

3

PictureBox1.SizeMode =

PictureBoxSizeMode

.StretchImage

Case

4

PictureBox1.SizeMode =

PictureBoxSizeMode

.Zoom

End

Select

i = i + 1

If

i = 5

Then

i = 0

End

Sub

Ustawienie automatycznego czasu zmiany obrazka

Private

Sub

Form1_Load(sender

As

Object

, e

As

EventArgs

)

Handles

MyBase

.Load

Timer1.Interval = 1000

REM Timer1.Start()

Timer1.Enabled =

True

End

Sub

Procedura zdarzeniowa uruchamiana automatycznie po czasie ustawionym w

Timer1.Interval

Private

Sub

Timer1_Tick(sender

As

Object

, e

As

EventArgs

)

Handles

Timer1.Tick

Select

Case

i

Case

0

PictureBox1.SizeMode =

PictureBoxSizeMode

.AutoSize

Case

1

PictureBox1.SizeMode =

PictureBoxSizeMode

.CenterImage

Case

2

PictureBox1.SizeMode =

PictureBoxSizeMode

.Normal

Case

3

PictureBox1.SizeMode =

PictureBoxSizeMode

.StretchImage

Case

4

PictureBox1.SizeMode =

PictureBoxSizeMode

.Zoom

End

Select

i = i + 1

If

i = 5

Then

i = 0

End

Sub