Option Strict Off
Option Explicit On
Friend Class FrmLecture
Inherits System.Windows.Forms.Form
'Const Fichier As String = "C:\Documents and Settings\Professeur\Mes documents\Cours\VBE2008\Lecture\Client.txt"
Const Fichier As String = "C:\Documents and Settings\Professeur\Mes
documents\Cours\VBE2008\Lecture3\Lecture3\Client.t
xt"
'Déclaration des variables utilisées lors de la lecture
Dim Jjmmaa As Date = Today
Dim Hhmmss As Date = TimeOfDay
'Le type est VARIANT
'Le type est utilisé pour la déclaration de variables
'devant recevoir des données très diverses,
'ou, comme ici, des chaînes de caractères de longueur variable.
Public Rue, Voie, EMail, Titre, CP, Localite As Object
Private Sub cmdSuivant_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CmdSuivant.Click
Dim Action As Short
initvar()
If EOF(1) Then
Action = MsgBox("Vous êtes arrivé à la fin du fichier." & vbCrLf & "Voulez-vous revenir au premier enregistrement ,", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Ouvrir à nouveau le fichier ou bien quitter le programme")
If Action = MsgBoxResult.Yes Then
FileClose(1)
FileOpen(1, Fichier, OpenMode.Input)
litfichier()
Else
Exit Sub
End If
Else
litfichier()
End If
affichage()
End Sub
Private Sub cmdFermer_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdFermer.Click
FileClose(1)
End
End Sub
Private Sub FrmLecture_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
initvar()
On Error GoTo Fichierinconnu
FileOpen(1, Fichier, OpenMode.Input)
litfichier()
affichage()
Exit Sub
Fichierinconnu:
MsgBox("Erreur n° " & Err().Number & Chr(10) & "Erreur : " & ErrorToString(Err.Number))
MsgBox("Le fichier : " & Fichier & " n'existe pas ! " & vbCrLf & "Le programme doit être arrêté !", MsgBoxStyle.Critical, "Erreur critique")
Me.Close()
End Sub
Public Sub initvar()
Rue = ""
Voie = ""
EMail = ""
Titre = ""
CP = ""
Localite = ""
End Sub
Public Sub litfichier()
Input(1, Jjmmaa)
Input(1, Hhmmss)
Input(1, EMail)
Input(1, Titre)
Input(1, Voie)
Input(1, Rue)
Input(1, CP)
Input(1, Localite)
End Sub
Public Sub affichage()
txtDate.Text = Jjmmaa
txtHeure.Text = CStr(Hhmmss)
txtEMail.Text = EMail
cboTitre.Text = Titre
cboVoie.Text = Voie
txtRue.Text = Rue
txtCP.Text = CP
txtVille.Text = Localite
End Sub
End Class
