Une Lisbox ou une combobox feraient l'affaire "à moindre frais"
DateTimePicker1.Format = DateTimePickerFormat.Custom DateTimePicker1.CustomFormat = "MMM-yy"
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionif Rectangle.Intersect(rect_clic,rect_enum) <> rectangle.empty then mois = liste_rectangle.indexof(rect_enum) + 1 '...
Private Sub dateTimePicker1_DropDown(sender As Object, e As EventArgs) Dim cal As IntPtr = SendMessage(dateTimePicker1.Handle, DTM_GETMONTHCAL, IntPtr.Zero, IntPtr.Zero) SendMessage(cal, MCM_SETCURRENTVIEW, IntPtr.Zero, DirectCast(1, IntPtr)) End Sub ' pinvoke: Private Const DTM_GETMONTHCAL As Integer = &H1000 + 8 Private Const MCM_SETCURRENTVIEW As Integer = &H1000 + 32 <System.Runtime.InteropServices.DllImport("user32.dll")> _ Private Shared Function SendMessage(hWnd As IntPtr, msg As Integer, wp As IntPtr, lp As IntPtr) As IntPtr End Function