动态创建的控件

multiLineEdit lsle_1 OpenUserObject( lsle_1, "multiLineEdit", 400, 400) lsle_1.Width = 3000 lsle_1.Height = 800 lsle_1.TabOrder = 30 lsle_1.Border = TRUE lsle_1.BorderStyle = StyleLowered! lsle_1.text = "这是一个动态创建的控件！" lsle_1.visible = TRUE parent.control[ UpperBound( parent.control ) + 1] = lsle_1