CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Procedimiento En Un Modulo

<< < (2/2)

DiabloRojo:
Qué tal harol?
Si lo que deseas es llamar al procedimiento desde cada ventana lo que puedes hacer es pasar el nombre del form como parámetro al procedimiento. Te coloco un ejemplo hecho en VB6.0 y tu te encargas de modificarlo según te convenga:

El procedimiento:


--- Código: Text --- Public Sub AgregarControl(FormNombre As String)   Dim i As Integer 'contador   Dim MiControl As CommandButton ' Tipo de control      For i = 0 To VB.Forms.Count - 1 'Busca en cada elemento de la colección Forms      If (VB.Forms(i).Name = FormNombre) Then 'Indica a qué form se agrega el control         Set MiControl = VB.Forms(i).Controls.Add(&#34;VB.CommandButton&#34;, &#34;Command2&#34;)         MiControl.Caption = &#34;Agregado&#34;         MiControl.Visible = True      End If   Next iEnd Sub  

Llamada al procedimiento (esto se hace desde cada ventana):


--- Código: Text --- Private Sub Command1_Click()   AgregarControl Me.Name 'Llama al procedimiento y le pasa como parámetro el nombre del form que realiza la llamadaEnd Sub  
Espero que te ayude.
Suerte.

DiabloRojo

Navegación

[0] Índice de Mensajes

[*] Página Anterior