Visual Basic - rellenar un shape "Rectangulo"

Life is soft - evento anual de software empresarial
   
Vista:

rellenar un shape "Rectangulo"

Publicado por limon (28 intervenciones) el 10/11/2007 18:46:20
Hola a todos
alguien sabe como rellenar un rectangulo con lineas diagonales pero solo un un porcentaje 10%, 20% etc...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:rellenar un shape

Publicado por El conejo (124 intervenciones) el 10/11/2007 21:37:35
Hola.

Adentro del rectangulo poner un label, una constante que almacene el 10% del widht del rectangulo y esa constante sumarla al widht del label en cada ciclo hasta que sea igual al widht del rectangulo servira?

ej.

Private ancho_promedio As Long

Private Sub Command1_Click()
For i = 1 To 10
Label1.Width = Label1.Width + ancho_promedio
Next i
End Sub

Private Sub Form_Load()
Shape1.Top = 0
Shape1.Left = 0
Shape1.Width = 2000
Shape1.Height = 100
Label1.BackStyle = 1
Label1.BackColor = vbRed
Label1.Caption = ""
Label1.Top = 1
Label1.Left = 1
Label1.Height = 98
Label1.Width = 15 '<-- es lo minimo
ancho_promedio = Shape1.Width / 10
Shape1.Width = Shape1.Width + 16 '<-- recuperar 16 twips del label
Command1.Caption = "Llenar Shape"
End Sub

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar