Visual Basic 6.0 - Tecnun

Capítulo 6: Gráficos en Visual Basic 6.0 página 83Private Sub vsbY_Change()txtCaja2.Text = Format(vsbY.Value)pctBox.PSet (hsbX.Value, vsbY.Value), vbRedEnd Sub6.7.2 Ejemplo 6.2: Representación gráfica de la solución de la ecuación de segundo gradoEn este segundo ejemplo, cuyo formulario semuestra en la Figura 6.10, se representa el lugar deraíces de la ecuación de segundo grado en función delos coeficientes, o más en concreto en función de loscocientes B/A y C/A. El valor de estas relaciones secambia interactivamente por medio de dos barras dedesplazamiento.El programa permite además la posibilidad demantener dibujadas las soluciones anteriores de laecuación, o borrarlas y dibujar sólo las últimas raícescalculadas borrando las anteriores. Para finalizar elFigura 6.10. Raíces de una ecuación de 2º grado.programa basta presionar el botón Salir.La Tabla 6.6 muestra los nombres y los valores de las principales propiedades de los objetosque aparecen en la Figura 6.10.Control Propiedad Valor Control Propiedad ValorFrame Name fraDib Label NameCaptionLabel2C/ACaption Dibujo Label NameCaptionLabel3BFrame Name fraEjes Label NameCaptionLabel4CCaption Divisiones Ejes Label NameCaptionLabel5X1/XRHScrollBar Name hsbBA Label NameCaptionLabel6X2/XILargeChange 10 CommandButton Name CmdSalirMax 1000 Caption SalirMin -1000 Label Name lblBA, lblCA,lblX1, lblB2SmallChange 1 BackColor &H00C0FFFF&HScrollBar Name hsbCA Option Name optD1LargeChange 10 Caption BorrarMax 100 Option Name optD2Min -100 Caption MantenerSmallChange 1 Option Name OptNoPictureBox Name pctBox Caption NoBackColor &H00FFFFFF& Option Name OptSiLabelNameCaptionLabel1B/ACaption SiTabla 6.6. Controles y propiedades del Ejemplo 6.3.Todas las labels que aparecen tienen la propiedad BorderStyle igual a 1- Fixed Single.El código del programa es el siguiente: