Timer, Picturebox Kullanımı

Timer, PictureBox Kullanımı:

Dim kontrol As Boolean = True

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

'Me.Opacity = Me.Opacity + 0.1

'If Me.Opacity = 1 Then

' Timer1.Enabled = False

' Me.Text = "Timer Durdu"

'End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'Timer2.Enabled = True

kontrol = False

Timer3.Enabled = True

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

'Me.Opacity = Me.Opacity - 0.1

'If Me.Opacity = 0 Then

' End

'End If

End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick

If kontrol = True Then

Me.Opacity = Me.Opacity + 0.1

If Me.Opacity = 1 Then

Timer3.Enabled = False

Me.Text = "Timer Durdu"

End If

Else

Me.Opacity = Me.Opacity - 0.1

If Me.Opacity = 0 Then

End

End If

End If

End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Label1.Text = Now

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Label1.Text = Now

PictureBox1.Visible = Not PictureBox1.Visible

Static say As Byte = 31

say = say - 1

Me.Text = say & " Sn. Kaldı"

If say = 0 Then

End

End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If TextBox1.Text = "1" And TextBox2.Text = "1" Then

Timer1.Enabled = False

MsgBox("Hoşgeldin")

End If

End Sub

Checkbox, Listbox Kullanımı ve Test Sınavı Hazırlama Programı

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

If CheckBox1.Checked = True Then

Me.Text = "İşaretli"

Else

Me.Text = "İşaret yok"

End If

End Sub

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

Me.Text = RadioButton1.Text

End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

Me.Text = RadioButton2.Text

End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

Me.Text = RadioButton3.Text

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

ListBox1.Items.Add(TextBox1.Text)

End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

TextBox1.Text = ListBox1.SelectedItem

End Sub

Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

Dim x As Boolean = False

If e.KeyCode = Keys.Enter Then

Dim i As Byte

For i = 0 To ListBox1.Items.Count - 1

If ListBox1.Items.Item(i) = TextBox1.Text Then

x = True

End If

Next

If x = False Then

MsgBox("YOK")

Else

MsgBox("VAR")

End If

End If

End Sub

Dim cevap As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

ListBox1.Items.Add(TextBox1.Text)

ListBox2.Items.Add(TextBox2.Text)

ListBox3.Items.Add(TextBox3.Text)

ListBox4.Items.Add(TextBox4.Text)

ListBox5.Items.Add(cevap)

End Sub

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

cevap = RadioButton1.Text

End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

cevap = RadioButton2.Text

End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

cevap = RadioButton3.Text

End Sub

Dim i As Byte

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

i = 0

Button2.Enabled = False

Button3.Enabled = True

Call sorual()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

If RadioButton4.Checked = False And RadioButton5.Checked = False And RadioButton6.Checked = False Then

cevap = "BOŞ"

End If

ListBox6.Items.Add(cevap)

If i < ListBox1.Items.Count - 1 Then

i = i + 1

Call sorual()

Else

MsgBox("Soru Kalmadı")

Button2.Enabled = True

Button3.Enabled = False

Call sonuc()

End If

End Sub

Public Sub sorual()

RadioButton4.Checked = False

RadioButton5.Checked = False

RadioButton6.Checked = False

Label6.Text = ListBox1.Items.Item(i)

RadioButton4.Text = ListBox2.Items.Item(i)

RadioButton5.Text = ListBox3.Items.Item(i)

RadioButton6.Text = ListBox4.Items.Item(i)

End Sub

Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged

cevap = "A"

End Sub

Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged

cevap = "B"

End Sub

Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged

cevap = "C"

End Sub

Public Sub sonuc()

Dim i, d, y, b As Byte

For i = 0 To ListBox5.Items.Count - 1

If ListBox5.Items.Item(i) = ListBox6.Items.Item(i) Then

d = d + 1

ElseIf ListBox6.Items.Item(i) = "BOŞ" Then

b = b + 1

Else

y = y + 1

End If

Next

MsgBox("Doğru Sayısı=" & d & Chr(13) & Chr(10) & "Yanlış Sayısı=" & y & Chr(13) & Chr(10) & "Boş Sayısı=" & b)

End Sub

Haber Yayınlama Sistemi

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

OpenFileDialog1.Filter = "Jpeg Dosyalar|*.jpg|Word Belgesi|*.doc|Text Dosyalar|*.txt"

OpenFileDialog1.ShowDialog()

TextBox3.Text = OpenFileDialog1.FileName

PictureBox1.Image = System.Drawing.Bitmap.FromFile(TextBox3.Text)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

ListBox1.Items.Add(TextBox1.Text)

ListBox2.Items.Add(TextBox2.Text)

ListBox3.Items.Add(TextBox3.Text)

End Sub

