Imports System.ComponentModel
Imports System.IO

Public Class e_books
    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
        perceval_ou_le_conte_du_graal.ShowDialog()
    End Sub

    Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
        le_mystere_du_cercle_rouge.ShowDialog()
    End Sub

    Private Sub QuitterEbooksToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles QuitterEbooksToolStripMenuItem.Click
        Form1.Show()
        Me.Hide()
    End Sub

    Private Sub ToutQuitterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToutQuitterToolStripMenuItem.Click
        Close()
    End Sub
    Private Sub e_books_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        Dim lines() As String = File.ReadAllLines(settings1)
        If lines(4) = 1 Then
            Dim msg = MsgBox("voulez vous vraiment quitter ?", MsgBoxStyle.YesNo)
            If msg = MsgBoxResult.Yes Then
                Dim dw8 As New StreamWriter(lançer)
                dw8.WriteLine(0)
                dw8.Close()
                Form1.NotifyIcon1.Visible = False
                fermature.Show()
                Hide()
            Else
                e.Cancel = True
            End If
        Else
            Dim dw8 As New StreamWriter(lançer)
            dw8.WriteLine(0)
            dw8.Close()
            Form1.NotifyIcon1.Visible = False
            fermature.Show()
            Hide()
        End If
    End Sub

    Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
        Les_enquêtes_du_commissaire_Jérôme.ShowDialog()
    End Sub

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

    End Sub
End Class