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