Asp.net 当我单击并双击时，如何给文本框动态创建的值赋值？运动模拟

我有这样创建的文本框：

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

我想当我点击那个文本框写“OK”的时候，当我双击单元格写“NOT/OK”的时候

重要！如果我尝试结果，则会动态创建文本框。单击不起作用，请删除该错误：“Result1.Click display error:“单击不是'System.Web.UI.WebControls.TextBox'的事件”

我试着这样做，但不起作用：

AddHandler Result1.Click，AddressOf Me.Result1\u Click

---

我想当一个人点击动态创建但不起作用的文本框时点击。感谢帮助

我为你创建了一个简单的示例：

  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

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

---

希望您想要

我为您创建了一个简单的示例：

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

---

希望您想要

您可以将以下行添加到文本框定义中：

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

---

在这段代码中，当用户双击文本框时，文本“NOT/OK”会显示出来。在您的问题中，您提到的是双击“In cell”。如果该“cell”不是文本框，请说明它是什么类型的控件。

您可以将这些行添加到文本框定义中：

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

---

在这段代码中，当用户双击文本框时会显示文本“NOT/OK”。在您的问题中，您提到双击“In cell”。如果该“cell”“不是文本框，请指出它是什么类型的控件。

好的，但在我这里不起作用，请单击。”。这一行是正确的，AddHandler Result1.Click，AddressOf Me.Result1\u单击，但当我放入我的Result1.Click显示错误：“Click不是'System.Web.UI.WebControl.TextBox'的事件确定，但在我处不起作用单击。这一行是正确的，AddHandler Result1.Click，AddressOf Me.Result1\u单击，但当我放入我的Result1.Click显示错误：”单击不是“System.Web.UI.WebControls.TextBox”的事件，但在我看来，单击不起作用。这行是对的，AddHandler Result1.Click，AddressOf Me.Result1\u Click，但当我把Result1.Click放在我的位置时，显示错误：“Click不是'System.Web.UI.WebControls.TextBox'的事件@Vladut Ok@dejan87与TextBox2.Attributes.Add完美搭配（“onclick”，“javascript:alert（'single Click'）；），让我保持警惕，因为javascript，但我如何才能输入“”，对我的结果1获取值“OK”，我尝试了，但不起作用：TextBox2.Attributes.Add（“onclick”，result1.Text=“OK”）OK，但对我不起作用单击。该行是对的，AddHandler result1.click，AddressOf me.result1\u单击，但当我输入我的结果1.click显示错误：点击并不是'System.Web.UI.WebControls.TextBox'@Vladut Ok@dejan87与TextBox2.Attributes.Add（“onclick”，“javascript:alert（'single Click'）；”）的一个事件，因为那个javascript，所以给我一个警报，但我怎么能把它放进“”，给我的结果1一个值“Ok”，我尝试了一下，但不起作用：TextBox2.Attributes.Add（“onclick”，result1.Text=“Ok”）