2016-04-13 5 views

答えて

1

を入れて、セルにダブルクリックしたときにあなたは何を達成することができたときに

Dim Result1 As New TextBox 
Result1.ID = "BOX_Result" & a & "_" & i 

私が欲しいですあなたはイベントにしたい:

Private Sub Result1_Click(ByVal sender As Object, _ 
    ByVal e As System.EventArgs) 
    Result1.Text = "OK" 
End Sub 

Private Sub Result1_DoubleClick(ByVal sender As Object, _ 
    ByVal e As System.EventArgs) 
    Result1.Text = "NOT/OK" 
End Sub 

ただ、上記の溶液にイベントハンドラを追加します。

Dim Result1 As New TextBox 
Result1.ID = "BOX_Result" & a & "_" & i 
AddHandler Result1.Click, AddressOf Me.Result1_Click 
AddHandler Result1.DoubleClick, AddressOf Me.Result1_DoubleClick 

その他のソリューション:

Dim Result1 As New TextBox 
Result1.ID = "BOX_Result" & a & "_" & i 
Result1.Click += Function(sender, e) 
Result1.Text = "OK" 
End Function 
Result1.DoubleClick += Function(sender, e) 
Result1.Text = "NOT/OK" 
End Function 
+0

JavaScriptとその味を検索します。クリック – Vladut

+0

を試していない、私はそれを編集しました。 – Claudius

+0

場合は、あなたもあなたのアプリケーションを閉じるときにそれらのハンドラを削除する必要があります – Claudius

関連する問題