タイトル : Re^2: イベントビューアのフィルタ 投稿日 : 2010/09/01(Wed) 14:50 投稿者 : YK
こんにちは。有難うございます。 > 試していませんが、日時を表す SYSTEMTIME 値を > DTM_SETSYSTEMTIME(=4098) で SendMessage しては如何でしょう。 こんな感じでコーディングして見ましたが駄目でした。 Dim SysTime As SYSTEMTIME Dim actDt As Date actDt = "2010/8/11" With SysTime .Year = Year(actDt) .Month = Month(actDt) .Day = Day(actDt) .DayOfWeek = Weekday(actDt) - 1 .Hour = 0 .Minute = 0 .Second = 0 End With lngRtn = SendMessage(hDate1, DTM_SETSYSTEMTIME, 0&, ByVal SysTime) |