comment faire changer la photo lorsque mon curseur de souris survole ma collection(sans clique)
Forum > Visual Basic 6, un évènement SelectedIndexChanged ???
Private Sub ComboBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ComboBox1.DrawItem If e.State = DrawItemState.Selected Then 'ici on affiche le texte de l'item survolé par la souris 'a toi d'utiliser ceci pour afficher ton image Debug.Print(ComboBox1.Items(e.Index).ToString) End If e.DrawBackground() e.DrawFocusRectangle() e.Graphics.DrawString(ComboBox1.Items(e.Index).ToString, e.Font, New SolidBrush(e.ForeColor), e.Bounds.Location) End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionOption Explicit On Public Class Form1 Public iAnGre, iResultat As Integer Public sTJoursCompInt() As String = {"fête de la vertu", "fête du génie", _ "fête du travail", "fête de l'opinion", _ "fête des récompenses", "fête de la révolution"} Public sTMoisRep() As String = {"Vendémiaire", "Brumaire", "Frimaire", "Nivôse", _ "Pluviôse", "Ventôse", "Germinal", "Floréal", "Prairial", _ "Messidor", "Thermidor", "Fructidor"} Public sTMoisGre() As String = {"janvier", "février", "mars", "avril", "mai", "juin", _ "juillet", "août", "septembre", "octobre", "novembre", _ "décembre"} Public sTAnRep() As String = {"an I", "an II", "an III", "an IV", "an V", "an VI", _ "an VII", "an VIII", "an IX", "an X", "an XI", "an XII", _ "an XIII", "an XIV"} Public sTAnGre() As Integer = {"1793", "1794", "1795", "1796", "1797", "1798", "1799", _ "1800", "1801", "1802", "1803", "1804", "1805", "1806"} Public sJourRep, sMoisRep, sAnRep, sJoursCompInt, sMoisGre As String Public bJourGre, bMoisGre, bTableau(0 To 30, 0 To 18) As Byte Public Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load bTableau(0, 0) 0 : bTableau(0, 1) 1 : bTableau(0, 2) = 2 : bTableau(0, 3) = 3 _ : bTableau(0, 4) 4 : bTableau(0, 5) 5 : bTableau(0, 6) = 6 _ : bTableau(0, 7) 7 : bTableau(0, 8) 8 : bTableau(0, 9) = 9 _ : bTableau(0, 10) 10 : bTableau(0, 11) 11 : bTableau(0, 12) = 12 _ : bTableau(0, 13) 13 : bTableau(0, 14) 14 : bTableau(0, 15) = 15 _ : bTableau(0, 16) 16 : bTableau(0, 17) 17 : bTableau(0, 18) = 18 bTableau(1, 0) 1 : bTableau(1, 1) 17 : bTableau(1, 2) = 18 : bTableau(1, 3) = 19 _ : bTableau(1, 4) 19 : bTableau(1, 5) 20 : bTableau(1, 6) = 20 _ : bTableau(1, 7) 21 : bTableau(1, 8) 19 : bTableau(1, 9) = 20 _ : bTableau(1, 10) 21 : bTableau(1, 11) 22 : bTableau(1, 12) = 20 _ : bTableau(1, 13) 21 : bTableau(1, 14) 22 : bTableau(1, 15) = 23 _ : bTableau(1, 16) 23 : bTableau(1, 17) 24 : bTableau(1, 18) = 24 bTableau(2, 0) 2 : bTableau(2, 1) 18 : bTableau(2, 2) = 19 : bTableau(2, 3) = 20 _ : bTableau(2, 4) 20 : bTableau(2, 5) 21 : bTableau(2, 6) = 21 _ : bTableau(2, 7) 22 : bTableau(2, 8) 20 : bTableau(2, 9) = 21 _ : bTableau(2, 10) 22 : bTableau(2, 11) 23 : bTableau(2, 12) = 21 _ : bTableau(2, 13) 22 : bTableau(2, 14) 23 : bTableau(2, 15) = 24 _ : bTableau(2, 16) 24 : bTableau(2, 17) 25 : bTableau(2, 18) = 25 bTableau(3, 0) 3 : bTableau(3, 1) 19 : bTableau(3, 2) = 20 : bTableau(3, 3) = 21 _ : bTableau(3, 4) 21 : bTableau(3, 5) 22 : bTableau(3, 6) = 22 _ : bTableau(3, 7) 23 : bTableau(3, 8) 21 : bTableau(3, 9) = 22 _ : bTableau(3, 10) 23 : bTableau(3, 11) 24 : bTableau(3, 12) = 22 _ : bTableau(3, 13) 23 : bTableau(3, 14) 24 : bTableau(3, 15) = 25 _ : bTableau(3, 16) 25 : bTableau(3, 17) 26 : bTableau(3, 18) = 26 bTableau(4, 0) 4 : bTableau(4, 1) 20 : bTableau(4, 2) = 21 : bTableau(4, 3) = 22 _ : bTableau(4, 4) 22 : bTableau(4, 5) 23 : bTableau(4, 6) = 23 _ : bTableau(4, 7) 24 : bTableau(4, 8) 22 : bTableau(4, 9) = 23 _ : bTableau(4, 10) 24 : bTableau(4, 11) 25 : bTableau(4, 12) = 23 _ : bTableau(4, 13) 24 : bTableau(4, 14) 25 : bTableau(4, 15) = 26 _ : bTableau(4, 16) 26 : bTableau(4, 17) 27 : bTableau(4, 18) = 27 bTableau(5, 0) 5 : bTableau(5, 1) 21 : bTableau(5, 2) = 22 : bTableau(5, 3) = 23 _ : bTableau(5, 4) 23 : bTableau(5, 5) 24 : bTableau(5, 6) = 24 _ : bTableau(5, 7) 25 : bTableau(5, 8) 23 : bTableau(5, 9) = 24 _ : bTableau(5, 10) 25 : bTableau(5, 11) 26 : bTableau(5, 12) = 24 _ : bTableau(5, 13) 25 : bTableau(5, 14) 26 : bTableau(5, 15) = 27 _ : bTableau(5, 16) 27 : bTableau(5, 17) 28 : bTableau(5, 18) = 28 bTableau(6, 0) 6 : bTableau(6, 1) 22 : bTableau(6, 2) = 23 : bTableau(6, 3) = 24 _ : bTableau(6, 4) 24 : bTableau(6, 6) 25 : bTableau(6, 6) = 25 _ : bTableau(6, 7) 26 : bTableau(6, 8) 24 : bTableau(6, 9) = 25 _ : bTableau(6, 10) 26 : bTableau(6, 11) 27 : bTableau(6, 12) = 25 _ : bTableau(6, 13) 26 : bTableau(6, 14) 27 : bTableau(6, 15) = 28 _ : bTableau(6, 16) 28 : bTableau(6, 17) 29 : bTableau(6, 18) = 29 bTableau(7, 0) 7 : bTableau(7, 1) 0 : bTableau(7, 2) = 24 : bTableau(7, 3) = 25 _ : bTableau(7, 4) 25 : bTableau(7, 5) 26 : bTableau(7, 6) = 26 _ : bTableau(7, 7) 27 : bTableau(7, 8) 25 : bTableau(7, 9) = 26 _ : bTableau(7, 10) 27 : bTableau(7, 11) 28 : bTableau(7, 12) = 26 _ : bTableau(7, 13) 27 : bTableau(7, 14) 28 : bTableau(7, 15) = 29 _ : bTableau(7, 16) 29 : bTableau(7, 17) 30 : bTableau(7, 18) = 30 bTableau(8, 0) 8 : bTableau(8, 1) 0 : bTableau(8, 2) = 25 : bTableau(8, 3) = 26 _ : bTableau(8, 4) 26 : bTableau(8, 5) 27 : bTableau(8, 6) = 27 _ : bTableau(8, 7) 28 : bTableau(8, 8) 26 : bTableau(8, 9) = 27 _ : bTableau(8, 10) 28 : bTableau(8, 11) 29 : bTableau(8, 12) = 27 _ : bTableau(8, 13) 28 : bTableau(8, 14) 29 : bTableau(8, 15) = 30 _ : bTableau(8, 16) 30 : bTableau(8, 17) 31 : bTableau(8, 18) = 1 bTableau(9, 0) 9 : bTableau(9, 1) 0 : bTableau(9, 2) = 26 : bTableau(9, 3) = 27 _ : bTableau(9, 4) 27 : bTableau(9, 5) 28 : bTableau(9, 6) = 28 _ : bTableau(9, 7) 29 : bTableau(9, 8) 27 : bTableau(9, 9) = 28 _ : bTableau(9, 10) 29 : bTableau(9, 11) 30 : bTableau(9, 12) = 28 _ : bTableau(9, 13) 29 : bTableau(9, 14) 30 : bTableau(9, 15) = 31 _ : bTableau(9, 16) 1 : bTableau(9, 17) 1 : bTableau(9, 18) = 2 bTableau(10, 0) 10 : bTableau(10, 1) 0 : bTableau(10, 2) = 27 _ : bTableau(10, 3) 28 : bTableau(10, 4) 28 : bTableau(10, 5) = 29 _ : bTableau(10, 6) 29 : bTableau(10, 7) 30 : bTableau(10, 8) = 28 _ : bTableau(10, 9) 29 : bTableau(10, 10) 30 : bTableau(10, 11) = 31 _ : bTableau(10, 12) 1 : bTableau(10, 13) 1 : bTableau(10, 14) = 1 _ : bTableau(10, 15) 1 : bTableau(10, 16) 2 : bTableau(10, 17) = 2 _ : bTableau(10, 18) = 3 bTableau(11, 0) 11 : bTableau(11, 1) 0 : bTableau(11, 2) = 28 _ : bTableau(11, 3) 29 : bTableau(11, 4) 29 : bTableau(11, 5) = 30 _ : bTableau(11, 6) 30 : bTableau(11, 7) 31 : bTableau(11, 8) = 1 _ : bTableau(11, 9) 1 : bTableau(11, 10) 1 : bTableau(11, 11) = 1 _ : bTableau(11, 12) 2 : bTableau(11, 13) 2 : bTableau(11, 14) = 2 _ : bTableau(11, 15) 2 : bTableau(11, 16) 3 : bTableau(11, 17) = 3 _ : bTableau(11, 18) = 4 bTableau(12, 0) 12 : bTableau(12, 1) 0 : bTableau(12, 2) = 29 _ : bTableau(12, 3) 30 : bTableau(12, 4) 30 : bTableau(12, 5) = 31 _ : bTableau(12, 6) 1 : bTableau(12, 7) 1 : bTableau(12, 8) = 2 _ : bTableau(12, 9) 2 : bTableau(12, 10) 2 : bTableau(12, 11) = 2 _ : bTableau(12, 12) 3 : bTableau(12, 13) 3 : bTableau(12, 14) = 3 _ : bTableau(12, 15) 3 : bTableau(12, 16) 4 : bTableau(12, 17) = 4 _ : bTableau(12, 18) = 5 bTableau(13, 0) 13 : bTableau(13, 1) 0 : bTableau(13, 2) = 30 _ : bTableau(13, 3) 31 : bTableau(13, 4) 1 : bTableau(13, 5) = 1 _ : bTableau(13, 6) 2 : bTableau(13, 7) 2 : bTableau(13, 8) = 3 _ : bTableau(13, 9) 3 : bTableau(13, 10) 3 : bTableau(13, 11) = 3 _ : bTableau(13, 12) 4 : bTableau(13, 13) 4 : bTableau(13, 14) = 4 _ : bTableau(13, 15) 4 : bTableau(13, 16) 5 : bTableau(13, 17) = 5 _ : bTableau(13, 18) = 6 bTableau(14, 0) 14 : bTableau(14, 1) 0 : bTableau(14, 2) = 31 _ : bTableau(14, 3) 1 : bTableau(14, 4) 2 : bTableau(14, 5) = 2 _ : bTableau(14, 6) 3 : bTableau(14, 7) 3 : bTableau(14, 8) = 4 _ : bTableau(14, 9) 4 : bTableau(14, 10) 4 : bTableau(14, 11) = 4 _ : bTableau(14, 12) 5 : bTableau(14, 13) 5 : bTableau(14, 14) = 5 _ : bTableau(14, 15) 5 : bTableau(14, 16) 6 : bTableau(14, 17) = 6 _ : bTableau(14, 18) = 7 bTableau(15, 0) 15 : bTableau(15, 1) 0 : bTableau(15, 2) = 1 _ : bTableau(15, 3) 2 : bTableau(15, 4) 3 : bTableau(15, 5) = 3 _ : bTableau(15, 6) 4 : bTableau(15, 7) 4 : bTableau(15, 8) = 5 _ : bTableau(15, 9) 5 : bTableau(15, 10) 5 : bTableau(15, 11) = 5 _ : bTableau(15, 12) 6 : bTableau(15, 13) 6 : bTableau(15, 14) = 6 _ : bTableau(15, 15) 6 : bTableau(15, 16) 7 : bTableau(15, 17) = 7 _ : bTableau(15, 18) = 8 bTableau(16, 0) 16 : bTableau(16, 1) 0 : bTableau(16, 2) = 2 _ : bTableau(16, 3) 3 : bTableau(16, 4) 4 : bTableau(16, 5) = 4 _ : bTableau(16, 6) 5 : bTableau(16, 7) 5 : bTableau(16, 8) = 6 _ : bTableau(16, 9) 6 : bTableau(16, 10) 6 : bTableau(16, 11) = 6 _ : bTableau(16, 12) 7 : bTableau(16, 13) 7 : bTableau(16, 14) = 7 _ : bTableau(16, 15) 7 : bTableau(16, 16) 8 : bTableau(16, 17) = 8 _ : bTableau(16, 18) = 9 bTableau(17, 0) 17 : bTableau(17, 1) 0 : bTableau(17, 2) = 3 _ : bTableau(17, 3) 4 : bTableau(17, 4) 5 : bTableau(17, 5) = 5 _ : bTableau(17, 6) 6 : bTableau(17, 7) 6 : bTableau(17, 8) = 7 _ : bTableau(17, 9) 7 : bTableau(17, 10) 7 : bTableau(17, 11) = 7 _ : bTableau(17, 12) 8 : bTableau(17, 13) 8 : bTableau(17, 14) = 8 _ : bTableau(17, 15) 8 : bTableau(17, 16) 9 : bTableau(17, 17) = 9 _ : bTableau(17, 18) = 10 bTableau(18, 0) 18 : bTableau(18, 1) 0 : bTableau(18, 2) = 4 : bTableau(18, 3) = 5 _ : bTableau(18, 4) 6 : bTableau(18, 5) 6 : bTableau(18, 6) = 7 _ : bTableau(18, 7) 7 : bTableau(18, 8) 8 : bTableau(18, 9) = 8 _ : bTableau(18, 10) 8 : bTableau(18, 11) 8 : bTableau(18, 12) = 9 _ : bTableau(18, 13) 9 : bTableau(18, 14) 9 : bTableau(18, 15) = 9 _ : bTableau(18, 16) 10 : bTableau(18, 17) 10 : bTableau(18, 18) = 11 bTableau(19, 0) 19 : bTableau(19, 1) 0 : bTableau(19, 2) = 5 : bTableau(19, 3) = 6 _ : bTableau(19, 4) 7 : bTableau(19, 5) 7 : bTableau(19, 6) = 8 _ : bTableau(19, 7) 8 : bTableau(19, 8) 9 : bTableau(19, 9) = 9 _ : bTableau(19, 10) 9 : bTableau(19, 11) 9 : bTableau(19, 12) = 10 _ : bTableau(19, 13) 10 : bTableau(19, 14) 10 : bTableau(19, 15) = 10 _ : bTableau(19, 16) 11 : bTableau(19, 17) 11 : bTableau(19, 18) = 12 bTableau(20, 0) 20 : bTableau(20, 1) 0 : bTableau(20, 2) = 6 : bTableau(20, 3) = 7 _ : bTableau(20, 4) 8 : bTableau(20, 5) 8 : bTableau(20, 6) = 9 _ : bTableau(20, 7) 9 : bTableau(20, 8) 10 : bTableau(20, 9) = 10 _ : bTableau(20, 10) 10 : bTableau(20, 11) 10 : bTableau(20, 12) = 11 _ : bTableau(20, 13) 11 : bTableau(20, 14) 11 : bTableau(20, 15) = 11 _ : bTableau(20, 16) 12 : bTableau(20, 17) 12 : bTableau(20, 18) = 13 bTableau(21, 0) 21 : bTableau(21, 1) 0 : bTableau(21, 2) = 7 : bTableau(21, 3) = 8 _ : bTableau(21, 4) 9 : bTableau(21, 5) 9 : bTableau(21, 6) = 10 _ : bTableau(21, 7) 10 : bTableau(21, 8) 11 : bTableau(21, 9) = 11 _ : bTableau(21, 10) 11 : bTableau(21, 11) 11 : bTableau(21, 12) = 12 _ : bTableau(21, 13) 12 : bTableau(21, 14) 12 : bTableau(21, 15) = 12 _ : bTableau(21, 16) 13 : bTableau(21, 17) 13 : bTableau(21, 18) = 14 bTableau(22, 0) 22 : bTableau(22, 1) 0 : bTableau(22, 2) = 8 : bTableau(22, 3) = 9 _ : bTableau(22, 4) 10 : bTableau(22, 5) 10 : bTableau(22, 6) = 11 _ : bTableau(22, 7) 11 : bTableau(22, 8) 12 : bTableau(22, 9) = 12 _ : bTableau(22, 10) 12 : bTableau(22, 11) 12 : bTableau(22, 12) = 13 _ : bTableau(22, 13) 13 : bTableau(22, 14) 13 : bTableau(22, 15) = 13 _ : bTableau(22, 16) 14 : bTableau(22, 17) 14 : bTableau(22, 18) = 15 bTableau(23, 0) 23 : bTableau(23, 1) 0 : bTableau(23, 2) = 9 : bTableau(23, 3) = 10 _ : bTableau(23, 4) 11 : bTableau(23, 5) 11 : bTableau(23, 6) = 12 _ : bTableau(23, 7) 12 : bTableau(23, 8) 13 : bTableau(23, 9) = 13 _ : bTableau(23, 10) 13 : bTableau(23, 11) 13 : bTableau(23, 12) = 14 _ : bTableau(23, 13) 14 : bTableau(23, 14) 14 : bTableau(23, 15) = 14 _ : bTableau(23, 16) 15 : bTableau(23, 17) 15 : bTableau(23, 18) = 16 bTableau(24, 0) 24 : bTableau(24, 1) 0 : bTableau(24, 2) = 10 : bTableau(24, 3) = 11 _ : bTableau(24, 4) 12 : bTableau(24, 5) 12 : bTableau(24, 6) = 13 _ : bTableau(24, 7) 13 : bTableau(24, 8) 14 : bTableau(24, 9) = 14 _ : bTableau(24, 10) 14 : bTableau(24, 11) 14 : bTableau(24, 12) = 15 _ : bTableau(24, 13) 15 : bTableau(24, 14) 15 : bTableau(24, 15) = 15 _ : bTableau(24, 16) 16 : bTableau(24, 17) 16 : bTableau(24, 18) = 17 bTableau(25, 0) 25 : bTableau(25, 1) 0 : bTableau(25, 2) = 11 : bTableau(25, 3) = 12 _ : bTableau(25, 4) 13 : bTableau(25, 5) 13 : bTableau(25, 6) = 14 _ : bTableau(25, 7) 14 : bTableau(25, 8) 15 : bTableau(25, 9) = 15 _ : bTableau(25, 10) 15 : bTableau(25, 11) 15 : bTableau(25, 12) = 16 _ : bTableau(25, 13) 16 : bTableau(25, 14) 16 : bTableau(25, 15) = 16 _ : bTableau(25, 16) 17 : bTableau(25, 17) 17 : bTableau(25, 18) = 18 bTableau(26, 0) 26 : bTableau(26, 1) 0 : bTableau(26, 2) = 12 : bTableau(26, 3) = 13 _ : bTableau(26, 4) 14 : bTableau(26, 5) 14 : bTableau(26, 6) = 15 _ : bTableau(26, 7) 15 : bTableau(26, 8) 16 : bTableau(26, 9) = 16 _ : bTableau(26, 10) 16 : bTableau(26, 11) 16 : bTableau(26, 12) = 17 _ : bTableau(26, 13) 17 : bTableau(26, 14) 17 : bTableau(26, 15) = 17 _ : bTableau(26, 16) 18 : bTableau(26, 17) 18 : bTableau(26, 18) = 19 bTableau(27, 0) 27 : bTableau(27, 1) 0 : bTableau(27, 2) = 13 : bTableau(27, 3) = 14 _ : bTableau(27, 4) 15 : bTableau(27, 5) 15 : bTableau(27, 6) = 16 _ : bTableau(27, 7) 16 : bTableau(27, 8) 17 : bTableau(27, 9) = 17 _ : bTableau(27, 10) 17 : bTableau(27, 11) 17 : bTableau(27, 12) = 18 _ : bTableau(27, 13) 18 : bTableau(27, 14) 18 : bTableau(27, 15) = 18 _ : bTableau(27, 16) 19 : bTableau(27, 17) 19 : bTableau(27, 18) = 20 bTableau(28, 0) 28 : bTableau(28, 1) 0 : bTableau(28, 2) = 14 : bTableau(28, 3) = 15 _ : bTableau(28, 4) 16 : bTableau(28, 5) 16 : bTableau(28, 6) = 17 _ : bTableau(28, 7) 17 : bTableau(28, 8) 18 : bTableau(28, 9) = 18 _ : bTableau(28, 10) 18 : bTableau(28, 11) 18 : bTableau(28, 12) = 19 _ : bTableau(28, 13) 19 : bTableau(28, 14) 19 : bTableau(28, 15) = 19 _ : bTableau(28, 16) 20 : bTableau(28, 17) 20 : bTableau(28, 18) = 21 bTableau(29, 0) 29 : bTableau(29, 1) 0 : bTableau(29, 2) = 15 : bTableau(29, 3) = 16 _ : bTableau(29, 4) 17 : bTableau(29, 5) 17 : bTableau(29, 6) = 18 _ : bTableau(29, 7) 18 : bTableau(29, 8) 19 : bTableau(29, 9) = 19 _ : bTableau(29, 10) 19 : bTableau(29, 11) 19 : bTableau(29, 12) = 20 _ : bTableau(29, 13) 20 : bTableau(29, 14) 20 : bTableau(29, 15) = 20 _ : bTableau(29, 16) 21 : bTableau(29, 17) 21 : bTableau(29, 18) = 22 bTableau(30, 0) 30 : bTableau(30, 1) 0 : bTableau(30, 2) = 16 : bTableau(30, 3) = 17 _ : bTableau(30, 4) 18 : bTableau(30, 5) 18 : bTableau(30, 6) = 19 _ : bTableau(30, 7) 19 : bTableau(30, 8) 20 : bTableau(30, 9) = 20 _ : bTableau(30, 10) 20 : bTableau(30, 11) 20 : bTableau(30, 12) = 21 _ : bTableau(30, 13) 21 : bTableau(30, 14) 21 : bTableau(30, 15) = 21 _ : bTableau(30, 16) 22 : bTableau(30, 17) 22 : bTableau(30, 18) = 23 End Sub Sub Impossible() sJourRep = "----" sMoisRep = "Impossible" sAnRep = "----" End Sub Sub Convertir_en_gregorien() sJourRep = CmbJrep.Text sMoisRep = CmbMrep.Text sAnRep = CmbArep.Text If sMoisRep "Vendémiaire" Or sMoisRep "Brumaire" Or sMoisRep = "Frimaire" Or _ sMoisRep = "Nivôse" Then Select Case sAnRep Case "an I" iAnGre = 1792 Case "an II" iAnGre = 1793 Case "an III" iAnGre = 1794 Case "an IV" iAnGre = 1795 Case "an V" iAnGre = 1796 Case "an VI" iAnGre = 1797 Case "an VII" iAnGre = 1798 Case "an VIII" iAnGre = 1799 Case "an IX" iAnGre = 1800 Case "an X" iAnGre = 1801 Case "an XI" iAnGre = 1802 Case "an XII" iAnGre = 1803 Case "an XIII" iAnGre = 1804 Case "an XIV" iAnGre = 1805 End Select ElseIf sMoisRep "Pluviôse" Or sMoisRep "Ventôse" Or sMoisRep = "Germinal" Or _ sMoisRep "Floréal" Or sMoisRep "Prairial" Or sMoisRep = "Messidor" Or _ sMoisRep "Thermidor" Or sMoisRep "Fructidor" Then Select Case sAnRep Case "an I" iAnGre = 1793 Case "an II" iAnGre = 1794 Case "an III" iAnGre = 1795 Case "an IV" iAnGre = 1796 Case "an V" iAnGre = 1797 Case "an VI" iAnGre = 1798 Case "an VII" iAnGre = 1799 Case "an VIII" iAnGre = 1800 Case "an IX" iAnGre = 1801 Case "an X" iAnGre = 1802 Case "an XI" iAnGre = 1803 Case "an XII" iAnGre = 1804 Case "an XIII" iAnGre = 1805 Case "an XIV" iAnGre = 1806 End Select End If Select Case sMoisRep Case "Vendémiaire" Select Case iAnGre Case 1792 To 1794, 1796 To 1798 iResultat = 14 If Val(sJourRep) <= 9 Then sMoisGre = "septembre" Else sMoisGre = "octobre" End If Case 1795 iResultat = 16 If Val(sJourRep) <= 8 Then sMoisGre = "septembre" Else sMoisGre = "octobre" End If Case 1799 To 1802, 1804, 1805 iResultat = 16 If Val(sJourRep) <= 8 Then sMoisGre = "septembre" Else sMoisGre = "octobre" End If Case 1803 iResultat = 18 If Val(sJourRep) <= 7 Then sMoisGre = "septembre" Else sMoisGre = "octobre" End If End Select Case "Brumaire" Select Case iAnGre Case 1792 To 1794, 1796 To 1798 iResultat = 11 If Val(sJourRep) <= 10 Then sMoisGre = "octobre" Else sMoisGre = "novembre" End If Case 1795 iResultat = 15 If Val(sJourRep) <= 9 Then sMoisGre = "octobre" Else sMoisGre = "novembre" End If Case 1799 To 1802, 1804, 1805 iResultat = 15 If Val(sJourRep) <= 9 Then sMoisGre = "octobre" Else sMoisGre = "novembre" End If Case 1803 iResultat = 17 If Val(sJourRep) <= 8 Then sMoisGre = "octobre" Else sMoisGre = "novembre" End If End Select Case "Frimaire" Select Case iAnGre Case 1792 To 1794, 1796 To 1798 iResultat = 10 If Val(sJourRep) <= 10 Then sMoisGre = "novembre" Else sMoisGre = "décembre" End If Case 1795 iResultat = 14 If Val(sJourRep) <= 8 Then sMoisGre = "novembre" Else sMoisGre = "décembre" End If Case 1799 To 1802, 1804, 1805 iResultat = 14 If Val(sJourRep) <= 9 Then sMoisGre = "novembre" Else sMoisGre = "décembre" End If Case 1803 iResultat = 16 If Val(sJourRep) <= 8 Then sMoisGre = "novembre" Else sMoisGre = "décembre" End If End Select Case "Nivôse" Select Case iAnGre Case 1792 To 1794, 1796 To 1798 iResultat = 7 If Val(sJourRep) <= 11 Then sMoisGre = "décembre" Else sMoisGre = "janvier" iAnGre += 1 End If Case 1795 iResultat = 11 If Val(sJourRep) <= 11 Then sMoisGre = "décembre" Else sMoisGre = "janvier" iAnGre += 1 End If Case 1799 To 1802, 1804, 1805 iResultat = 11 If Val(sJourRep) <= 10 Then sMoisGre = "décembre" Else sMoisGre = "janvier" iAnGre += 1 End If Case 1803 iResultat = 15 If Val(sJourRep) <= 10 Then sMoisGre = "décembre" Else sMoisGre = "janvier" iAnGre += 1 End If End Select Case "Pluviôse" Select Case iAnGre Case 1793 To 1795, 1797 To 1799 iResultat = 5 If Val(sJourRep) <= 12 Then sMoisGre = "janvier" Else sMoisGre = "février" End If Case 1796 ' bissextile iResultat = 7 If Val(sJourRep) <= 11 Then sMoisGre = "janvier" Else sMoisGre = "février" End If Case 1800 To 1803, 1805 iResultat = 7 If Val(sJourRep) <= 11 Then sMoisGre = "janvier" Else sMoisGre = "février" End If Case 1804 ' bissextile iResultat = 11 If Val(sJourRep) <= 10 Then sMoisGre = "janvier" Else sMoisGre = "février" End If Case Else '1806 sMoisGre = "Impossible" bJourGre = 0 End Select Case "Ventôse" Select Case iAnGre Case 1793 To 1795, 1797 To 1799 iResultat = 8 If Val(sJourRep) <= 10 Then sMoisGre = "février" Else sMoisGre = "mars" End If Case 1796 ' bissextile iResultat = 9 If Val(sJourRep) <= 10 Then sMoisGre = "février" Else sMoisGre = "mars" End If Case 1800 To 1803, 1805 iResultat = 12 If Val(sJourRep) <= 9 Then sMoisGre = "février" Else sMoisGre = "mars" End If Case 1804 ' bissextile iResultat = 13 If Val(sJourRep) <= 9 Then sMoisGre = "février" Else sMoisGre = "mars" End If Case Else '1806 sMoisGre = "Impossible" bJourGre = 0 End Select Case "Germinal" Select Case iAnGre Case 1793 To 1795, 1797 To 1799 iResultat = 7 If Val(sJourRep) <= 11 Then sMoisGre = "mars" Else sMoisGre = "avril" End If Case 1796 ' bissextile iResultat = 7 If Val(sJourRep) <= 11 Then sMoisGre = "mars" Else sMoisGre = "avril" End If Case 1800 To 1803, 1805 iResultat = 11 If Val(sJourRep) <= 10 Then sMoisGre = "mars" Else sMoisGre = "avril" End If Case 1804 ' bissextile iResultat = 11 If Val(sJourRep) <= 10 Then sMoisGre = "mars" Else sMoisGre = "avril" End If Case Else '1806 sMoisGre = "Impossible" bJourGre = 0 End Select Case "Floréal" Select Case iAnGre Case 1793 To 1795, 1797 To 1799 iResultat = 6 If Val(sJourRep) <= 11 Then sMoisGre = "avril" Else sMoisGre = "mai" End If Case 1796 ' bissextile iResultat = 6 If Val(sJourRep) <= 11 Then sMoisGre = "avril" Else sMoisGre = "mai" End If Case 1800 To 1803, 1805 iResultat = 10 If Val(sJourRep) <= 10 Then sMoisGre = "avril" Else sMoisGre = "mai" End If Case 1804 ' bissextile iResultat = 10 If Val(sJourRep) <= 10 Then sMoisGre = "avril" Else sMoisGre = "mai" End If Case Else '1806 sMoisGre = "Impossible" bJourGre = 0 End Select Case "Prairial" Select Case iAnGre Case 1793 To 1795, 1797 To 1799 iResultat = 5 If Val(sJourRep) <= 12 Then sMoisGre = "mai" Else sMoisGre = "juin" End If Case 1796 ' bissextile iResultat = 5 If Val(sJourRep) <= 12 Then sMoisGre = "mai" Else sMoisGre = "juin" End If Case 1800 To 1803, 1805 iResultat = 7 If Val(sJourRep) <= 11 Then sMoisGre = "mai" Else sMoisGre = "juin" End If Case 1804 ' bissextile iResultat = 7 If Val(sJourRep) <= 11 Then sMoisGre = "mai" Else sMoisGre = "juin" End If Case Else '1806 sMoisGre = "Impossible" bJourGre = 0 End Select Case "Messidor" Select Case iAnGre Case 1793 To 1795, 1797 To 1799 iResultat = 4 If Val(sJourRep) <= 12 Then sMoisGre = "juin" Else sMoisGre = "juillet" End If Case 1796 ' bissextile iResultat = 4 If Val(sJourRep) <= 12 Then sMoisGre = "juin" Else sMoisGre = "juillet" End If Case 1800 To 1803, 1805 iResultat = 6 If Val(sJourRep) <= 11 Then sMoisGre = "juin" Else sMoisGre = "juillet" End If Case 1804 ' bissextile iResultat = 6 If Val(sJourRep) <= 11 Then sMoisGre = "juin" Else sMoisGre = "juillet" End If Case Else '1806 sMoisGre = "Impossible" bJourGre = 0 End Select Case "Thermidor" Select Case iAnGre Case 1793 To 1795, 1797 To 1799 iResultat = 3 If Val(sJourRep) <= 13 Then sMoisGre = "juillet" Else sMoisGre = "août" End If Case 1796 ' bissextile iResultat = 3 If Val(sJourRep) <= 13 Then sMoisGre = "juillet" Else sMoisGre = "août" End If Case 1800 To 1803, 1805 iResultat = 5 If Val(sJourRep) <= 12 Then sMoisGre = "juillet" Else sMoisGre = "août" End If Case 1804 ' bissextile iResultat = 5 If Val(sJourRep) <= 12 Then sMoisGre = "juillet" Else sMoisGre = "août" End If Case Else '1806 sMoisGre = "Impossible" bJourGre = 0 End Select Case "Fructidor" Select Case iAnGre Case 1793 To 1795, 1797 To 1799 iResultat = 2 If Val(sJourRep) <= 14 Then sMoisGre = "août" Else sMoisGre = "septembre" End If Case 1796 ' bissextile iResultat = 2 If Val(sJourRep) <= 14 Then sMoisGre = "août" Else sMoisGre = "septembre" End If Case 1800 To 1803, 1805 iResultat = 3 If Val(sJourRep) <= 13 Then sMoisGre = "août" Else sMoisGre = "septembre" End If Case 1804 ' bissextile iResultat = 3 If Val(sJourRep) <= 13 Then sMoisGre = "août" Else sMoisGre = "septembre" End If Case Else '1806 sMoisGre = "Impossible" bJourGre = 0 End Select End Select bJourGre = bTableau(Val(sJourRep), iResultat) End Sub Sub JoursComplementaires() sJoursCompInt = CmbJcompInt.Text sJourRep = CmbJrep.Text sMoisRep = CmbMrep.Text sAnRep = CmbArep.Text sMoisRep = "Fructidor" Select Case sAnRep Case "an I" iAnGre = 1793 Case "an II" iAnGre = 1794 Case "an III" iAnGre = 1795 Case "an IV" iAnGre = 1796 Case "an V" iAnGre = 1797 Case "an VI" iAnGre = 1798 Case "an VII" iAnGre = 1799 Case "an VIII" iAnGre = 11800 Case "an IX" iAnGre = 1801 Case "an X" iAnGre = 1802 Case "an XI" iAnGre = 1803 Case "an XII" iAnGre = 1804 Case "an XIII" iAnGre = 1805 Case "an XIV" iAnGre = 1806 End Select Select Case sJoursCompInt Case "fête de la vertu" '-Vertu an I à an VII Select Case iAnGre Case 1793 To 1799 '"an I" To "an VII" iResultat = 1 sJourRep = "1" sMoisGre = "septembre" Case 1800 To 1806 '-Vertu an VIII à an XIV iResultat = 2 sJourRep = "1" sMoisGre = "septembre" End Select Case "fête du génie" '-Génie Select Case iAnGre Case 1793 To 1799 '"an I" To "an VII" iResultat = 1 sJourRep = "2" sMoisGre = "septembre" Case 1800 To 1806 '"an VIII" To "an XIV" iResultat = 2 sJourRep = "2" sMoisGre = "septembre" End Select Case "fête du travail" '-Travail Select Case iAnGre Case 1793 To 1799 '"an I" To "an VII" iResultat = 1 sJourRep = "3" sMoisGre = "septembre" Case 1800 To 1806 '"an VIII" To "an XIV" iResultat = 2 sJourRep = "3" sMoisGre = "septembre" End Select Case "fête de l'opinion" '-opinion Select Case iAnGre Case 1793 To 1799 '"an I" To "an VII" iResultat = 1 sJourRep = "4" sMoisGre = "septembre" Case 1800 To 1806 '"an VIII" To "an XIV" iResultat = 2 sJourRep = "4" sMoisGre = "septembre" End Select Case "fête des récompenses" '- récompense an II Select Case iAnGre Case 1793 To 1799 '"an I" à "an VII" iResultat = 1 sJourRep = "5" sMoisGre = "septembre" Case 1800 To 1806 ' an VIII à an XIV iResultat = 2 sJourRep = "5" sMoisGre = "septembre" End Select Case "fête de la révolution" Select Case iAnGre Case 1795, 1799, 1803 '"an III", "an VII", "an XI" iResultat = 2 sJourRep = "6" sMoisGre = "septembre" End Select End Select ' sJoursCompInt bJourGre = bTableau(Val(sJourRep), iResultat) End Sub Private Sub Conv1793() If iAnGre = 1793 Then sAnRep = "an I" ElseIf iAnGre = 1794 Then sAnRep = "an II" ElseIf iAnGre = 1795 Then sAnRep = "an III" ElseIf iAnGre = 1796 Then sAnRep = "an IV" ElseIf iAnGre = 1797 Then sAnRep = "an V" ElseIf iAnGre = 1798 Then sAnRep = "an VI" ElseIf iAnGre = 1799 Then sAnRep = "an VII" ElseIf iAnGre = 1800 Then sAnRep = "an VIII" ElseIf iAnGre = 1801 Then sAnRep = "an IX" ElseIf iAnGre = 1802 Then sAnRep = "an X" ElseIf iAnGre = 1803 Then sAnRep = "an XI" ElseIf iAnGre = 1804 Then sAnRep = "an XII" ElseIf iAnGre = 1805 Then sAnRep = "an XIII" ElseIf iAnGre = 1806 Then sJourRep = "----" sMoisRep = "Impossible" sAnRep = "----" End If End Sub Private Sub conv1792() If iAnGre = 1792 Then sAnRep = "an I" ElseIf iAnGre = 1793 Then sAnRep = "an II" ElseIf iAnGre = 1794 Then sAnRep = "an III" ElseIf iAnGre = 1795 Then sAnRep = "an IV" ElseIf iAnGre = 1796 Then sAnRep = "an V" ElseIf iAnGre = 1797 Then sAnRep = "an VI" ElseIf iAnGre = 1798 Then sAnRep = "an VII" ElseIf iAnGre = 1799 Then sAnRep = "an VIII" ElseIf iAnGre = 1800 Then sAnRep = "an IX" ElseIf iAnGre = 1801 Then sAnRep = "an X" ElseIf iAnGre = 1802 Then sAnRep = "an XI" ElseIf iAnGre = 1803 Then sAnRep = "an XII" ElseIf iAnGre = 1804 Then sAnRep = "an XIII" ElseIf iAnGre = 1805 Then sAnRep = "an XIV" End If End Sub Sub Convertir_en_republicain() bJourGre = Val(CmbJGre.Text) bMoisGre = Val(CmbMgre.Text) sMoisGre = CmbMgre.Text iAnGre = Val(CmbAgre.Text) Select Case sMoisGre Case "Janvier" Conv1793() Select Case sAnRep Case "an I", "an II", "an III", "an V", "an VI", "an VII" ' 1793, 94, 95, 97 à 99 If bJourGre < 20 Then ' 1er jour du mois -1 soit 21-1 mois républicain sMoisRep = "Nivôse" sJourRep = Str(bJourGre + 11) ' 20+11 nbre de jours mois grégorien Else sMoisRep = "Pluviôse" sJourRep = Str(bJourGre - 19) ' 19+11 nbre de jours mois républicain End If Case "an IV" ' 1796 bissextile If bJourGre < 21 Then sMoisRep = "Nivôse" sJourRep = Str(bJourGre + 10) Else sMoisRep = "Pluviôse" sJourRep = Str(bJourGre - 20) ' ok End If Case "an VIII", "an IX", "an X", "an XI", "an XIII" ' 1800 à 1803, 1805 If bJourGre < 21 Then sMoisRep = "Nivôse" sJourRep = Str(bJourGre + 10) Else sMoisRep = "Pluviôse" sJourRep = Str(bJourGre - 20) End If Case "an XII" If bJourGre < 22 Then sMoisRep = "Nivôse" sJourRep = Str(bJourGre + 9) Else sMoisRep = "Pluviôse" sJourRep = Str(bJourGre - 21) 'ok End If End Select ' sAnRep Case "Février" Conv1793() Select Case sAnRep Case "an I", "an II", "an III", "an V", "an VI", "an VII" ' 1793, 94, 95, 97 à 99 If bJourGre < 19 Then sMoisRep = "Pluviôse" sJourRep Str(bJourGre + 12) ' 19+12 31 ok Else If bJourGre <= 28 Then sMoisRep = "Ventôse" sJourRep Str(bJourGre - 18) ' 12+18 30 ok Else Impossible() End If End If Case "an IV", "an VIII" ' 1796, 1800 bissextile If bJourGre < 20 Then sMoisRep = "Pluviôse" sJourRep Str(bJourGre + 11) '20+11 31 ok Else If bJourGre <= 29 Then sMoisRep = "Ventôse" sJourRep Str(bJourGre - 19) ' 11+19 30 ok Else Impossible() End If End If Case "an VIII", "an IX", "an X", "an XI", "an XIII" If bJourGre < 20 Then sMoisRep = "Pluviôse" sJourRep = Str(bJourGre + 11) ' 20+11=31 ok Else If bJourGre <= 28 Then sMoisRep = "Ventôse" sJourRep = Str(bJourGre - 19) ' 11+19=30 ok Else Impossible() End If End If Case "an XII" ' 1804 bissextile If bJourGre < 21 Then sMoisRep = "Pluviôse" sJourRep = Str(bJourGre + 10) ' 21+10= 31ok Else If bJourGre <= 29 Then sMoisRep = "Ventôse" sJourRep Str(bJourGre - 20) '10+20 30 ok Else Impossible() End If End If End Select Case "Mars" Conv1793() Select Case sAnRep Case "an I", "an II", "an III", "an V", "an VI", "an VII" If bJourGre < 21 Then sMoisRep = "Ventôse" sJourRep = Str(bJourGre + 10) ' 21+10=31 ok Else sMoisRep = "Germinal" sJourRep = Str(bJourGre - 20) ' 10+20=30 ok End If Case "an IV" If bJourGre < 21 Then sMoisRep = "Ventôse" sJourRep = Str(bJourGre + 10) ' 21+10=31 Else sMoisRep = "Germinal" sJourRep = Str(bJourGre - 20) ' 10+20=30 End If Case "an VIII", "an IX", "an X", "an XI", "an XIII" If bJourGre < 22 Then sMoisRep = "Ventôse" sJourRep = Str(bJourGre + 9) ' 22+9=31 Else sMoisRep = "Germinal" sJourRep Str(bJourGre - 21) ' 9+2130 End If Case "an XII" If bJourGre < 22 Then sMoisRep = "Ventôse" sJourRep = Str(bJourGre + 9) ' 22+9=31 Else sMoisRep = "Germinal" sJourRep = Str(bJourGre - 21) ' 9+21=30 End If End Select Case "Avril" Conv1793() Select Case sAnRep Case "an I", "an II", "an III", "an V", "an VI", "an VII" If bJourGre < 20 Then sMoisRep = "Germinal" sJourRep = Str(bJourGre + 11) ' 20+11=31 Else If bJourGre <= 30 Then sMoisRep = "Floréal" sJourRep = Str(bJourGre - 19) ' 11+19=30 Else Impossible() End If End If Case "an IV" If bJourGre < 20 Then sMoisRep = "Germinal" sJourRep = Str(bJourGre + 11) ' 20+11=31 Else If bJourGre <= 30 Then sMoisRep = "Floréal" sJourRep = Str(bJourGre - 19) ' 11+19=30 Else Impossible() End If End If Case "an VIII", "an IX", "an X", "an XI", "an XIII" If bJourGre < 21 Then sMoisRep = "Germinal" sJourRep = Str(bJourGre + 10) ' 21+10=31 Else If bJourGre <= 30 Then sMoisRep = "Floréal" sJourRep = Str(bJourGre - 20) ' 10+20=30 Else Impossible() End If End If Case "an XII" If bJourGre < 21 Then sMoisRep = "Germinal" sJourRep = Str(bJourGre + 10) ' 21+10=31 Else If bJourGre <= 30 Then sMoisRep = "Floréal" sJourRep = Str(bJourGre - 20) ' 10+20=30 Else Impossible() End If End If End Select Case "Mai" Conv1793() Select Case sAnRep Case "an I", "an II", "an III", "an V", "an VI", "an VII" If bJourGre < 20 Then sMoisRep = "Floréal" sJourRep = Str(bJourGre + 11) ' 20+11=31 Else sMoisRep = "Prairial" sJourRep = Str(bJourGre - 19) ' 11+19=30 End If Case "an IV" If bJourGre < 20 Then sMoisRep = "Floréal" sJourRep = Str(bJourGre + 11) '20+11=31 Else If bJourGre <= 30 Then sMoisRep = "Prairial" sJourRep = Str(bJourGre - 19) ' 11+19=30 End If End If Case "an VIII", "an IX", "an X", "an XI", "an XIII" If bJourGre < 21 Then sMoisRep = "Floréal" sJourRep = Str(bJourGre + 10) '21+10=31 Else If bJourGre <= 30 Then sMoisRep = "Prairial" sJourRep = Str(bJourGre - 20) ' 10+20=30 End If End If Case "an XII" If bJourGre < 21 Then sMoisRep = "Floréal" sJourRep = Str(bJourGre + 10) '21+10=31 Else If bJourGre <= 30 Then sMoisRep = "Prairial" sJourRep = Str(bJourGre - 20) ' 10+20=30 End If End If End Select Case "Juin" Conv1793() Select Case sAnRep Case "an I", "an II", "an III", "an V", "an VI", "an VII" If bJourGre < 19 Then sMoisRep = "Prairial" sJourRep = Str(bJourGre + 12) '19+12=31 Else If bJourGre <= 30 Then sMoisRep = "Messidor" sJourRep = Str(bJourGre - 18) '12+18=30 Else Impossible() End If End If Case "an IV" If bJourGre < 19 Then sMoisRep = "Prairial" sJourRep = Str(bJourGre + 12) ' 19+12=31 Else If bJourGre <= 30 Then sMoisRep = "Messidor" sJourRep = Str(bJourGre - 18) ' 12+18=30 Else Impossible() End If End If Case "an VIII", "an IX", "an X", "an XI", "an XIII" If bJourGre < 20 Then sMoisRep = "Prairial" sJourRep = Str(bJourGre + 11) ' 20+11=31 Else If bJourGre <= 30 Then sMoisRep = "Messidor" sJourRep = Str(bJourGre - 19) ' 11+19=30 Else Impossible() End If End If Case "an XII" If bJourGre < 20 Then sMoisRep = "Prairial" sJourRep = Str(bJourGre + 11) ' 20+11=31 Else If bJourGre <= 30 Then sMoisRep = "Messidor" sJourRep = Str(bJourGre - 19) ' 11+19=30 Else Impossible() End If End If End Select Case "Juillet" Conv1793() Select Case sAnRep Case "an I", "an II", "an III", "an V", "an VI", "an VII" If bJourGre < 19 Then sMoisRep = "Messidor" sJourRep = Str(bJourGre + 12) '19+12=31 Else sMoisRep = "Thermidor" sJourRep = Str(bJourGre - 18) '12+18=30 End If Case "an IV" If bJourGre < 19 Then sMoisRep = "Messidor" sJourRep = Str(bJourGre + 12) '19+12=31 Else sMoisRep = "Thermidor" sJourRep = Str(bJourGre - 18) '12+18=30 End If Case "an VIII", "an IX", "an X", "an XI", "an XIII" If bJourGre < 20 Then sMoisRep = "Messidor" sJourRep = Str(bJourGre + 11) '20+11=31 Else sMoisRep = "Thermidor" sJourRep = Str(bJourGre - 19) '11+19=30 End If Case "an XII" If bJourGre < 20 Then sMoisRep = "Messidor" sJourRep = Str(bJourGre + 11) '20+11=31 Else sMoisRep = "Thermidor" sJourRep = Str(bJourGre - 19) '11+19=30 End If Case "an VIII", "an IX", "an X", "an XI", "an XIII" If bJourGre < 19 Then sMoisRep = "Messidor" sJourRep = Str(bJourGre + 12) '19+12=31 Else sMoisRep = "Thermidor" sJourRep = Str(bJourGre - 18) '12+18=30 End If Case "an XII" If bJourGre < 19 Then sMoisRep = "Messidor" sJourRep = Str(bJourGre + 12) '19+12=31 Else sMoisRep = "Thermidor" sJourRep = Str(bJourGre - 18) '12+18=30 End If End Select Case "Août" Conv1793() Select Case sAnRep Case "an I", "an II", "an III", "an V", "an VI", "an VII" If bJourGre < 18 Then sMoisRep = "Thermidor" sJourRep = Str(bJourGre + 13) '18+13=31 Else sMoisRep = "Fructidor" sJourRep = Str(bJourGre - 17) '13+17=30 End If Case "an IV" If bJourGre < 18 Then sMoisRep = "Thermidor" sJourRep = Str(bJourGre + 13) '18+13=31 Else sMoisRep = "Fructidor" sJourRep = Str(bJourGre - 17) '13+17=30 End If Case "an VIII", "an IX", "an X", "an XI", "an XIII" If bJourGre < 19 T
PictureBox2.Image = ImageList1.Images(e.index)