Autor Tema: Algo Sencillo Que No Encuentro El Codigo Correcto (Leído 1059 veces)

tobon · « **en:** Lunes 23 de Enero de 2006, 20:23 »

el problema que tengo que cuando tengo el siguiente codigo:

Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim myForm2 As New Form2
myForm2.Show()
End Sub
y se vuelve a hacer click en el boton se habre otro nuevo form2, quisiera que cuando se hiciera click el boton y ya haya un form2 abierto active el form2 abierto.

gracias por adelantado.

senzao18

Copia este codigo......

Código: Text

 
 
  Public Sub Mostrar(ByVal ofrmOpcionDos As Form)
        'Validar que el Módulono se encuentre Abierto.
        nHwnI = FindWindow(vbNullString, ofrmOpcionDos.Text)
        If Val(nHwnI.ToString) &#60;&#62; 0 Then
 
            MsgBox(&#34;El modulo está abierto.&#34;, MsgBoxStyle.Exclamation, &#34;DPTienda&#34;)
            SetForegroundWindow(nHwnI)
 
            Exit Sub
        End If
        ofrmOpcionDos.Show()
    End Sub
 
    '
    &#60;System.Runtime.InteropServices.DllImport(&#34;user32.dll&#34;)&#62; _
        Private Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As System.IntPtr
    End Function
    '
    &#60;System.Runtime.InteropServices.DllImport(&#34;user32.dll&#34;)&#62; _
    Private Shared Function ShowWindow(ByVal hWnd As System.IntPtr, ByVal nCmdShow As Integer) As Integer
    End Function
    '
    &#60;System.Runtime.InteropServices.DllImport(&#34;user32.dll&#34;)&#62; _
    Public Shared Function SetForegroundWindow(ByVal hWnd As System.IntPtr) As Boolean
    End Function
    '
    Public ceroIntPtr As New IntPtr(0)
    '
    '
 
 
 
 

Y para mandar llamar el formulario usa la siguiente forma......

Código: Text

 
 Dim menuClickB As New CatalogoPlazasForm
                Mostrar(menuClickB)

SoloCodigo

Autor Tema: Algo Sencillo Que No Encuentro El Codigo Correcto (Leído 1059 veces)

tobon

Algo Sencillo Que No Encuentro El Codigo Correcto

senzao18

Re: Algo Sencillo Que No Encuentro El Codigo Correcto