Namespace OnUtils Class DelayedEvent Event Elapsed Property DelayMilliseconds As Integer Property DelegateControl As System.Windows.Forms.Control ReadOnly Property IsWaiting As Boolean Sub New(NewDelayMilliSeconds As Integer) Sub New(NewDelayMilliSeconds As Integer, NewDelegateControl As System.Windows.Forms.Control) Sub Trigger() Sub Cancel() NotInheritable Class DisplayItem Shared Function Create(Of T)(NewDisplayText As String, NewValue As T) As DisplayItem(Of T) Class DisplayItem(Of T) Overridable Property DisplayText As String Property Value As T Sub New(NewDisplayText As String, NewValue As T) Overrides Function ToString() As String NotInheritable Class Helpers Function GetAbsolutePath(RelativePath As String) As String Function GetObjectAddress(Value As Object) As IntPtr Class NopeException Inherits Exception Sub New() Sub New(NewNopeMessage As String) Sub New(NewInnerException As Exception) Sub New(NewNopeMessage As String, NewInnerException As Exception) NotInheritable Class Resizing Shared Function Resize(SourceWidth As Integer, SourceHeight As Integer, TargetX As Integer, TargetY As Integer, TargetWidth As Integer, TargetHeight As Integer, Optional Mode As ResizeMode = ResizeMode.Uniform) As Rectangle Shared Function Resize(SourceWidth As Single, SourceHeight As Single, TargetX As Single, TargetY As Single, TargetWidth As Single, TargetHeight As Single, Optional Mode As ResizeMode = ResizeMode.Uniform) As RectangleF Shared Function Resize(SourceWidth As Double, SourceHeight As Double, TargetX As Double, TargetY As Double, TargetWidth As Double, TargetHeight As Double, Optional Mode As ResizeMode = ResizeMode.Uniform) As RectangleD Enum ResizeMode As Integer Uniform = 1 UniformToFill = 2 Structure RectangleD ReadOnly Property X As Double ReadOnly Property Y As Double ReadOnly Property Width As Double ReadOnly Property Height As Double ReadOnly Property Left As Double ReadOnly Property Top As Double ReadOnly Property Right As Double ReadOnly Property Bottom As Double Sub New(NewX As Double, NewY As Double, NewWidth As Double, NewHeight As Double) Function Contains(X As Double, Y As Double) As Boolean Function Contains(Other As RectangleD) As Boolean Function ToRectangleF() As System.Drawing.RectangleF Shared Function Intersect(A As RectangleD, B As RectangleD) As RectangleD Shared Function Union(A As RectangleD, B As RectangleD) As RectangleD Operator =(A As RectangleD, B As RectangleD) As Boolean Operator <>(A As RectangleD, B As RectangleD) As Boolean MustInherit Class Singleton(Of T As New) Shared ReadOnly Property Instance As T Protected Sub New() Class WeakReference(Of T) Inherits WeakReference Shadows Property Target As T Sub New(NewTarget As T) Sub New(NewTarget As T, TrackResurrection As Boolean) Sub New(NewSerializationInfo As SerializationInfo, NewStreamingContext As StreamingContext) Namespace Emit Enum AccessModifiers As Integer Private = 1 Family = 2 Assembly = 3 FamilyAndAssembly = 4 FamilyOrAssembly = 5 Public = 6 Class EmitAssembly ReadOnly Property Assembly As AssemblyBuilder ReadOnly Property MainModule As ModuleBuilder ReadOnly Property FilePath As String ReadOnly Property DirectoryPath As String ReadOnly Property FileName As String ReadOnly Property FileNameWithoutExtension As String ReadOnly Property FileExtension As String ReadOnly Property IsExecutable As Boolean ReadOnly Property DefinedTypeBuilders As IEnumerable(Of TypeBuilder) Sub New(NewFilePath As String) Function DefineType(Name As String) As TypeBuilder Function DefineType(Name As String, Attributes As TypeAttributes) As TypeBuilder Function DefineType(Name As String, Parent As Type) As TypeBuilder Function DefineType(Name As String, Attributes As TypeAttributes, Parent As Type) As TypeBuilder Function DefineType(Name As String, Interfaces As Type()) As TypeBuilder Function DefineType(Name As String, Attributes As TypeAttributes, Interfaces As Type()) As TypeBuilder Function DefineType(Name As String, Parent As Type, Interfaces As Type()) As TypeBuilder Function DefineType(Name As String, Attributes As TypeAttributes, Parent As Type, Interfaces As Type()) As TypeBuilder Sub Save() NotInheritable Class PredefinedMembers (Siehe Details) Namespace IL Module IL (Siehe Details) Namespace Macros Class EmitEvent Property EventMember As EventBuilder Property EventField As FieldBuilder Property AddHandlerMethod As MethodBuilder Property RemoveHandlerMethod As MethodBuilder Sub New(NewEventMember As EventBuilder, NewEventField As FieldBuilder, NewAddHandlerMethod As MethodBuilder, NewRemoveHandlerMethod As MethodBuilder) Module Macros Sub GetType(ILGenerator, T As Type) Sub DirectCast(ILGenerator, TargetType As Type) Sub CompareEquality(ILGenerator) Sub CompareEquality(ILGenerator, TypeOfValues As Type) Sub GetObjectAddress(ILGenerator) Function EmitEvent(TypeBuilder, AccessModifiers As AccessModifiers, IsStatic As Boolean, EventName As String, DelegateType As Type) As EmittedEvent Namespace Extensions Module Extensions Function AsT(Of T)(Object) As T Function AsEnumerable(Of T)(IEnumerable(Of T)) As IEnumerable(Of T) Function HByte(UInt16) As Byte Function LByte(UInt16) As Byte Sub Write(Stream, Value As Byte) Sub Write(Stream, Bytes As Byte()) Function Read(Stream) As Byte Function Read(Stream, ByteCount As Integer) As Byte() Sub Insert(Of T)(T(), Other As T(), TargetIndex As Integer) Function SubSequence(Of T)(T(), StartIndex As Integer, Length As Integer) As T() Function SubSequence(Of T)(IEnumerable(Of T), StartIndex As Integer, Length As Integer) As IEnumerable(Of T) Function ParseToEnum(Of T As Structure)(String) As T Function TryParseToEnum(Of T As Structure)(String, OutputValue As T) As Boolean Function IndexAfter(String, ContainedString As String) As Integer Function SubstringAfter(String, ContainedString As String) As String Function SubstringAfter(String, ContainedString As String, Length As Integer) As String Function SubstringBetween(String, StartIndex As Integer, EndIndex As Integer) As String Function ConcatAll(Of T)(IEnumerable(Of IEnumerable(Of T))) As IEnumerable(Of T) Function Prepend(Of T)(IEnumerable(Of T), Item As T) As IEnumerable(Of T) Function Append(Of T)(IEnumerable(Of T), Item As T) As IEnumerable(Of T) Function AllIndicesOf(Of T)(IEnumerable(Of T), SubSequence As IEnumerable(Of T)) As IEnumerable(Of Integer) Function AllIndicesOf(Of T)(IEnumerable(Of T), SubSequence As IEnumerable(Of T), StartIndex As Integer) As IEnumerable(Of Integer) Function AllIndicesOf(Of T)(T(), SubSequence As T()) As IEnumerable(Of Integer) Function AllIndicesOf(Of T)(T(), SubSequence As T(), StartIndex As Integer) As IEnumerable(Of Integer) Function Join(Of T)(IEnumerable(Of IEnumerable(Of T)), Concatenator As IEnumerable(Of T)) As IEnumerable(Of T) Function ToVisibility(Boolean) As System.Windows.Visibility Namespace Results Interface IResult ReadOnly Property Success As Boolean Interface IErroredResult(Of TError) Inherits IResult ReadOnly Property Error As TError Interface IValuedResult(Of TValue) Inherits IResult ReadOnly Property Value As TValue Class Result Implements IResult Property Success As Boolean Implements IResult.Success Sub New(NewSuccess As Boolean) Class ErroredResult(Of TError) Inherits Result Implements IErroredResult(Of TError) Property Error As TError Implements IErroredResult(Of TError).Error Sub New() Sub New(NewError As TError) Class ValuedResult(Of TValue) Inherits Result Implements IValuedResult(Of TValue) Property Value As TValue Implements IErroredResult(Of TValue).Value Sub New() Sub New(NewValue As TValue) Class ValuedErroredResult(Of TValue, TError) Inherits Result Implements IValuedResult(Of TValue) Implements IErroredResult(Of TError) Property Value As TValue Implements IErroredResult(Of TValue).Value Property Error As TError Implements IErroredResult(Of TError).Error Sub New(NewValue As TValue) Sub New(NewError As TError) Sub New(Undefined As Object, Success As Boolean) Namespace Streams Class EndOfStreamException Inherits Exception Sub New() Sub New(NewMessage As String) Class IndentStringBuilder Property IndentLevel As Integer = 0 Property IndentationsPerLevel As Integer = 4 Property IndentChar As Char = " "c Sub New() Sub Indent() Sub UnIndent() Sub Append(Value As String) Sub AppendIndentation() Sub AppendLine() Sub AppendLine(Value As String) Overrides Function ToString() As String Class StringStream ReadOnly Property SourceString As String ReadOnly Property CurrentIndex As Integer ReadOnly Property Current As Char ReadOnly Property EndOfStream As Boolean ReadOnly Property RemainingChars As Integer Sub New() Sub New(NewSourceString As String) Protected Sub Initialize(NewSourceString As String) Sub Advance() Sub Advance(Count As Integer) Function ReadChar() As Char Function Peek(Count As Integer) As String Function Read(Count As Integer) As String Function PeekToEnd() As String Function ReadToEnd() As String Function PeekToNext(ParamArray Chars As Char()) As String Function ReadToNext(ParamArray Chars As Char()) As String Function PeekToNext(ParamArray Chars As String()) As String Function ReadToNext(ParamArray Chars As String()) As String Class BufferDataReceivedEventArgs(Of T) Inherits EventArgs Property Data As IEnumerable(Of T) Sub New(NewData As IEnumerable(Of T)) Interface IDataBufferSource(Of T) Event DataReceived As EventHandler(Of BufferDataReceivedEventArgs(Of T)) Sub Flush() Function CompareData(Item1 As T, Item2 As T) As Boolean Class DataBuffer(Of T) Event BlockReceived As EventHandler(Of BufferDataReceivedEventArgs(Of T)) Property Source As IDataBufferSource(Of T) Property DelimiterData As IEnumerable(Of T) Sub New(NewSource As IDataBufferSource(Of T), NewDelimiterData As IEnumerable(Of T)) Sub Flush() Class SerialPortDataSource Implements IDataBufferSource(Of Byte) Event DataReceived As EventHandler(Of BufferDataReceivedEventArgs(Of Byte)) Implements IDataBufferSource(Of Byte).DataReceived Property Port As SerialPort Sub New(NewPort As SerialPort) Sub Flush() Implements IDataBufferSource(Of Byte).Flush Function CompareData(Item1 As Byte, Item2 As Byte) As Boolean Implements IDataBufferSource(Of Byte).CompareData Namespace WinApi Structure DwmColor ReadOnly Property A As Byte ReadOnly Property R As Byte ReadOnly Property G As Byte ReadOnly Property B As Byte Sub New(NewA As Byte, NewR As Byte, NewG As Byte, NewB As Byte) Sub New(Argb As UInt32) Function ToFormsColor() As System.Drawing.Color Function ToWpfColor() As System.Windows.Media.Color NotInheritable Class DwmColorization Function GetDwmColorization() As DwmColor NotInheritable Class HotKeys Function RegisterHotKey(hWnd As IntPtr, Id As Integer, Modifiers As Integer, Key As Integer) As Boolean Function UnregisterHotKey(hWnd As IntPtr, Id As Integer) As Boolean Enum MouseAction As Integer None = 0 LeftDown = 2 LeftUp = 4 RightDown = 8 RightUp = 16 MiddleDown = 32 MiddleUp = 64 NotInheritable Class MouseAndKeyboard Shared Sub MouseEvent(Action As MouseAction, X As Integer, Y As Integer) NotInheritable Class SetWindowPos Enum Flags As UInt32 (Siehe Details) Enum ZPosition As Integer TotalBottom = 1 BehindTopMost = -2 TotalFront = 0 TotalFrontFixed = -1 Shared Sub SetWindowPos(WindowHandle As IntPtr, ZPosition As ZPosition, X As Integer, Y As Integer, Width As Integer, Height As Integer, Flags As Flags) Namespace Forms Class HotKey Inherits System.Windows.Forms.NativeWindow Implements IDisposable Const Wm_HotKey As Integer Event KeyCodeChanged Event HotKeyPressed Property KeyCode As Keys Property EnableRaisingEvent As Boolean Sub New() Sub New(NewKeyCode As Keys) Sub Dispose() Implements IDisposable.Dispose Protected Overrides Sub WndProc(m As Message) Namespace Wpf Class DelegateCommand Implements ICommand Event CanExecuteChanged As EventHandler Implements ICommand.CanExecuteChanged Sub New(NewTarget As Action) Sub New(NewTarget As Action(Of Object)) Protected Sub OnCanExecuteChanged() Overridable Function CanExecute(Parameter As Object) As Boolean Implements ICommand.CanExecute Overridable Sub Execute(Parameter As Object) Implements ICommand.Execute Class EnableableDelegateCommand Inherits DelegateCommand Property IsEnabled As Boolean Sub New(NewTarget As Action) Sub New(NewTarget As Action(Of Object)) Sub New(NewTarget As Action, NewIsEnabled As Boolean) Sub New(NewTarget As Action(Of Object), NewIsEnabled As Boolean) Overrides Function CanExecute(Parameter As Object) As Boolean Class FormatTextBlock Inherits TextBlock Property FormatText As IEnumerable(Of Inline) Shared FormatTextProperty As DependencyProperty Sub New() Class InvalidToolTipException Inherits Exception ReadOnly Property InvalidObject As Object Sub New(NewInvalidObject As Object) NotInheritable Class TextInlines Shared ReadOnly Property Empty As Inline() Shared Property InlineSelector As Func(Of Object, IEnumerable(Of Inline)) Shared Function Create(ParamArray Items As Object()) As IEnumerable(Of Inline) Shared Function Create(Items As IEnumerable(Of Object)) As IEnumerable(Of Inline) Class ToolTipButton Inherits Button Sub New() MustInherit Class ViewModelBase Implements INotifyPropertyChanged Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged Sub New() Protected Sub OnPropertyChanged(ParamArray Names As String()) Protected Function ChangeIfDifferent(Of T)(ByRef Target As T, NewValue As T, ParamArray PropertyNames As String()) As Boolean Shared Function ChangeIfDifferent(Of T)(ByRef Target As T, NewValue As T) As Boolean Shared ReadOnly Property IsInDesignMode As Boolean Class ViewModelBase(Of T) Property Target As T Sub New() Sub New(NewTarget As T)