Hello VB Experts
I need assistance in programming radio buttons and an apply button. I am at the point in the program where I am able to open a text file and display it a multiline text box however I need assistance in the programming the radio buttons. I have include my vb project file.
Please help!
Option Strict On
Imports System
Imports System.IO
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data
Public Class Form1
Dim openFileDialog1 As System.Windows.Forms.OpenFileDialog
Dim saveFileDialog1 As System.Windows.Forms.SaveFileDialog
Dim myStreamReader As System.IO.StreamReader
Dim myStreamWriter As System.IO.StreamWriter
Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
Dim Open As New OpenFileDialog()
Open.Filter = "Plain Text Files (*.txt)|*.txt|All files (*.*)|*.*"
Open.CheckFileExists = True
Open.Title = "Open"
Open.ShowDialog(Me)
Try
Open.OpenFile()
myStreamReader = System.IO.File.OpenText(Open.FileName)
textBox_pad.Text = myStreamReader.ReadToEnd()
Catch ex As Exception
' Do nothing on Exception
Finally
If Not myStreamReader Is Nothing Then
myStreamReader.Close()
End If
End Try
End Sub
'exit button
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Application.Exit()
End Sub
Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
Dim Open As New OpenFileDialog()
Open.Filter = "Plain Text Files (*.txt)|*.txt|All files (*.*)|*.*"
Open.CheckFileExists = True
Open.Title = "Open"
Open.ShowDialog(Me)
Try
Open.OpenFile()
myStreamReader = System.IO.File.OpenText(Open.FileName)
textBox_pad.Text = myStreamReader.ReadToEnd()
Catch ex As Exception
' Do nothing on Exception
Finally
If Not myStreamReader Is Nothing Then
myStreamReader.Close()
End If
End Try
End Sub
Private Sub btnToUpper_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim button As CharacterCasing
If button = CharacterCasing.Upper Then
textBox_pad.Text.ToUpper()
End If
End Sub
Private Sub btnSelectAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelectAll.Click
End Sub
Private Sub sentenceCase_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sentenceCase.CheckedChanged
End Sub
Private Sub lowerCase_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lowerCase.CheckedChanged
End Sub
Private Sub btnToUpper_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toggleCase.CheckedChanged
End Sub
Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click
End Sub
Private Sub btnApply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnApply.Click
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
End Sub
Private Sub showDirectoryPath_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles showDirectoryPath.TextChanged
End Sub
End Class