28 lines
677 B
VB.net
28 lines
677 B
VB.net
Imports System.Drawing
|
|
Imports DigitalData.Modules.Logging
|
|
|
|
Public Class Drawing
|
|
Private _Logger As Logger
|
|
|
|
Public Sub New(LogConfig As LogConfig)
|
|
_Logger = LogConfig.GetLogger()
|
|
End Sub
|
|
|
|
Public Sub DrawRectangle(Bounds As Rectangle)
|
|
Dim oContext As IntPtr
|
|
oContext = NativeMethods.GetDC(IntPtr.Zero)
|
|
|
|
Try
|
|
Dim g As Graphics
|
|
g = Graphics.FromHdc(oContext)
|
|
Try
|
|
g.DrawRectangle(Pens.Red, Bounds)
|
|
Finally
|
|
g.Dispose()
|
|
End Try
|
|
Finally
|
|
NativeMethods.ReleaseDC(IntPtr.Zero, oContext)
|
|
End Try
|
|
End Sub
|
|
End Class
|