การใช้งาน Textbox ที่สร้างขึ้นมา เพื่อรับข้อมูลจากที่ยิงบาร์โค้ด

Public Class Attribute
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
		
		'*** Label ***'
		With Me.lblText
            .Attributes.Add("OnClick", "alert('Sawatdee');")
            .Style.Add("cursor", "hand")
        End With

		'*** Hyperlink ***'
		With Me.hplText
			.NavigateUrl = "#"
            .Attributes.Add("OnClick", "fncTest();")
        End With

		'*** Button ***'
		With Me.btnSubmit
            .Attributes.Add("Onclick", "return confirm('Do you want to...?');")
            .Style.Add("cursor", "hand")
        End With

    End Sub

End Class

Dim j As Integer
                For j = 0 To k
                    Dim r As New TableRow()
                    Dim c As New TableCell()

                    textb = New System.Web.UI.WebControls.TextBox
                    textb.ID = "txtBar" & (j + 1).ToString
                    textb.Text = textb.ID
                   Me.textb.Attributes.Add("onKeyDown", "setNextFocus('txtBar'" & j + 2 & ");")
                    AddHandler textb.TextChanged, AddressOf OnTextChanged

                    c.Controls.Add(textb)
                    r.Cells.Add(c)
                    Table1.Rows.Add(r)
                Next

<script language="JavaScript">
    document.onkeydown = chkEvent
    function chkEvent(e) {
        var keycode;
        if (window.event) keycode = window.event.keyCode; //*** for IE ***//
        else if (e) keycode = e.which; //*** for Firefox ***//
        if (keycode == 13) {
            return false;
        }
    }
    
    function setNextFocus(objId) {
        if (event.keyCode == 13) {
            var obj = document.getElementById(objId);
            if (obj) {
                obj.focus();
            }
        }
    }

</script>