Página 1 de 1

Multi botones

Publicado: 23 Dic 2010, 19:04
por avechuche
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.

Re: Multi botones

Publicado: 08 Ene 2011, 00:49
por Chefito
avechuche escribió:1) ... Necesito crear un boton por imagen encontrada
Se hace con un array de controles. Algo así:

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
avechuche escribió:queria sabre si au3 tiene botones predeterminados para darle formato a un texto, osea si tiene los botones de NEGRITA, SUBRAYADO, ALINEACION.
Que yo sepa no, pero en internet hay los que quieras y más :smt005 . Busca imágenes de iconos (por ejemplo archivos .ico) y verás como te inflas de encontrar :smt003 . Los tienes de todos los tamaños (16x16, 32x32, etc) y de todas las resoluciones (256 colores, etc).
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 :smt002 . Aunque teniendo una udf el propio AutoIt para esto, porque complicarse la vida??? :smt005

Saludos.

Re: Multi botones

Publicado: 11 Ene 2011, 13:59
por Ximorro
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:

Código: Seleccionar todo

$btn = GUICtrlCreateButton("&Pincha", $x, $y, $ancho, $alto)
GUICtrlSetFont(-1, 12, 800) ; Tamaño 12ppp, Negrita
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.

Re: Multi botones

Publicado: 13 Ene 2011, 04:47
por avechuche
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 ...