▼Gainerメモ▼
I/Oモジュールのボタン入力


I/Oモジュールのボタンを押すことにより、テキストを非表示にするプログラムを作成する。





ソースコード

ButtonForm.vb
Public Class ButtonForm
    Private gio As Gainer

    'コンストラクタ
    Private Sub HelloForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        gio = New Gainer("localhost", 2000, Gainer.MODE1, True)
        gio.onReady = AddressOf onReady
        gio.onPressed = AddressOf onPressed
        gio.onReleased = AddressOf onReleased
    End Sub

    'gspとの接続成功時に発生
    Private Sub onReady()
        lblText.Visible = True
    End Sub

    'I/Oモジュールのボタンが押された時に発生
    Private Sub onPressed()
        lblText.Visible = False
    End Sub

    'I/Oモジュールのボタンが離された時に発生
    Private Sub onReleased()
        lblText.Visible = True
    End Sub
End Class



−戻る−