Protected mybox() As TextBox
...
'页面动态加入控件
Sub AddTextBox(ByVal CanFillFields As String)
Dim i As Integer
Dim Fields() As String
Fields = Split(CanFillFields, "#")
ReDim mybox(Fields.Length - 1)
For i = 0 To Fields.Length - 1
If Fields(i).Trim <> "" Then
mybox(i) = New TextBox
'mybox(i).Enabled = False
mybox(i).Style.Item("width") = 0
mybox(i).TextMode = TextBoxMode.MultiLine
If Left(Fields(i), 1) = "签" Then mybox(i).ID = "sign" + Right(Fields(i), Fields(i).Length - 3)
If Left(Fields(i), 1) = "多" Then mybox(i).ID = "m" + Right(Fields(i), Fields(i).Length - 4)
If Left(Fields(i), 1) = "单" Then mybox(i).ID = "s" + Right(Fields(i), Fields(i).Length - 4)
Ph1.Controls.Add(mybox(i))
End If
Next
End Sub
...
'页面动态加入控件
Sub AddTextBox(ByVal CanFillFields As String)
Dim i As Integer
Dim Fields() As String
Fields = Split(CanFillFields, "#")
ReDim mybox(Fields.Length - 1)
For i = 0 To Fields.Length - 1
If Fields(i).Trim <> "" Then
mybox(i) = New TextBox
'mybox(i).Enabled = False
mybox(i).Style.Item("width") = 0
mybox(i).TextMode = TextBoxMode.MultiLine
If Left(Fields(i), 1) = "签" Then mybox(i).ID = "sign" + Right(Fields(i), Fields(i).Length - 3)
If Left(Fields(i), 1) = "多" Then mybox(i).ID = "m" + Right(Fields(i), Fields(i).Length - 4)
If Left(Fields(i), 1) = "单" Then mybox(i).ID = "s" + Right(Fields(i), Fields(i).Length - 4)
Ph1.Controls.Add(mybox(i))
End If
Next
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货