Diferencia entre revisiones de «ADD»
Contenido eliminado Contenido añadido
Sin resumen de edición |
m Revertidos los cambios de Homero simpsonss a la última edición de Muro Bot |
||
| Línea 1: | Línea 1: | ||
'''ADD''' puede referirse a: |
|||
* '''[[Trastorno por déficit de atención con hiperactividad]]''', por las siglas de uno de los nombres que ha recibido en inglés (Attention Deficit Disorder); |
|||
* '''''[[Dungeons & Dragons|Advanced Dungeons & Dragons]]'''''. Abreviado en AD&D es una reedición del juego de rol ''Dungeons & Dragons'', a su vez abreviado a menudo en D&D; |
|||
* '''[[Aeropuerto Internacional Bole]]''' (Etiopía), por su [[código IATA]]. |
|||
{{desambiguación}} |
|||
[[de:ADD]] |
|||
[[en:ADD]] |
|||
add |
|||
[[eo:ADD]] |
|||
[[fi:ADD]] |
|||
---- |
|||
[[fr:ADD]] |
|||
Esta es una variable que se usa en Visual Basic 6 |
|||
[[it:ADD]] |
|||
[[ja:ADD]] |
|||
indice de contenido |
|||
[[ko:ADD]] |
|||
ejemplo de uso de esta variable |
|||
[[ksh:ADD (Watt ėßß datt?)]] |
|||
Ejemplo 2 |
|||
[[pl:ADD]] |
|||
Código fuente el formulario |
|||
[[pt:ADD]] |
|||
Ejemplo 3 |
|||
[[simple:ADD]] |
|||
Código fuente el formulario |
|||
ejemplo de uso de esta variable |
|||
---- |
|||
Si necesitamos referenciar un formulario en forma dinámica en tiempo de ejecución, podemos usar la el método Add de la colección Forms (Forms.add) , por ejemplo para cargar un formulario en el cual el nombre se encuentra en una base de datos, en una variable, en un archivo externo etc... De esta manera podemos manipular dicho formulario a partir de un Nombre, es decir de un String |
|||
Ejemplo: |
|||
Primero se necesita crear una variable de tipo Form, por ejemplo: |
|||
Dim FormularioX As Form |
|||
Luego se le asigna con la instrucción Set a dicha variable el nombre del formulario real, utilizando Forms.Add, por ejemplo: |
|||
'Asignamos a la variable FormularioX mediante Form.Add el nombre del formulario |
|||
Set FormularioX = Forms.Add("Form2") |
|||
Ahora al hacer esto, ya puedo utilizar FormularioX como referenciando a Form2. |
|||
Ejemplo 2 |
|||
En esta rutina se carga un Formulario llamado Form2, y hay una subRutina llamada CargarForm que le debemos pasar el nombre del formulario pero de tipo String. |
|||
Colocar 2 Forms (Form1 y Form2). En el Form1 colocar un Command1 que es el que ejecuta el código: |
|||
Código fuente el formulario |
|||
---- |
|||
Public Sub cargarForm(strFormName As String) |
|||
'Declaramos una variable de tipo formulario |
|||
Dim frm As Form |
|||
'Asignamos a la variable frm mediante Form.Add el nombre del formulario |
|||
Set frm = Forms.Add(strFormName) |
|||
'Mostramos el formulario |
|||
frm.Show |
|||
Set frm = Nothing |
|||
End Sub |
|||
Private Sub Command1_Click() |
|||
'Llamamos a la sub que carga el Form pasandole el nombre del formulario |
|||
cargarForm "Form2" |
|||
End Sub |
|||
Ejemplo 3 |
|||
Lo siguiente , busca en el directoio del programa ( mediante la función Dir de visual basic ) , los archivos de formulario ( los .Frm ). Luego los carga enviando el nombre del formulario como parámetro |
|||
Colcoar un Command1, Agregar algunos formularios al proyecto y guardar todo, para que los .Frm estén en la carpeta del proyecto y al pulsar el Command1 se puedan abrir. |
|||
Código fuente el formulario |
|||
Option Explicit |
|||
---- |
|||
Private Sub Abrir(ElForm As String) |
|||
Dim El_Formulario As Form |
|||
'Referencia |
|||
Set El_Formulario = Forms.Add(ElForm) |
|||
'carga y Abre el form |
|||
El_Formulario.Show |
|||
End Sub |
|||
Private Sub Command1_Click() |
|||
'Variable para el nombre del formulario |
|||
Dim ElForm As String |
|||
'Busca el primer archivo de tipo frm en el directorio App.path |
|||
ElForm = Dir(App.Path & "\*.frm") |
|||
While ElForm <> "" |
|||
ElForm = Replace(ElForm, ".frm", "") |
|||
If ElForm <> Me.Name Then |
|||
' Le pasa el nombre del formulario |
|||
Call Abrir(ElForm) |
|||
End If |
|||
'Sigue buscando |
|||
ElForm = Dir() |
|||
Wend |
|||
Close |
|||
End Sub |
|||
Private Sub Form_Load() |
|||
Command1.Caption = " Abrir formularios " |
|||
Me.Caption = " Ejemplo del método Add de la colección Forms de vb " |
|||
End Sub |
|||
Referencias |
|||
---- |
|||
pincipal fuente:http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/97.htm |
|||
Revisión del 18:05 12 oct 2009
ADD puede referirse a:
- Trastorno por déficit de atención con hiperactividad, por las siglas de uno de los nombres que ha recibido en inglés (Attention Deficit Disorder);
- Advanced Dungeons & Dragons. Abreviado en AD&D es una reedición del juego de rol Dungeons & Dragons, a su vez abreviado a menudo en D&D;
- Aeropuerto Internacional Bole (Etiopía), por su código IATA.
