Context.getResources().getResourceEntryName(view.getId())
コードハイライト使う必要ないねw
Context.getResources().getResourceEntryName(view.getId())
Dim logs() As System.Diagnostics.EventLog logs = System.Diagnostics.EventLog.GetEventLogs() For Each log As EventLog In logs If log.LogDisplayName <> "システム" Then Continue For End If For Each entry As EventLogEntry In log.Entries Select Case entry.EventID Case 6005 ' 起動 Console.WriteLine("起動 " & entry.TimeWritten) Case 6006 ' 終了 Console.WriteLine("終了 " & entry.TimeWritten) Console.WriteLine() Case Else Continue For End Select Next entry Next log