Ayuda por favor!!!
Publicado por Alfredfo (43 intervenciones) el 28/10/2000 00:00:00
Estoy haciendo un programa que tiene un fondo de colores degradados, lo hice con este cogigo:
Private Sub Form_Resize()
Dim i
Dim Y
form1.Cls
form1.AutoRedraw = True
form1.DrawStyle = 6
form1.DrawMode = 13
form1.DrawWidth = 2
form1.ScaleMode = 3
For i = 0 To 255
form1.Line (0, Y)-(form1.Width, Y + 2), RGB(0, i, 0), BF
Y = Y + 2
Next i
End Sub
Mi pregunta es como puedo hacer para que desde un menu de perzonalizar el programa, pueda elegir los colores del fondo, remplazando el codigo por: (ejemplo)
Private Sub Form_Resize()
Dim i
Dim Y
form1.Cls
form1.AutoRedraw = True
form1.DrawStyle = 6
form1.DrawMode = 13
form1.DrawWidth = 2
form1.ScaleMode = 3
For i = 0 To 255
form1.Line (0, Y)-(form1.Width, Y + 2), RGB(i, i, 0), BF
Y = Y + 2
Next i
End Sub
Si alguien me puede ayudar, le estaria muy agradecido..
chao!!
Private Sub Form_Resize()
Dim i
Dim Y
form1.Cls
form1.AutoRedraw = True
form1.DrawStyle = 6
form1.DrawMode = 13
form1.DrawWidth = 2
form1.ScaleMode = 3
For i = 0 To 255
form1.Line (0, Y)-(form1.Width, Y + 2), RGB(0, i, 0), BF
Y = Y + 2
Next i
End Sub
Mi pregunta es como puedo hacer para que desde un menu de perzonalizar el programa, pueda elegir los colores del fondo, remplazando el codigo por: (ejemplo)
Private Sub Form_Resize()
Dim i
Dim Y
form1.Cls
form1.AutoRedraw = True
form1.DrawStyle = 6
form1.DrawMode = 13
form1.DrawWidth = 2
form1.ScaleMode = 3
For i = 0 To 255
form1.Line (0, Y)-(form1.Width, Y + 2), RGB(i, i, 0), BF
Y = Y + 2
Next i
End Sub
Si alguien me puede ayudar, le estaria muy agradecido..
chao!!
Valora esta pregunta


0