Hola gente Buenas noches
Bueno estoy haciendo un pequeño proyecto en Visual Basic para Aplicaciones
quiero crear un algoritmo para... Bueno mejor les muestro que rayos quiero hacer ajajajajaj... ;D
Pido disculpas por no cambar la imagen por la actualizada pero pronto la subo
(http://img707.imageshack.us/img707/4988/dibujotmo.png)
lo que tengo de codigo es: (ya resuelto)
Explicación
Private Sub Cargar_datos_Click()
valgrafic
End Sub
Sub ValorGraf()
Dim r, Ls, Li, Xdato, Dtop As Double
' con esta condicion se asegura que solo una ves se guarde este valor
'(el valor top inicial de las graf)
If Dtop = "" Then
Dtop = graf1.Top
End If
'dado que la cuadricula de los formularios es inversa se toma el top
'del lab mas arriba (posicion en el form) como el liminite inferior
Ls = lab_9.Top
Li = lab_10.Top
r = Ls - Li
' restamos al valor (Top) inicial de las graficas el producto del tex_# y r
graf1.Top = Dtop - Val(txt_1 * r)
graf2.Top = Dtop - Val(txt_2 * r)
graf3.Top = Dtop - Val(txt_3 * r)
graf4.Top = Dtop - Val(txt_4 * r)
graf5.Top = Dtop - Val(txt_5 * r)
End Sub
una duda la propiedad label.top marca el centro de el objeto?
Me auto contesto es la parte superior del label ;D
Espero sirva es una chorrada lo se pero a alguien como yo seguro le servira
Gracias por leer