digi.AnadeBarraHerramientas

digi.AnadeBarraHerramientas (titulo, tooltips, ordenes, bitmaps, coordenadas, acople, hermano )

Título de la barra de herramientas que aparecerá en su "caption" cuando esta se desacople, así como en el menú contextual utilizado para activar/desactivar la visualización de barras de herramientas ó en el cuadro de diálogo de berras de herramientas. Este valor además será el que se tome como referencia cuando el tipo de acople sea "acoplar a la izquierda/derecha/arriba/abajo" de otra barra de herramientas ya creada.

Array de cadenas de caracteres con los valores de los tooltips asociados a los botones.

Array de cadenas de caracteres con los nombres de las órdenes a ejecutar al pulsar los botones.

Array de cadenas de caracteres con las rutas completas a los archivos bitmap (.bmp) asociados a los botones.

Objeto Point con las coordenadas en las cuales insertar la barra de herramientas.Este perámetro podrá ser sustituido por Nothing si el parámetro Acople es diferente de 0 ó 1.

Valor que indica cómo aparecerá la barra de herramientas al crearse: acoplada ó flotando.

Valor	Significado
0	Flotando con orientación horizontal
1	Flotando con orientación vertical
2	Acoplado arriba
3	Acoplado abajo
4	Acoplado a la izquierda
5	Acoplado a la derecha
6	Acoplado encima de otra barra de herramientas que se especifica en el campo hermano
7	Acoplado debajo de otra barra de herramientas que se especifica en el campo hermano
8	Acoplado a la izquierda de otra barra de herramientas que se especifica en el campo hermano
9	Acoplado a la derecha de otra barra de herramientas que se especifica en el campo hermano

Const vbFlotanteHorizontal=0

Const vbFlotanteVertical=1

Const vbAcopladoArriba=2

Const vbAcopladoAbajo=3

Const vbAcopladoIzquierda=4

Const vbAcopladoDerecha=5

Const vbAcopladoEncimaDe=6

Const vbAcopladoDebajoDe=7

Const vbAcopladoIzquierdaDe=8

Const vbAcopladoDerechaDe=9

Dim tooltips(2)

Dim ordenes(2)

Dim bitmaps(2)

tooltips(0)="Zoom extendido"

ordenes(0) = "zoome"

bitmaps(0) = "c:\digi\img1.bmp"

tooltips(1)="Zoom ventana"

ordenes(1)="zoomv"

bitmaps(1)="c:\digi\img2.bmp"

digi.AnadeBarraHerramientas "MiBarra",tooltips,ordenes,bitmaps,Nothing,vbAcopladoDerecha,""

Ejemplo 2: Crear una barra de herramientas flotando en las coordenadas (200,300) Option Explicit

Const vbFlotanteHorizontal=0

Const vbFlotanteVertical=1

Const vbAcopladoArriba=2

Const vbAcopladoAbajo=3

Const vbAcopladoIzquierda=4

Const vbAcopladoDerecha=5

Const vbAcopladoEncimaDe=6

Const vbAcopladoDebajoDe=7

Const vbAcopladoIzquierdaDe=8

Const vbAcopladoDerechaDe=9

Dim tooltips(2)

Dim ordenes(2)

Dim bitmaps(2)

tooltips(0)="Zoom extendido"

ordenes(0) = "zoome"

bitmaps(0) = "c:\digi\img1.bmp"

tooltips(1)="Zoom ventana"

ordenes(1)="zoomv"

bitmaps(1)="c:\digi\img2.bmp"

Dim pt

Set pt = CreateObject("Digi3D.Point")

pt.x = 200

pt.y = 300

digi.AnadeBarraHerramientas "MiBarra",tooltips,ordenes,bitmaps,pt,vbFlotanteHorizontal,""

Set pt = Nothing

Ejemplo 3: Crea tres barras de herramientas, la primera se llamará prueba1 y estará acoplada horitonzalmente, la segunda se llamará prueba2 y aparecerá acoplada a la izquierda de la barra prueba1 y la tercera se llamará prueba3 y aparecerá acoplada debajo de prueba1 Option Explicit

Const vbFlotanteHorizontal=0

Const vbFlotanteVertical=1

Const vbAcopladoArriba=2

Const vbAcopladoAbajo=3

Const vbAcopladoIzquierda=4

Const vbAcopladoDerecha=5

Const vbAcopladoEncimaDe=6

Const vbAcopladoDebajoDe=7

Const vbAcopladoIzquierdaDe=8

Const vbAcopladoDerechaDe=9

Dim tooltips(2)

Dim ordenes(2)

Dim bitmaps(2)

tooltips(0)="Zoom extendido"

ordenes(0) = "zoome"

bitmaps(0) = "c:\digi\img1.bmp"

tooltips(1)="Zoom ventana"

ordenes(1)="zoomv"

bitmaps(1)="c:\digi\img2.bmp"

digi.AnadeBarraHerramientas "prueba1",tooltips,ordenes,bitmaps,Nothing,vbAcopladoArriba,""

digi.AnadeBarraHerramientas "prueba2",tooltips,ordenes,bitmaps,Nothing,vbAcopladoDerechaDe,"prueba1"

digi.AnadeBarraHerramientas "prueba3",tooltips,ordenes,bitmaps,Nothing,vbAcopladoDebajoDe,"prueba1"