Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: aedEric en Enero 28, 2015, 11:11:27 pm
-
:) hola buenas noches, tengo una inquietud, en saber si es posible al recorrer los controles de un form saber si un control cuenta con la propiedad .fontSize .fontName para poder modificar dichas propiedad en tiempo de ejecución durante el bucle
Bueno el por que esto ?
deseo cambiar las propiedades en tiempo de ejecucion, tengo la siguiente función que me cambia un label y otra parecida para modificar un textbox, pero tengo unos Controles diferentes que cuentan con la propiedad .fontSize .FontName y no logro modificar las propiedades mediante el bucle, por eso es que deseo validar si es posible durante el bucle si un control tiene estas propiedades poder acceder a ellas y modificarlas
ejemplo para modificar el label
Public Function LabeSize(sForm As Form, iTam As Integer)
Dim xLabel As Control
For Each xLabel In sForm.Controls
If TypeOf xLabel Is Label Then
xLabel.FontSize = iTam
End If
Next
End Function
de antemano agradezco mucho el leer mi post, y tomarse el tiempo de darme sus opiniones o sugerencias ya que llevo dos dias y no he podido avanzar gracias... saludos
saludo
-
Creo que la única forma que tenes es agregar On Error Resume Next a esa función para que siga recorriendo, o .. .quizás, utilizar un callbyname pero puede ser más rebuscado
-
hola Raul338 antes que nada muchas gracias por tomarte el tiempo de contestarme efectivamente funciona tu sugerencia muchas gracias ;D, pero que crees y tengo un proyecto que hice hace un tiempo atras y utilize algunos controle de codecjock como labels y al hacer el recorrido con el bucle no logro acceder a las propiedades no surte efecto la modifcacion :( no se a que se deba degraciadamete son muchos form mucha labels y tenia la esperanza de poder hacer la modficacion mediante el bucle, pero viendo que creo no es posible tendre que remplazar estas labels, muchas gracias saludos
-
no se por que no es posible recorrer las propiedade de lo controles codejock mediante el bucle :(
-
;D Bueno encontre la solucion para los controles codejock gracias complementado con lo de raul tema solucionado
cambiando esta linea
If TypeOf xLabel Is Label Then
por esta
If TypeOf xLabel Is XtremeSuiteControls.Label Then
por si a alguien le sirve