VScrollbar
Publicado por sergio (14 intervenciones) el 13/04/2002 09:27:21
Hola, tengo una vscrollbar, un frame, y un circle(aparece dentro del frame) el circle es algo asi:
Dim e As Single, codigodecolor As Single
WindowState = 2
Show
Scale (-12, 21)-(5, -5)
For e = 0.1 To 0.5 + Rnd Step 0.01
codigodecolor = 68558 * Rnd
shape1.Shape = 1
Circle (0, 0), e + VScroll1.Value, codigodecolor
Next e
lo que quiero es que a medida que la barra se mueva el circle este se agrande y cuando la barra se devuelva el circulo se vuelva pequeño.
Graciasssss......
Dim e As Single, codigodecolor As Single
WindowState = 2
Show
Scale (-12, 21)-(5, -5)
For e = 0.1 To 0.5 + Rnd Step 0.01
codigodecolor = 68558 * Rnd
shape1.Shape = 1
Circle (0, 0), e + VScroll1.Value, codigodecolor
Next e
lo que quiero es que a medida que la barra se mueva el circle este se agrande y cuando la barra se devuelva el circulo se vuelva pequeño.
Graciasssss......
Valora esta pregunta
0