Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
DO CASE CASE THIS.Value = 1 THISFORM.OleBoundControl1.autoformat(bartype,1) CASE THIS.Value = 2 THISFORM.OleBoundControl1.autoformat(coltype,1) OTHERWISE THISFORM.OleBoundControl1.autoformat(pietype,7) ENDCASE
este codigo te define de que tipo quieres la grafica de el control OLE