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