Enhancing the User Interface

Public Class Form1

    Private Sub btnView_Click(sender As Object, e As EventArgs) Handles btnView.Click
        ' Open a file dialog to let the user choose an image
        Dim openFile As New OpenFileDialog()
        openFile.Filter = "Image Files|*.jpg;*.jpeg;*.png;*.bmp;*.gif"
        openFile.Title = "Select an Image"

        If openFile.ShowDialog() = DialogResult.OK Then
            picViewer.Image = Image.FromFile(openFile.FileName)
            Me.Text = "Picture Viewer — " & openFile.SafeFileName
        End If
    End Sub

    Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
        Me.Close()
    End Sub

End Class

Public Class LoginForm

    Private Sub LoginForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        ' Form setup
        Me.Text = "System Login"
        Me.StartPosition = FormStartPosition.CenterScreen
        Me.FormBorderStyle = FormBorderStyle.FixedDialog
        Me.MaximizeBox = False

        ' Label setup — bold font for clarity
        lblUsername.Text = "Username:"
        lblUsername.Font = New Font(lblUsername.Font, FontStyle.Bold)

        lblPassword.Text = "Password:"
        lblPassword.Font = New Font(lblPassword.Font, FontStyle.Bold)

        ' Hide password characters with asterisks
        txtPassword.PasswordChar = "*"

        ' Button colours
        btnLogin.BackColor = Color.LightGreen
        btnCancel.BackColor = Color.LightSalmon

    End Sub

    Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
        ' Basic validation
        If txtUsername.Text = "" Or txtPassword.Text = "" Then
            MessageBox.Show("Please enter both username and password.", "Validation", _
                            MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Return
        End If
        ' Authentication logic would go here
        MessageBox.Show("Welcome, " & txtUsername.Text & "!", "Login Successful")
    End Sub

    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
        Me.Close()
    End Sub

End Class

Public Class SettingsForm

    Private Sub btnApply_Click(sender As Object, e As EventArgs) Handles btnApply.Click

        ' Read checkbox states
        Dim showToolbar As Boolean = chkToolbar.Checked
        Dim showStatusBar As Boolean = chkStatusBar.Checked

        ' Read which theme radio button is selected
        Dim selectedTheme As String = "Light"
        If rdoDark.Checked Then
            selectedTheme = "Dark"
        ElseIf rdoBlue.Checked Then
            selectedTheme = "Blue"
        End If

        MessageBox.Show("Settings applied! Theme: " & selectedTheme, "Settings")
    End Sub

    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
        Me.Close()
    End Sub

End Class