Dim i As Byte = 0

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If ListBox1.Items.Count > 0 Then

If i < ListBox1.Items.Count - 1 Then

i = i + 1

Else

i = 0

End If

Label4.Text = ListBox1.Items.Item(i)

Label5.Text = ListBox2.Items.Item(i)

PictureBox2.Image = System.Drawing.Bitmap.FromFile(ListBox3.Items.Item(i))

End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Timer1.Enabled = False

If i = 0 Then

i = ListBox1.Items.Count - 1

Else

i = i - 1

End If

Label4.Text = ListBox1.Items.Item(i)

Label5.Text = ListBox2.Items.Item(i)

PictureBox2.Image = System.Drawing.Bitmap.FromFile(ListBox3.Items.Item(i))

Timer1.Enabled = True

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Timer1.Enabled = False

If i = ListBox1.Items.Count - 1 Then

i = 0

Else

i = i + 1

End If

Label4.Text = ListBox1.Items.Item(i)

Label5.Text = ListBox2.Items.Item(i)

PictureBox2.Image = System.Drawing.Bitmap.FromFile(ListBox3.Items.Item(i))

Timer1.Enabled = True

End Sub

Text Dosya Kullanımı

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

FileOpen(1, "C:\deneme.txt", OpenMode.Append)

Write(1, TextBox1.Text)

Write(1, TextBox2.Text)

WriteLine(1, TextBox3.Text)

FileClose()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

ListBox1.Items.Clear()

ListBox2.Items.Clear()

ListBox3.Items.Clear()

On Error GoTo hata

FileOpen(1, "C:\deneme.txt", OpenMode.Input)

Do While Not EOF(1)

Input(1, numara)

Input(1, ad)

Input(1, soyad)

ListBox1.Items.Add(numara)

ListBox2.Items.Add(ad)

ListBox3.Items.Add(soyad)

Loop

FileClose(1)

Exit Sub

hata:

MsgBox("Belirtilen dosya bulunamadı")

Exit Sub

End Sub

Dim numara, ad, soyad As String

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim kontrol As Boolean = False

ListBox1.Items.Clear()

ListBox2.Items.Clear()

ListBox3.Items.Clear()

On Error GoTo hata

FileOpen(1, "C:\deneme.txt", OpenMode.Input)

Do While Not EOF(1)

Input(1, numara)

Input(1, ad)

Input(1, soyad)

If numara = TextBox1.Text Then

kontrol = True

ListBox1.Items.Add(numara)

ListBox2.Items.Add(ad)

ListBox3.Items.Add(soyad)

TextBox1.Text = numara

TextBox2.Text = ad

TextBox3.Text = soyad

End If

Loop

FileClose(1)

If kontrol = False Then

TextBox1.Clear()

TextBox2.Clear()

TextBox3.Clear()

MsgBox("Kayıt Bulunamadı")

End If

Exit Sub

hata:

MsgBox("Belirtilen dosya bulunamadı")

Exit Sub

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

FileOpen(1, "C:\deneme.txt", OpenMode.Input)

FileOpen(2, "C:\yedek.txt", OpenMode.Append)

Do While Not EOF(1)

Input(1, numara)

Input(1, ad)

Input(1, soyad)

If numara > TextBox1.Text Then

Write(2, numara)

Write(2, ad)

WriteLine(2, soyad)

End If

Loop

FileClose()

Kill("C:\deneme.txt")

Rename("C:\yedek.txt", "C:\deneme.txt")

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

FileOpen(1, "C:\deneme.txt", OpenMode.Input)

FileOpen(2, "C:\yedek.txt", OpenMode.Append)

Do While Not EOF(1)

Input(1, numara)

Input(1, ad)

Input(1, soyad)

If numara = TextBox1.Text Then

Write(2, TextBox1.Text)

Write(2, TextBox2.Text)

WriteLine(2, TextBox3.Text)

Else

Write(2, numara)

Write(2, ad)

WriteLine(2, soyad)

End If

Loop

FileClose()

Kill("C:\deneme.txt")

Rename("C:\yedek.txt", "C:\deneme.txt")

End Sub

Tipli Dosya Kullanımı

Structure kayıt

Dim numara As Integer

<VBFixedString(20)> Dim ad As String

<VBFixedString(30)> Dim soyad As String

Dim gucret As Integer

Dim gsayı As Byte

End Structure

Dim x As kayıt

Dim kn As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

FileOpen(1, "C:\tipli.txt", OpenMode.Random, , , Len(x))

kn = LOF(1) / Len(x) + 1

x.numara = TextBox1.Text

x.ad = TextBox2.Text

x.soyad = TextBox3.Text

x.gucret = Val(TextBox4.Text)

x.gsayı = Val(TextBox5.Text)

FilePut(1, x, kn)

