Wie gebe ich einen Wert ein TextBox dynamisch erstellen, wenn ich klicke und DoubleClick? vb.net

Question

Ich habe Textfeld wie das erstellen:

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

ich will, wenn ich auf diesem Textfeld klicken Sie auf „OK“ zu schreiben und wenn ich Klicken Sie doppelt in der Zelle zu setzen NOT/OK

Wichtig ! Die TextBox wird dynamisch erstellt, wenn ich versuche, Result.Click funktioniert nicht, bekomme ne diesen Fehler: "Result1.Click display error:" Click ist kein Ereignis von 'System.Web.UI.WebControls.TextBox' "

ich versuche, wie das funktioniert aber nicht:

AddHandler Result1.Click, AddressOf Me.Result1_Click

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

ich möchte, wenn eine Person auf diesem Textfeld dynamisch erstellt klicken, aber klicken Sie nicht funktioniert Vielen Dank für Hilfe

Answer 1

Sie können diese Zeilen zu Ihrer TextBox Definition hinzufügen:

Result1.Attributes.Add("onclick", "this.value = 'OK';") 
Result1.Attributes.Add("ondblclick", "this.value = 'NOT/OK';") 

In diesem Code wird der Text "NOT/OK" angezeigt wird, wenn der Benutzer doppelt klickt in die TextBox. In Ihrer Frage sprechen Sie von einem Doppelklick "in Zelle". Wenn diese "Zelle" nicht die TextBox ist, geben Sie bitte an, um welche Art von Kontrolle es sich handelt.

Answer 2

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

     Dim tb As New TextBox 'Create the new TextBox 

     AddHandler tb.DoubleClick, AddressOf TB_DoubleClick 'Add a handler to the textbox`s DoubleClick event 
     AddHandler tb.Click, AddressOf TB_Click 


     'Set any other properties of textbox you want here.... 

     Me.Controls.Add(tb) 'Add the textbox to the forms controls 

    End Sub 


'This is the textbox Click event handler sub 

Private Sub TB_Click(ByVal sender As Object, ByVal e As System.EventArgs) 

      Dim tb As TextBox = DirectCast(sender, TextBox) 'Cast the (sender) into a textbox to get access to the textbox`s properties 

      Result1.Text = "OK" 
     End Sub 


    'This is the textbox DoubleClick event handler sub 

    Private Sub TB_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) 

     Dim tb As TextBox = DirectCast(sender, TextBox) 'Cast the (sender) into a textbox to get access to the textbox`s properties 

     Result1.Text = "NOT OK" 
    End Sub 

Answer 3

ich. habe ein einfaches Beispiel für dich erstellt:

Public Class Form1 



Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
      Dim Result1 As New TextBox 
      Result1.Text = "BOX_Result" 

      Dim loc As New Point With {.Y = 117, .X = 111} 
      Result1.Location = loc 

      Me.Controls.Add(Result1) 
      AddHandler Result1.Click, AddressOf Me.Result1_Click 
     End Sub 

     Private Sub Result1_Click(ByVal sender As Object, ByVal e As System.EventArgs) 

      Dim txt As TextBox = sender 
      sender.Text = "OK" 
     End Sub 
    End Class 

Hoffnung, dass Sie