Bueno vengo con 2 dudas :D
1) ... Necesito crear un boton por imagen encontrada, osea ... tengo un for
$Lista_Imagenes = _FileListToArray($Directorio, "*.jpg", 1)
For $i = 1 To $Lista_Imagenes[0]
GUICtrlCreatePic($Directorio & $Lista_Imagenes[$i], 30 + $Left, 410, 140, 100)
$Ver_Imagen = GUICtrlCreateButton("Ver imágen", 30 + $Left + 35, 520, 70)
$Left += 150
Next
Con eso voy mostrando las imagenes encontradas en un directorio, dentro deun GUI. Lo que necesito ahora es que por cada imagen que muestre se habilite un boton que al hacerle clic me abra la imagen en tamaño original, no puedo lograrlo :S
2) queria sabre si au3 tiene botones predeterminados para darle formato a un texto, osea si tiene los botones de NEGRITA, SUBRAYADO, ALINEACION.
Desde ya muchas gracias.
Multi botones
- Chefito
- Profesional del Autoit
- Mensajes: 2035
- Registrado: 21 Feb 2008, 18:42
- Ubicación: Albacete/Cuenca (España)
Re: Multi botones
Se hace con un array de controles. Algo así:avechuche escribió:1) ... Necesito crear un boton por imagen encontrada
Código: Seleccionar todo
$Lista_Imagenes = _FileListToArray($Directorio, "*.jpg", 1)
global $aBotones[$Lista_imagenes[0]]
For $i = 1 To $Lista_Imagenes[0]
GUICtrlCreatePic($Directorio & $Lista_Imagenes[$i], 30 + $Left, 410, 140, 100)
$aBotones[$i-1] = GUICtrlCreateButton("Ver imágen", 30 + $Left + 35, 520, 70)
$Left += 150
Next
Que yo sepa no, pero en internet hay los que quieras y más . Busca imágenes de iconos (por ejemplo archivos .ico) y verás como te inflas de encontrar . Los tienes de todos los tamaños (16x16, 32x32, etc) y de todas las resoluciones (256 colores, etc).avechuche escribió:queria sabre si au3 tiene botones predeterminados para darle formato a un texto, osea si tiene los botones de NEGRITA, SUBRAYADO, ALINEACION.
Puedes utilizar botones con una imagen dentro, utilizar la udf que trae autoit para barras de herramientas, buscar controles de barras de herramientas (hay bastantes....busca en google), o lo que tu quieras.
Mira la udf que trae AutoIt (GuiToolBar). Esta es la mejor solución. Mira en la ayuda todas las funciones que empiezan por _GUICtrlToolbar_.... .
También tienes la posibilidad de utilizar un control distinto. Una página con varios controles, entre ellos un toolbar (barra de herramientas): http://www.vbaccelerator.com/home/VB/Co ... rticle.asp.
También te dice los ocx que utiliza vb5 y vb6 para crear sus toolbar por si te interesa. Pero te aseguro que hay más . Aunque teniendo una udf el propio AutoIt para esto, porque complicarse la vida???
Saludos.
Cita vista en algún lugar de la red: En este mundo hay 10 tipos de personas, los que saben binario y los que no ;).
- Ximorro
- Profesional del Autoit
- Mensajes: 1500
- Registrado: 10 Jul 2009, 12:35
- Ubicación: Castellón, España
Re: Multi botones
Bueno, respecto a la segunda parte tienes más control que el estándar con la UDF GuiButton.
Pero si no te quieres complicar lo de poner negrita, subrayado y tal es fácil, se trata de cambiar el estilo del texto del control una vez lo has creado. Por ejemplo:
Más ejemplos:
GUICtrlSetFont(-1, 9, 400, 2); Tamaño 9, no negrita, cursiva.
Ese cuarto parámetro:
2 = cursiva
4 = subrayado
8 = tachado
Puedes sumarlos, por ejemplo 2+4=6 sería cursiva y subrayado a la vez.
Hay un quinto parámetro para cambiar la font, por ejemplo:
GUICtrlSetFont(-1, 9, 400, 4, "Comic Sans MS")
Además de cambiar estas cosas puedes cambiar el color del texto con GUICtrlSetColor, por ejemplo:
GUICtrlSetColor(-1, 0xff0000) pondrá el texto en rojo.
Por supuesto tanto GUICtrlSetFont como GUICtrlSetColor funcionan en otros controles, no sólo en botones, es cosa de probar.
Pero si no te quieres complicar lo de poner negrita, subrayado y tal es fácil, se trata de cambiar el estilo del texto del control una vez lo has creado. Por ejemplo:
Código: Seleccionar todo
$btn = GUICtrlCreateButton("&Pincha", $x, $y, $ancho, $alto)
GUICtrlSetFont(-1, 12, 800) ; Tamaño 12ppp, Negrita
GUICtrlSetFont(-1, 9, 400, 2); Tamaño 9, no negrita, cursiva.
Ese cuarto parámetro:
2 = cursiva
4 = subrayado
8 = tachado
Puedes sumarlos, por ejemplo 2+4=6 sería cursiva y subrayado a la vez.
Hay un quinto parámetro para cambiar la font, por ejemplo:
GUICtrlSetFont(-1, 9, 400, 4, "Comic Sans MS")
Además de cambiar estas cosas puedes cambiar el color del texto con GUICtrlSetColor, por ejemplo:
GUICtrlSetColor(-1, 0xff0000) pondrá el texto en rojo.
Por supuesto tanto GUICtrlSetFont como GUICtrlSetColor funcionan en otros controles, no sólo en botones, es cosa de probar.
"¿Y no será que en este mundo hay cada vez más gente y menos personas?". Mafalda (Quino)
Re: Multi botones
Muchas gracias a los dos recien entro al foro
1) voy a probar lo de los botones
2) No me explique bien, lo que quiero es poder cambiar el texto de un RichEdit, ponerlo en negrita, subrayado y demas ... por eso estaba buscando los iconos ...
1) voy a probar lo de los botones
2) No me explique bien, lo que quiero es poder cambiar el texto de un RichEdit, ponerlo en negrita, subrayado y demas ... por eso estaba buscando los iconos ...