Programalama > VISUAL BASIC

Public Class Form1

    Private Sub YeniToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YeniToolStripMenuItem.Click
        Dim form2 As New Form
        Static i As Integer = 2
        form2.MdiParent = Me
        form2.Show()
        form2.Text = "form" & i
        i = i + 1
    End Sub

    Private Sub TürkçeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TürkçeToolStripMenuItem.Click
        If TürkçeToolStripMenuItem.Checked = True Then
            RusçaToolStripMenuItem.Checked = False
            FransızcaToolStripMenuItem.Checked = False
            İngilizceToolStripMenuItem.Checked = False
        End If
    End Sub

    Private Sub RusçaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RusçaToolStripMenuItem.Click
        If RusçaToolStripMenuItem.Checked = True Then
            TürkçeToolStripMenuItem.Checked = False
            FransızcaToolStripMenuItem.Checked = False
            İngilizceToolStripMenuItem.Checked = False
        End If
    End Sub

    Private Sub İngilizceToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles İngilizceToolStripMenuItem.Click
        If İngilizceToolStripMenuItem.Checked = True Then
            RusçaToolStripMenuItem.Checked = False
            FransızcaToolStripMenuItem.Checked = False
            RusçaToolStripMenuItem.Checked = False
        End If
    End Sub

    Private Sub FransızcaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FransızcaToolStripMenuItem.Click
        If FransızcaToolStripMenuItem.Checked = True Then
            RusçaToolStripMenuItem.Checked = False
            TürkçeToolStripMenuItem.Checked = False
            İngilizceToolStripMenuItem.Checked = False
        End If
    End Sub


    Private Sub YazıTipiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YazıTipiToolStripMenuItem.Click
        Form2.Show()
    End Sub

    Private Sub AçToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AçToolStripMenuItem.Click
        Dim OpenFileDialog As New OpenFileDialog
        OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
        OpenFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"

        If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
            Dim FileName As String = OpenFileDialog.FileName
            ' TODO: Add code here to open the file.
        End If
    End Sub

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

    Private Sub FarklıKaydetToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FarklıKaydetToolStripMenuItem.Click
        If (saveFileDialog1.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then

            Dim FileName As String = saveFileDialog1.FileName
            ' TODO: Add code here to save the file.
        End If
    End Sub

    Private Sub KaydetToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KaydetToolStripMenuItem.Click
        If (SaveFileDialog1.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then

            Dim FileName As String = SaveFileDialog1.FileName
            ' TODO: Add code here to save the file.
        End If
    End Sub

    Private Sub YazıTipiToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YazıTipiToolStripMenuItem1.Click
        Form2.Show()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i
        Dim ff As FontFamily
        For Each ff In System.Drawing.FontFamily.Families
            ToolStripComboBox1.Items.Add(ff.Name)
        Next
        For i = 8 To 72 Step 2
            ToolStripComboBox2.Items.Add(i)

        Next
    End Sub

    Private Sub ToolStripComboBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripComboBox1.Click
        TextBox1.Font = New System.Drawing.Font(ToolStripComboBox1.Text, TextBox1.Font.Size)

    End Sub

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

    End Sub

    Private Sub ToolStripComboBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripComboBox2.Click

        TextBox1.Font = New System.Drawing.Font(ToolStripComboBox1.Text, TextBox1.Font.Size)
    End Sub

    Private Sub ToolStripComboBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripComboBox2.TextChanged
        TextBox1.Font = New System.Drawing.Font(ToolStripComboBox1.Text, Val(ToolStripComboBox2.Text))

    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        If TextBox1.Font.Bold = True Then
            TextBox1.Font = New System.Drawing.Font(TextBox1.Font.Name, TextBox1.Font.Size, FontStyle.Regular)
        Else
            TextBox1.Font = New System.Drawing.Font(TextBox1.Font.Name, TextBox1.Font.Size, FontStyle.Bold)
        End If
    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        If TextBox1.Font.Italic = True Then
            TextBox1.Font = New System.Drawing.Font(TextBox1.Font.Name, TextBox1.Font.Size, FontStyle.Regular)
        Else
            TextBox1.Font = New System.Drawing.Font(TextBox1.Font.Name, TextBox1.Font.Size, FontStyle.Italic)
        End If
    End Sub

    Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
        If TextBox1.Font.Underline = True Then
            TextBox1.Font = New System.Drawing.Font(TextBox1.Font.Name, TextBox1.Font.Size, FontStyle.Regular)
        Else
            TextBox1.Font = New System.Drawing.Font(TextBox1.Font.Name, TextBox1.Font.Size, FontStyle.Underline)
        End If
    End Sub
End Class