求助:我的RICHTEXTBOX加不上滚动条,附prg.
[附件]
好像没有附件。
o = NEWOBJECT("form1")
o.addobject("rt","olewithbar","RICHTEXT.RichtextCtrl.1")
o.rt.text = "2017-03-24,'603355,莱克电气,53.8,55.6,53.71,54.83,55.61,-1.81,-3.2548,2.9322,1955514,106685392.0,21573800000.0,3587922000.02017-03-23,'603355,莱克电气,55.61,56.85,54.41,55.49,55.52,0.09,0.1621,2.5479,1699188,94535675.0,22299610000.0,3708630900.0"
o.show
READ events
DEFINE CLASS olewithbar as olecontrol
.object.scrollbars = 2
visible =.t.
height = 100
width = 100
ENDDEFINE
DEFINE CLASS form1 as Form
PROCEDURE unload
CLEAR EVENTS
ENDPROC
ENDDEFINE