Hallo,
ich hätte gern in meiner Applikation die Möglichkeit, einen Eintrag auf ein Datum zu ziehen und damit dessen Datum zu ändern. Hierzu habe ich folgendes Beispiel gefunden: http://social.msdn.microsoft.com/for...-d29968cff4ac/
Allerdings stelle ich mich zu dusslig an, das bei mir unter VB umzusetzen. Ich kenne mich nicht aus mit dem Aufruf externer Funktionen, um ehrlich zu sein, ich verstehe es auch nicht, aber ich würde es gern nutzen. Im Grunde habe ich alles, nur die Zeilen:
sehen bei mir so aus:
Kann mir jemand helfen? Gern auch mit ein paar Erklärungen, aber ich würde mich schon freuen, wenn ich es zum laufen brächte.
Dankeschön ...
Dave
ich hätte gern in meiner Applikation die Möglichkeit, einen Eintrag auf ein Datum zu ziehen und damit dessen Datum zu ändern. Hierzu habe ich folgendes Beispiel gefunden: http://social.msdn.microsoft.com/for...-d29968cff4ac/
Allerdings stelle ich mich zu dusslig an, das bei mir unter VB umzusetzen. Ich kenne mich nicht aus mit dem Aufruf externer Funktionen, um ehrlich zu sein, ich verstehe es auch nicht, aber ich würde es gern nutzen. Im Grunde habe ich alles, nur die Zeilen:
Code:
[System.Runtime.InteropServices.DllImport("user32.dll")] private static extern IntPtr SendMessage(IntPtr hWnd, int msg, IntPtr wp, IntPtr lp); private void monthCalendar1_DragDrop(object sender, DragEventArgs e) { // Generate the mouse down/up messages to select the date Point loc = monthCalendar1.PointToClient(new Point(e.X, e.Y)); IntPtr lp = (IntPtr)(loc.X | (loc.Y << 16)); SendMessage(monthCalendar1.Handle, 0x201, IntPtr.Zero, lp); SendMessage(monthCalendar1.Handle, 0x202, IntPtr.Zero, lp); // Do your stuff now //... Console.WriteLine(monthCalendar1.SelectionStart.ToString()); }
Code:
Private Declare Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wp As IntPtr, ByVal lp As IntPtr) As IntPtr Private Sub lvTag1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles dtpKalender.DragDrop If CType(sender, Control).Name = "dtpKalender" Then Dim loc As Point = dtpKalender.PointToClient(New Point(e.X, e.Y)) Dim lp As IntPtr = ctype((loc.X | (loc.Y << 16)),IntPtr) ' verursacht Fehler SendMessage(dtpKalender.Handle, 0x201, IntPtr.Zero, lp) ' verursacht Fehler SendMessage(dtpKalender.Handle, 0x202, IntPtr.Zero, lp) ' verursacht Fehler End If ...
Dankeschön ...
Dave
Comment