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


Wyszukiwarka

Podobne podstrony:
struktury z plikiem DYSKI TWARDE dopis do pliku odczyt więcej niż 120Gb
wpis liczb do pliku
struktury z plikiem MONITORKI LCD dopis do pliku odczyt
pisanie tekstu do pliku
Wpisywanie danych do pliku test
WYTYCZNE DO DOKUMENTU TEKSTOWEGO
zapisywanie do?zy csproj FileListAbsolute
lab5 drukuje wynik do pliku wynik
Czytanie umożliwia spotkanie z prawdą Do których spośród tw

więcej podobnych podstron