主题：求助 动态多行TextBox,

老师:

  您好!

动态多行TextBox控件

Dim t As Table = Tables("表A")

For  i As Integer=0 To t.rows.count-1
    Dim txt As WinForm.TextBox
    txt = e.Form.CreateControl("TextBox" & i, ControlTypeEnum.TextBox)
    txt.MultiLine = True
    txt.text = "品   牌: " & t.rows(i)("pan") & "主  题:" & t.rows(i)("zu")  & "季节:" & t.rows(i)("zz")
    txt.BorderStyle = BorderStyle. None
    txt.BackColor = Color.FromARGB(25, 25, 25)
    txt.ForeColor = Color.FromARGB(250, 250, 250)
    txt.Width = 300
    txt.Height = 20
    txt.Left = 300*i+10
    txt.Top = 285
    txt.ReadOnly = BooleanEnum.False
    e.Form.Controls("hsr").AddControl(txt)
Next

请教老师,怎样把红色那行的一列一行显示在多行的文本框?  兰色那行代码是不是少了代码?显示不了多行?

谢谢!

你要设置控件的高度啊

Dim t As Table = Tables("表A")

For  i As Integer=0 To t.rows.count-1
    Dim txt As WinForm.TextBox
    txt = e.Form.CreateControl("TextBox" & i, ControlTypeEnum.TextBox)
    txt.MultiLine = True
    txt.text = "品   牌: " & t.rows(i)("pan") & "主  题:" & t.rows(i)("zu")  & "季节:" & t.rows(i)("zz")
    txt.BorderStyle = BorderStyle. None
    txt.BackColor = Color.FromARGB(25, 25, 25)
    txt.ForeColor = Color.FromARGB(250, 250, 250)
    txt.Width = 300
    txt.Height = 100
    txt.Left = 300*i+10
    txt.Top = 285
    txt.ReadOnly = BooleanEnum.False
    e.Form.Controls("hsr").AddControl(txt)
Next

谢谢老师!

端午节快乐!