Wie ein Datetime Vergrößern/Verkleinern Mausrad machen

Question

Wenn Sie ein Datetimepicker-Steuerelement hinzufügen, können Sie einen Teil des Steuerwerts (zum Beispiel des Monat) und verwenden Sie die Aufwärts-/Abwärtspfeile wählen können diesen Teil des Datums zu ändern/Zeitwert (z. B. Inkrementieren/Dekrementieren des Monats).

Was ich tun möchte, ist das gleiche mit dem Mausrad zu ermöglichen. Ich habe versucht, mich bei der Veranstaltung MouseWheel anzumelden, aber ich finde keinen Weg zu wissen, welcher Teil meines Datums/Zeit gerade ausgewählt ist, so dass ich nicht weiß, ob ich die Zeit, den Tag, den Monat oder die Zeit erhöhen soll Jahr.

Gibt es eine Möglichkeit, dies zu tun?

Answer 1

Eine mögliche, aber nicht ganz elegante Lösung wäre wie etwas sein:

private void dateTimePicker1_MouseWheel(object sender, System.Windows.Forms.MouseEventArgs e) 
{ 
    if (e.Delta > 0) 
    { 
     System.Windows.Forms.SendKeys.Send("{UP}"); 
    } 
    else 
    { 
     System.Windows.Forms.SendKeys.Send("{DOWN}"); 
    } 
} 

Dies sollte definitiv im allgemeinen Fall funktionieren, aber einige Ecken Fälle könnten unerwartete Ergebnisse haben (wie KeyUp/KeyDown Ereignisse überschrieben)

Answer 2

dateTimePicker1.MouseWheel += new MouseEventHandler(dateTimePicker1_MouseWheel); 

    private void dateTimePicker1_MouseWheel(object sender, System.Windows.Forms.MouseEventArgs e) 
    { 
     int incrementValue = SystemInformation.MouseWheelScrollLines; 
     //Do increment 
    } 

Referenz: http://msdn.microsoft.com/en-us/library/system.windows.forms.control.mousewheel.aspx

Answer 3

Wenn Sie die ShowUpDown Eigenschaft auf True gesetzt Sie ein Spin-Box bekommen, anstatt ein Drop-Down und dies ändert den markierten Teil des Datums. Obwohl ich gerade herausgefunden habe, dass dies irrelevant ist, da die Auf- und Abwärtspfeiltasten den hervorgehobenen Teil des Datums ändern, unabhängig davon, ob diese Eigenschaft auf "True" gesetzt ist oder nicht.

Wenn Sie diesen Code finden, sollten Sie in der Lage sein, das Mausrad auch zu arbeiten. Ich werde einen Blick darauf werfen und sehen, was ich finden kann.

UPDATE:

Ich habe gerade diese Notiz über die ShowCheckBox Eigenschaft gefunden:

lesen/schreiben. Wenn dies der Fall ist, wird ein Kontrollkästchen links neben dem Wert des Datums in der Steuerung angezeigt. Wenn das Kontrollkästchen aktiviert ist, können die Werte im Steuerelement vom Benutzer unter Laufzeit geändert werden, indem ein Teil des Datums markiert und die Pfeiltasten gedrückt werden. Wenn nicht aktiviert, kann das Datum nur geändert werden, indem Sie auf das Dropdown-Menü klicken, um den Kalender anzuzeigen. Der Standardwert ist false.

Ist dies von Nutzen?

UPDATE 2:

Ich habe nicht in der Lage gewesen, einen Code zu finden, die mit diesem besonderen Aspekte der Datetime beschäftigt. Gibt Microsoft den Code für diese Art von Steuerelementen nicht mehr frei?

Answer 4

sind nicht sicher, aber ist diese Richtung etwas Gute ..

Ist es nicht sicher, dass x-Koordinate für Monat < x für Tag < x für Jahr (unter der Annahme kein benutzerdefiniertes Format) innerhalb der Datepicker Kontrolle, wie die entlang incresing x-Achse angezeigt

dann können wir vielleicht die dateTimePicker1_MouseDown Ereignis erfassen und die x-Koordinaten zum Runterladen gesetzt, wo wir vor dem Scroll geklickt in einer variablen sagen: xCordOfClick, und diese dann Code in Fiur die Verwendung für Mausrad auf die zu erhöhen, basierend Unterschied in wo wir geklickt haben und die x-Position des Datumsspeichers.

so etwas wie

In dateTimePicker1_MouseDown (object sender, MouseEventArgs e)

{ 
     xCordOfClick = e.X; 
    } 

In Mausrad Ereignis

{ 
     //Do increment based on how far we clicked from the location of the control 
     // increment based on (xCordOfClick - dateTimePicker1.Location.X).ToString()); 
    } 

Answer 5

Ich habe versucht, dieses herauszufinden. Am Ende landete ich mit auf den Punkt:

Private Sub dtpDateTimePicker_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) 
    If e.Delta > 0 Then 
     SendKeys.Send("{Up}") 
    Else 
     SendKeys.Send("{Down}") 
    End If 
End Sub 

Sie automatisch diese Prozedur mit dieser Methode auf alle Ihre Datumsauswahl in Ihre Form und die Container hinzufügen. nennen Sie es einfach einmal in form_load:

Public Sub AttachDateTimeMouseWheels(ByRef ownerForm As Control) 

    Dim myControl As Control   

    For Each myControl In ownerForm.Controls 

     If TypeOf myControl Is DateTimePicker Then 
      AddHandler myControl.MouseWheel, AddressOf dtpDateTimePicker_MouseWheel 
     Else 
      If myControl.Controls.Count > 0 Then 
       AttachDateTimeMouseWheels(myControl) 
      End If 
     End If 

    Next 

End Sub 

Answer 6

Verwenden Sendmessage WM_KEYDOWN/WM_KEYUP

Private Sub DateTimePickerAlarm_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DateTimePickerAlarm.MouseWheel 
     If e.Delta > 0 Then 
      Native.User32.SendMessage(DateTimePickerAlarm.Handle, &H100, Keys.Up, &H1480001) 
      Native.User32.SendMessage(DateTimePickerAlarm.Handle, &H101, Keys.Up, &HC1480001) 
     Else 
      Native.User32.SendMessage(DateTimePickerAlarm.Handle, &H100, Keys.Down, &H1500001) 
      Native.User32.SendMessage(DateTimePickerAlarm.Handle, &H101, Keys.Down, &HC1500001) 
     End If 
     'msg=0x100 (WM_KEYDOWN) hwnd=0x???????? wparam=0x26 lparam=0x01480001 result=0x0 
     'msg=0x101 (WM_KEYUP) hwnd=0x???????? wparam=0x26 lparam=0xc1480001 result=0x0 
     'msg=0x100 (WM_KEYDOWN) hwnd=0x???????? wparam=0x28 lparam=0x01500001 result=0x0 
     'msg=0x101 (WM_KEYUP) hwnd=0x???????? wparam=0x28 lparam=0xc1500001 result=0x0 
    End Sub