Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
関数からイベントを動かす
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=30345#CommentId83324
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
かつ
 (社会人)
投稿日時
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