FileClose()

Call liste()

End Sub

Public Sub liste()

ListBox1.Items.Clear()

ListBox2.Items.Clear()

ListBox3.Items.Clear()

ListBox4.Items.Clear()

ListBox5.Items.Clear()

ListBox6.Items.Clear()

FileOpen(1, "C:\tipli.txt", OpenMode.Random, OpenAccess.ReadWrite, OpenShare.LockReadWrite, Len(x))

Dim ks, i As Integer

ks = LOF(1) / Len(x)

For i = 1 To ks

FileGet(1, x, i)

ListBox1.Items.Add(x.numara)

ListBox2.Items.Add(x.ad)

ListBox3.Items.Add(x.soyad)

ListBox4.Items.Add(x.gucret)

ListBox5.Items.Add(x.gsayı)

ListBox6.Items.Add(x.gsayı * x.gucret)

Next

FileClose()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim kontrol As Boolean = False

FileOpen(1, "C:\tipli.txt", OpenMode.Random, OpenAccess.ReadWrite, OpenShare.LockReadWrite, Len(x))

Dim ks, i As Integer

ks = LOF(1) / Len(x)

For i = 1 To ks

FileGet(1, x, i)

If TextBox1.Text = x.numara Then

kontrol = True

TextBox1.Text = x.numara

TextBox2.Text = x.ad

TextBox3.Text = x.soyad

TextBox4.Text = x.gucret

TextBox5.Text = x.gsayı

End If

Next

FileClose()

If kontrol = False Then

TextBox1.Clear()

TextBox2.Clear()

TextBox3.Clear()

TextBox4.Clear()

TextBox5.Clear()

MsgBox("Kayıt Bulunamadı")

End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Try

FileOpen(1, "C:\tipli.txt", OpenMode.Random, OpenAccess.ReadWrite, OpenShare.LockReadWrite, Len(x))

FileGet(1, x, Val(TextBox6.Text))

TextBox1.Text = x.numara

TextBox2.Text = x.ad

TextBox3.Text = x.soyad

TextBox4.Text = x.gucret

TextBox5.Text = x.gsayı

FileClose()

Catch

MsgBox("Aradığınız Kayıt Numarası Hatalı")

FileClose()

End Try

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

FileOpen(1, "C:\tipli.txt", OpenMode.Random, OpenAccess.ReadWrite, OpenShare.LockReadWrite, Len(x))

FileOpen(2, "C:\yedek.txt", OpenMode.Random, OpenAccess.ReadWrite, OpenShare.LockReadWrite, Len(x))

Dim ks, i, j As Integer

ks = LOF(1) / Len(x)

For i = 1 To ks

FileGet(1, x, i)

If TextBox1.Text > x.numara Then

j = j + 1

FilePut(2, x, j)

End If

Next

FileClose()

Kill("C:\tipli.txt")

Rename("C:\yedek.txt", "C:\tipli.txt")

Call liste()

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

FileOpen(1, "C:\tipli.txt", OpenMode.Random, OpenAccess.ReadWrite, OpenShare.LockReadWrite, Len(x))

FileOpen(2, "C:\yedek.txt", OpenMode.Random, OpenAccess.ReadWrite, OpenShare.LockReadWrite, Len(x))

Dim ks, i As Integer

ks = LOF(1) / Len(x)

For i = 1 To ks

FileGet(1, x, i)

If TextBox1.Text > x.numara Then

FilePut(2, x, i)

Else

x.numara = TextBox1.Text

x.ad = TextBox2.Text

x.soyad = TextBox3.Text

x.gucret = Val(TextBox4.Text)

x.gsayı = Val(TextBox5.Text)

FilePut(2, x, i)

End If

Next

FileClose()

Kill("C:\tipli.txt")

Rename("C:\yedek.txt", "C:\tipli.txt")

Call liste()

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

FileOpen(1, "C:\tipli.txt", OpenMode.Random, OpenAccess.ReadWrite, OpenShare.LockReadWrite, Len(x))

FileOpen(2, "C:\yedek.txt", OpenMode.Random, OpenAccess.ReadWrite, OpenShare.LockReadWrite, Len(x))

Dim ks, i As Integer

ks = LOF(1) / Len(x)

For i = 1 To ks

FileGet(1, x, i)

x.gucret = x.gucret + (x.gucret * (Val(TextBox7.Text) / 100))

FilePut(2, x, i)

Next

FileClose()

Kill("C:\tipli.txt")

Rename("C:\yedek.txt", "C:\tipli.txt")

Call liste()

End Sub

Dim say As Byte

Private Sub TextBox2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

ListBox1.Items.Clear()

ListBox2.Items.Clear()

ListBox3.Items.Clear()

ListBox4.Items.Clear()

