Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
191 internautes nous ont dit merci ce mois-ci
Public Class Accueil
Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click
Form1.Show()
End Sub
Private Sub btn2_Click(sender As Object, e As EventArgs) Handles btn2.Click
Form2.Show()
End Sub
End Class
If Rappels.Visible = False Then
Dim estCeQue12ou3EstOuvert As Boolean = False
If JeVaisLeFairePrio1Frm.Visible = True Or JeVaisLeFaireAussiPrio2frm.Visible = True Or JeChoisiraiPrio3frm.Visible = True Then
estCeQue12ou3EstOuvert = True
End If
Dim estCeQueAujourdEstStateMinimised As Boolean = False
If Me.Visible = True And Me.WindowState = FormWindowState.Minimized Then
estCeQueAujourdEstStateMinimised = True
End If
Me.rappelVientDutilisateurNo = 1
Rappels.Show()
If aRemettre = True Then
Rappels.aRemettreRappel = True
End If
If avantPeriode <> "0" Then
Select Case Me.PourTousDataSet.Langues.Rows(0).Item(0)
Case "English"
Select Case avantPeriode
Case "Heure(s)"
avantPeriode = "Hour(s)"
Case "Jour(s)"
avantPeriode = "Day(s)"
Case "Semaine(s)"
avantPeriode = "Week(s)"
Case "Mois"
avantPeriode = "Month(s)"
Case "Année(s)"
avantPeriode = "Year(s)"
End Select
Rappels.Label2.Text = "Reminder - Will display in " + avantNombre.ToString + " " + avantPeriode
Rappels.CheckBox1.Text = "Remind me again"
Case "Francais"
Rappels.Label2.Text = "Rappel - Réapparaîtra dans " + avantNombre.ToString + " " + avantPeriode
End Select
Else
Select Case Me.PourTousDataSet.Langues.Rows(0).Item(0)
Case "English"
Rappels.Label2.Text = "Reminder "
Rappels.CheckBox1.Text = "Remind me again"
Case "Francais"
Rappels.Label2.Text = "Rappel"
End Select
End If
Rappels.Label1.Text = rappel
If Me.Utilisateur1DataSet.calendrierRappels.Rows(x).Item(10) <> "0" Then
Rappels.CheckBox1.Checked = True
If rappelBarre = True Then
Rappels.CheckBox1.Enabled = False
Else
Rappels.CheckBox1.Enabled = True
End If
Rappels.checkboxCheckedOuNon1 = True
Dim tousLesPeriodes As String = ""
Select Case Me.PourTousDataSet.Langues.Rows(0).Item(0)
Case "English"
Select Case Me.Utilisateur1DataSet.calendrierRappels.Rows(x).Item(10)
Case "Minute(s)"
tousLesPeriodes = "Minute(s)"
Case "Heure(s)"
tousLesPeriodes = "Hour(s)"
Case "Jour(s)"
tousLesPeriodes = "Day(s)"
Case "Semaine(s)"
tousLesPeriodes = "Week(s)"
Case "Mois"
tousLesPeriodes = "Month(s)"
Case "Année(s)"
tousLesPeriodes = "Year(s)"
Case Else
tousLesPeriodes = Me.Utilisateur1DataSet.calendrierRappels.Rows(x).Item(10)
End Select
Rappels.CheckBox1.Text = "Remind me in " + Me.Utilisateur1DataSet.calendrierRappels.Rows(x).Item(9).ToString + " " + tousLesPeriodes
Case "Francais"
Rappels.CheckBox1.Text = "Me rappeller dans " + Me.Utilisateur1DataSet.calendrierRappels.Rows(x).Item(9).ToString + " " + Me.Utilisateur1DataSet.calendrierRappels.Rows(x).Item(10).ToString
End Select
Else
Select Case Me.PourTousDataSet.Langues.Rows(0).Item(0)
Case "English"
Rappels.CheckBox1.Text = "Remind me in"
Case "Francais"
Rappels.CheckBox1.Text = "Me rappeller dans"
End Select
End If
Rappels.nomGardeRappel1 = rappel
Rappels.anneeGardeerappel1 = Me.Utilisateur1DataSet.calendrierRappels.Rows(x).Item(4)
Rappels.moisGarderappel1 = Me.Utilisateur1DataSet.calendrierRappels.Rows(x).Item(3)
Rappels.jourGardeRappel1 = Me.Utilisateur1DataSet.calendrierRappels.Rows(x).Item(2)
If recacherAujourdhuiApresRappel = True Then
idoNotify.Visible = True
Me.Visible = False
End If
Dim longueur1 As Short = Rappels.Label1.Left + Rappels.Label1.Width + 35
If longueur1 < 335 Then longueur1 = 335
If Rappels.Label2.Left + Rappels.Label2.Width > 335 Then
longueur1 = Rappels.Label2.Left + Rappels.Label2.Width + 50
Rappels.Button2.Left = longueur1
Rappels.PictureBox74.Left = longueur1
Rappels.PictureBox85.Left = longueur1 + Rappels.PictureBox74.Width + 6
Rappels.Width = Rappels.Button2.Left + Rappels.Button2.Width + 50
Dim largeurDeResolution As Short = (My.Computer.Screen.Bounds.Width - Rappels.Width) / 2
Rappels.Left = largeurDeResolution
Else
Rappels.Button2.Left = longueur1
Rappels.PictureBox74.Left = longueur1
Rappels.PictureBox85.Left = longueur1 + Rappels.PictureBox74.Width + 6
Rappels.Width = Rappels.Button2.Left + Rappels.Button2.Width + 50
Dim largeurDeResolution As Short = (My.Computer.Screen.Bounds.Width - Rappels.Width) / 2
Rappels.Left = largeurDeResolution
End If
If estCeQue12ou3EstOuvert = True Then Me.Visible = False
If estCeQueAujourdEstStateMinimised = True Then Me.WindowState = FormWindowState.Minimized
If Me.Utilisateur1DataSet.calendrierRappels.Rows(x).Item(11).ToString.Contains("*") = True Then
Rappels.Label2.ForeColor = Color.Red
End If
GoTo finRappels
End If
'trouver le nom de l'utilisateur Actuel
'prendre le no
Dim no As Short = AujourdHuiFrm.PourTousDataSet.UtilisateurActuel.Rows(0).Item(0)
'trouver le nom qui est associé
Dim nom As String = ""
Dim x As Integer = 0
For x = 0 To AujourdHuiFrm.PourTousDataSet.Utilisateurs.Rows.Count - 1
If AujourdHuiFrm.PourTousDataSet.Utilisateurs.Rows(x).Item(0) = no Then
nom = AujourdHuiFrm.PourTousDataSet.Utilisateurs.Rows(x).Item(1)
End If
Next
Label3.Text = nom
'vois si l'utilisateur non actuel a un mot de passe
If AujourdHuiFrm.rappelVientDutilisateurNo = AujourdHuiFrm.PourTousDataSet.UtilisateurActuel.Rows(0).Item(0) Then
AujourdHuiFrm.rappelBarre = False
Else
For x = 0 To AujourdHuiFrm.PourTousDataSet.Utilisateurs.Rows.Count - 1
If AujourdHuiFrm.rappelVientDutilisateurNo = AujourdHuiFrm.PourTousDataSet.Utilisateurs.Rows(x).Item(0) Then
If AujourdHuiFrm.PourTousDataSet.Utilisateurs.Rows(x).Item(2) <> " " Then
motDePasseGarde = AujourdHuiFrm.PourTousDataSet.Utilisateurs.Rows(x).Item(2)
Label3.Text = AujourdHuiFrm.PourTousDataSet.Utilisateurs.Rows(x).Item(1)
barreOuNon = True
Label3.Visible = False
Label1.Visible = False
TextBox1.Visible = True
Button1.Visible = True
AujourdHuiFrm.rappelBarre = True
Select Case AujourdHuiFrm.PourTousDataSet.Langues.Rows(0).Item(0)
Case "English"
TextBox1.Text = "Password"
Case "Francais"
TextBox1.Text = "Mot de passe"
End Select
Exit For
End If
End If
Next
End If
If Me.Visible = True And Me.WindowState = FormWindowState.Minimized Then estCeQueAujourdEstStateMinimised = True End If
Avez-vous faites toutes les corrections que je vous ai indiqué ?
En fait j'ai fait ce que vous m'aviez dit mais comme j'ai indiqué un peu plus haut... quand je fais ce que vous me dites... il y a une tonne d'erreur... voulez-vous vraiment que je recode 5000 pages 8.5x11 de code pour tester une hypothèse? si oui... êtes-vous assurez à 1000/100 que la solution est la bonne..
si non.. pourrions-nous essayez d'autres hypothèses d'abord?
:)
Bonne chance avec des cas plus faciles!
Merci tout de même de votre aide
À la prochaine
: )
Pierre
http://codes-sources.commentcamarche.net/faq/11151-pourquoi-mon-code-vb6-vba-ne-marche-pas-en-vb-net