52 lines
1.8 KiB
VB.net
52 lines
1.8 KiB
VB.net
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 |