FT8 コールサイン表示ツール

If Clipboard.ContainsText() Then
    TextBlock.Text = Clipboard.GetText()
End If

'タイマー処理
Imports System.ComponentModel
Imports System.Windows.Threading

Class MainWindow

    Public Const CALL_MAX_LEN As Integer = 9
    Public Const STR_NOT_CALL As String = "C/S"


    Public Sub New()

        ' この呼び出しはデザイナーで必要です。
        InitializeComponent()

        ' InitializeComponent() 呼び出しの後で初期化を追加します。
        SetupTimer()
    End Sub

    Private Sub WatchButton_Click(sender As Object, e As RoutedEventArgs) Handles WatchButton.Click
        If Clipboard.ContainsText() Then
            If Clipboard.GetText.Length < CALL_MAX_LEN Then
                Me.CB_TextBlock.Text = Clipboard.GetText()
            Else
                Me.CB_TextBlock.Text = STR_NOT_CALL
            End If
        End If

    End Sub

    'タイマメソッド
    Private Sub MyTimerMethod(sender As Object, e As EventArgs)
        If Clipboard.ContainsText() Then
            If Clipboard.GetText.Length < CALL_MAX_LEN Then
                Me.CB_TextBlock.Text = Clipboard.GetText()
            Else
                Me.CB_TextBlock.Text = STR_NOT_CALL
            End If
        End If
    End Sub

    'タイマのインスタンス
    Private _timer As DispatcherTimer

    'タイマの設定
    Private Sub SetupTimer()
        'タイマのインスタンス生成
        _timer = New DispatcherTimer()
        'interval 1sec
        _timer.Interval = New TimeSpan(0, 0, 1)
        'タイマメソッド
        AddHandler _timer.Tick, New EventHandler(AddressOf MyTimerMethod)
        'タイマを開始
        _timer.Start()


        '画面閉じられるときに、タイマを停止する
        AddHandler Me.Closing, New CancelEventHandler(AddressOf StopTimer)

    End Sub

    Private Sub StopTimer(sender As Object, e As CancelEventArgs)
        _timer.Stop()
    End Sub

End Class