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
转载于:https://www.cnblogs.com/lenya/archive/2010/11/16/3706913.html