Visual Basic - Cequen este codigo y como lo puedo automatizar

Life is soft - evento anual de software empresarial
 
Vista:

Cequen este codigo y como lo puedo automatizar

Publicado por Teofilo (1 intervención) el 21/02/2003 02:45:50

Public Function estilo(ByVal crt As Control, siz As Integer, fnt As String, bld As Boolean, kurs As Boolean)

crt.FontItalic = kurs
crt.FontBold = bld
crt.FontSize = siz
crt.FontName = fnt
End Function

Public Sub cambiaestilo()
''aqui van todos los controles que se desean cambiar
''ejemplo
''estilo Command1, 10, "dolphin"
''estilo Label1, 10, "dolphin"
''estilo es la funcion, label es el control,
''10 el tamaño y dolphin la letra

estilo Command1, 10, "dolphin", 1, 0
estilo Command3, 12, "arial", True, True
estilo Command5, 13, "times new roman", False, False
estilo Command7, 15, "paris", True, False


estilo Label1, 60, "dolphin", False, True
estilo Label2, 15, "mt extra", False, False
estilo Label3, 12, "arial", True, True
End Sub

Private Sub Form_Load()
cambiaestilo
End Sub

una vez leido en la rutina Public Sub cambiaestilo() como le puedo hacer para que le de a todos mis controles el mismo estilo por ejemplo
tengo 20 commands y 10 labels y todos son con fuente arial,en tamaño 10 pero no quiero estar poniendo en cambiaestilo() estilo Label1, 60, "dolphin", False, True y pense en hacerlo con un contador pero resulta que tengo un error por que a como manejo el contador el label1 me lo reconoce como cadena y no como control
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:Cequen este codigo y como lo puedo automatizar

Publicado por Comunidad de Desarrolladores (42 intervenciones) el 21/02/2003 08:15:40
For each control in controls
estilo(...)
next
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