ListBox5.Items.Clear()

ListBox6.Items.Clear()

say = say + 1

FileOpen(1, "C:\tipli.txt", OpenMode.Random, OpenAccess.ReadWrite, OpenShare.LockReadWrite, Len(x))

Dim ks, i As Integer

ks = LOF(1) / Len(x)

For i = 1 To ks

FileGet(1, x, i)

If TextBox2.Text = Mid(Trim(x.ad), 1, say) Then

ListBox1.Items.Add(x.numara)

ListBox2.Items.Add(x.ad)

ListBox3.Items.Add(x.soyad)

ListBox4.Items.Add(x.gucret)

ListBox5.Items.Add(x.gsayı)

ListBox6.Items.Add(x.gsayı * x.gucret)

End If

Next

FileClose()

End Sub

Web Browser

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Timer1.Enabled = True

Call adreskaydet()

Call adresyukle()

End Sub

Private Sub ComboBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown

If e.KeyCode = Keys.Enter Then

Timer1.Enabled = True

Call adreskaydet()

Call adresyukle()

End If

End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If ProgressBar1.Value < 100 Then

ProgressBar1.Value = ProgressBar1.Value + 5

Else

Timer1.Enabled = False

ProgressBar1.Value = 0

WebBrowser1.Navigate(ComboBox1.Text)

End If

End Sub

Public Sub adreskaydet()

Call adreskontrol()

If cevap = False And Trim(ComboBox1.Text) > "" Then

FileOpen(1, "C:\web.txt", OpenMode.Append)

WriteLine(1, ComboBox1.Text)

FileClose()

End If

End Sub

Dim adres As String

Dim cevap As Boolean

Public Sub adreskontrol()

Try

cevap = False

FileOpen(1, "C:\web.txt", OpenMode.Input)

Do While Not EOF(1)

Input(1, adres)

If ComboBox1.Text = adres Then

cevap = True

End If

Loop

FileClose()

Catch

FileClose()

End Try

End Sub

Public Sub adresyukle()

Try

ComboBox1.Items.Clear()

FileOpen(1, "C:\web.txt", OpenMode.Input)

Do While Not EOF(1)

Input(1, adres)

ComboBox1.Items.Add(adres)

Loop

FileClose()

Catch

FileClose()

End Try

End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Call adresyukle()

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

Timer1.Enabled = True

End Sub

Richtextbox

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try

SaveFileDialog1.Filter = "Zengin Metin Biçimi|*.rtf|Word Belgesi|*.doc"

SaveFileDialog1.ShowDialog()

RichTextBox1.SaveFile(SaveFileDialog1.FileName)

Catch

End Try

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Try

OpenFileDialog1.Filter = "Zengin Metin Biçimi|*.rtf|Word Belgesi|*.doc"

OpenFileDialog1.ShowDialog()

RichTextBox1.LoadFile(OpenFileDialog1.FileName)

Catch

MsgBox(Err.Description)

End Try

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

ColorDialog1.ShowDialog()

Me.BackColor = ColorDialog1.Color

RichTextBox1.SelectionColor = ColorDialog1.Color

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

FontDialog1.ShowDialog()

RichTextBox1.SelectionFont = FontDialog1.Font

Me.Font = FontDialog1.Font

End Sub

Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

Try

SaveFileDialog1.Filter = "Zengin Metin Biçimi|*.rtf|Word Belgesi|*.doc"

SaveFileDialog1.ShowDialog()

RichTextBox1.SaveFile(SaveFileDialog1.FileName)

Catch

End Try

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ToolStripLabel1.Text = Now

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

ToolStripLabel1.Text = Now

End Sub

Private Sub AçToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AçToolStripMenuItem.Click

Try

OpenFileDialog1.Filter = "Zengin Metin Biçimi|*.rtf|Word Belgesi|*.doc"

OpenFileDialog1.ShowDialog()

RichTextBox1.LoadFile(OpenFileDialog1.FileName)

Catch

MsgBox(Err.Description)

End Try

End Sub

Private Sub ÇıkışToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÇıkışToolStripMenuItem.Click

End

End Sub

Private Sub RenkToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RenkToolStripMenuItem.Click

ColorDialog1.ShowDialog()

Me.BackColor = ColorDialog1.Color

RichTextBox1.SelectionColor = ColorDialog1.Color

End Sub

Private Sub FontToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontToolStripMenuItem.Click

FontDialog1.ShowDialog()

RichTextBox1.SelectionFont = FontDialog1.Font

Me.Font = FontDialog1.Font

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

If ToolStripProgressBar1.Value < 100 Then

ToolStripProgressBar1.Value = ToolStripProgressBar1.Value + 5

Else

ToolStripProgressBar1.Value = 0

End If

End Sub

13