投稿者 かつ  (社会人) 投稿日時 2018/7/9 17:49:08
下記
①関数の※AのCall txtGPIBSend_KeyPress(sender, e) で    
②テキストボックスのイベントを動かしたいです。
 ※Aの(sender, e)の引数をどう記述すればいいのかよくわかりません。

②テキストボックスイベントは e As KeyPressEventArgs となっていますが、
このeの引数をきちんと指示すれべ動きそうで、いろいろ調べましたが、
KeyPressEventArgsの意味がよくわかりません。
.NETはまだまだわからない所が多くすみませんが、どなた様かご教授頂けませんでしょうか。


①関数
    Public Function GPIBSEND(PORTNO As String, Command As String) As Boolean
        GPIBSEND = False
        Dim sender As Object = Command
        Dim e As KeyPressEventArgs()
        Select Case PORTNO
            Case "SLAVE1" : cmbGPIB.SelectedIndex() = 0
            Case "SLAVE2" : cmbGPIB.SelectedIndex() = 1
            Case "SLAVE3" : cmbGPIB.SelectedIndex() = 2
            Case "SLAVE4" : cmbGPIB.SelectedIndex() = 3
        End Select
        Me.txtGPIBSend.Text = Command
        Call txtGPIBSend_KeyPress(sender, e) ・・・※A
        If Items(Sq, ceWait1) <> "" Then Call WaitTime(CLng(Items(Sq, ceWait1)))
        Call WaitTime(CLng(Items(Sq, ceWait2)))
        GPIBSEND = True
    End Function

②テキストボックスイベント
    Private Sub txtGPIBSend_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtGPIBSend.KeyPress
        'Enterキーが押された事を取得()
        If e.KeyChar = Chr(Keys.Enter) Then
            sender0706 = sender
            e0706 = e
            e.Handled = True    'KeyPress イベントをキャンセル(Beep音を消音に)
            f.txtSend.Text = txtGPIBSend.Text
            Call f.cmdSend_Click(txtGPIBSend, e)
            txtGPIBSend.Focus()
        End If
    End Sub