125 lines
4.0 KiB
VB.net
125 lines
4.0 KiB
VB.net
#Region "Microsoft.VisualBasic::10a854194c79e6e0a93f21577272dedb, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\InteractiveIODevice\TerminalExtensions.vb"
|
||
|
||
' Author:
|
||
'
|
||
' asuka (amethyst.asuka@gcmodeller.org)
|
||
' xie (genetics@smrucc.org)
|
||
' xieguigang (xie.guigang@live.com)
|
||
'
|
||
' Copyright (c) 2018 GPL3 Licensed
|
||
'
|
||
'
|
||
' GNU GENERAL PUBLIC LICENSE (GPL3)
|
||
'
|
||
'
|
||
' This program is free software: you can redistribute it and/or modify
|
||
' it under the terms of the GNU General Public License as published by
|
||
' the Free Software Foundation, either version 3 of the License, or
|
||
' (at your option) any later version.
|
||
'
|
||
' This program is distributed in the hope that it will be useful,
|
||
' but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
' GNU General Public License for more details.
|
||
'
|
||
' You should have received a copy of the GNU General Public License
|
||
' along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||
|
||
|
||
|
||
' /********************************************************************************/
|
||
|
||
' Summaries:
|
||
|
||
' Module TerminalEvents
|
||
'
|
||
'
|
||
' Delegate Sub
|
||
'
|
||
' Properties: ConsoleHandleInvalid, CurrentSize
|
||
'
|
||
' Sub: __detects
|
||
'
|
||
'
|
||
'
|
||
' /********************************************************************************/
|
||
|
||
#End Region
|
||
|
||
Imports System.Drawing
|
||
Imports System.Threading
|
||
Imports Microsoft.VisualBasic.Language
|
||
|
||
Namespace Terminal
|
||
|
||
Public Module TerminalEvents
|
||
|
||
Public Delegate Sub ResizeEventHandle(size As Size, oldSize As Size)
|
||
|
||
Dim __resizeHandles As New List(Of ResizeEventHandle)
|
||
Dim _old As Size
|
||
Dim _eventThread As Thread
|
||
|
||
Public ReadOnly Property CurrentSize As Size
|
||
Get
|
||
Return _old
|
||
End Get
|
||
End Property
|
||
|
||
Private Sub __detects()
|
||
Do While App.Running
|
||
If Console.WindowHeight <> _old.Height Then
|
||
RaiseEvent Resize()
|
||
ElseIf Console.WindowWidth <> _old.Width Then
|
||
RaiseEvent Resize()
|
||
End If
|
||
|
||
Thread.Sleep(10)
|
||
Loop
|
||
End Sub
|
||
|
||
Public ReadOnly Property ConsoleHandleInvalid As Boolean = False
|
||
|
||
''' <summary>
|
||
''' Terminal resize event for [<see cref="Console.WindowWidth"/>, <see cref="Console.WindowHeight"/>]
|
||
''' </summary>
|
||
Public Custom Event Resize As ResizeEventHandle
|
||
AddHandler(value As ResizeEventHandle)
|
||
If __resizeHandles.IndexOf(value) = -1 Then
|
||
__resizeHandles += value
|
||
End If
|
||
|
||
If _eventThread Is Nothing Then
|
||
Try
|
||
_old = New Size(Console.WindowWidth, Console.WindowHeight)
|
||
_eventThread = New Thread(AddressOf __detects)
|
||
_eventThread.Start()
|
||
Catch ex As Exception ' 可能是WindowsForm应用，则在这里就忽略掉这个错误了
|
||
Call App.LogException(ex)
|
||
_ConsoleHandleInvalid = True
|
||
End Try
|
||
End If
|
||
End AddHandler
|
||
RemoveHandler(value As ResizeEventHandle)
|
||
If __resizeHandles.IndexOf(value) > -1 Then
|
||
__resizeHandles.Remove(value)
|
||
End If
|
||
|
||
If __resizeHandles.Count = 0 Then
|
||
_eventThread.Abort()
|
||
_eventThread = Nothing
|
||
End If
|
||
End RemoveHandler
|
||
RaiseEvent()
|
||
Dim [new] As New Size(Console.WindowWidth, Console.WindowHeight)
|
||
|
||
For Each h As ResizeEventHandle In __resizeHandles
|
||
Call h([new], _old)
|
||
Next
|
||
|
||
_old = [new]
|
||
End RaiseEvent
|
||
End Event
|
||
End Module
|
||
End Namespace
|