Método Windows.Add (Visio)
Agrega un objeto Window nuevo a la colección Windows.
Sintaxis
expresión. Add (bstrCaption, nFlags, nType, nLeft, nTop, nWidth, nHeight, bstrMergeID, bstrMergeClass, nMergePosition)
Expresión Variable que representa un objeto de Windows .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| bstrCaption | Opcional | Variant | Título de la ventana; el predeterminado es "Sin título". |
| nFlags | Opcional | Variant | Estado inicial de la ventana. Puede contener cualquier combinación de constantes VisWindowStates declaradas en la biblioteca de tipos de Visio; el valor predeterminado varía en función de nType. |
| nType | Opcional | Variant | Tipo de la nueva ventana. Puede ser cualquiera de las constantes VisWinTypes declaradas en la biblioteca de tipos de Visio. El valor predeterminado es visStencilAddon para Application.Windows y visAnchorBarAddon para Window.Windows |
| nLeft | Opcional | Variant | Posición del lado izquierdo de la ventana. |
| Ntop | Opcional | Variant | Posición de la parte superior de la ventana. |
| nWidth | Opcional | Variant | Ancho del área de cliente de la ventana. |
| nHeight | Opcional | Variant | Alto del área de cliente de la ventana. |
| bstrMergeID | Opcional | Variant | Identificador de fusión de la ventana. |
| bstrMergeClass | Opcional | Variant | Clase de fusión de la ventana. |
| nMergePosition | Opcional | Variant | Posición de fusión de la ventana. |
Valor devuelto
Window
Comentarios
Utilice este método para obtener una ventana de marco principal vacía dentro del espacio de ventanas de Visio en la que puede incluir ventanas secundarias. Debe encontrarse en el espacio de procesos de Visio (por ejemplo, en un complemento basado en DLL o VSL) para poder utilizar el objeto Window devuelto por este método como ventana principal de las demás ventanas.
Utilice el valor devuelto por la propiedad WindowHandle32 como un objeto HWND para emplearlo como ventana principal de sus propias ventanas.
Ejemplo:
En la macro siguiente se muestra cómo usar el método Add para agregar un objeto Window a la colección de Windows . Crea una ventana de marco principal nueva y vacía, acoplada a la parte inferior de la ventana de dibujo. A continuación, incluye en ella una ventana secundaria, en este caso un formulario, con objeto de que la nueva ventana no aparezca vacía.
Agregue al proyecto de Microsoft Visual Basic (VBA) un formulario denominado frmMain y, a continuación, agregue un control TextBox denominado txtForm a dicho formulario.
Las funciones SetParent, FindWindow y SetWindowLongLib pertenecen a la API de Windows, y son necesarias para agregar el formulario a la nueva ventana.
Agregue el código siguiente al módulo de formulario para cambiar de tamaño el cuadro de texto una vez que se haya modificado el tamaño del formulario:
Private Sub UserForm_Resize()
txtForm.Width = txtForm.Parent.Width - 10
txtForm.Height = txtForm.Parent.Height - 10
End Sub
A continuación, agregue el código siguiente al proyecto de documento:
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const WS_CHILD = &H40000000
Private Const WS_VISIBLE = &H10000000
Public Sub AddWindow_Example()
Dim vsoWindow As Visio.Window
Dim frmNewWindow As UserForm
Dim lngFormHandle As Long
'Add a new Anchor Bar window docked to the bottom of the Visio drawing window
Set vsoWindow = ActiveWindow.Windows.Add("My New Window", visWSVisible + visWSDockedBottom, visAnchorBarAddon, , , 300, 210)
'Create a new windows form
Set frmNewWindow = New frmMain
'Get the 32-bit handle of the new window.
lngFormHandle = FindWindow(vbNullString, "My New Window")
SetWindowLong lngFormHandle, GWL_STYLE, WS_CHILD Or WS_VISIBLE
SetParent lngFormHandle, vsoWindow.WindowHandle32
End Sub
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.