SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: tobon en Lunes 23 de Enero de 2006, 20:23

Título: Algo Sencillo Que No Encuentro El Codigo Correcto
Publicado por: 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.
Título: Re: Algo Sencillo Que No Encuentro El Codigo Correcto
Publicado por: senzao18 en Viernes 10 de Febrero de 2006, 19:47
Copia este codigo......
Código: Text
  1.  
  2.  
  3.   Public Sub Mostrar(ByVal ofrmOpcionDos As Form)
  4.         'Validar que el Módulono se encuentre Abierto.
  5.         nHwnI = FindWindow(vbNullString, ofrmOpcionDos.Text)
  6.         If Val(nHwnI.ToString) <> 0 Then
  7.  
  8.             MsgBox("El modulo está abierto.", MsgBoxStyle.Exclamation, "DPTienda")
  9.             SetForegroundWindow(nHwnI)
  10.  
  11.             Exit Sub
  12.         End If
  13.         ofrmOpcionDos.Show()
  14.     End Sub
  15.  
  16.     '
  17.     <System.Runtime.InteropServices.DllImport("user32.dll")> _
  18.         Private Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As System.IntPtr
  19.     End Function
  20.     '
  21.     <System.Runtime.InteropServices.DllImport("user32.dll")> _
  22.     Private Shared Function ShowWindow(ByVal hWnd As System.IntPtr, ByVal nCmdShow As Integer) As Integer
  23.     End Function
  24.     '
  25.     <System.Runtime.InteropServices.DllImport("user32.dll")> _
  26.     Public Shared Function SetForegroundWindow(ByVal hWnd As System.IntPtr) As Boolean
  27.     End Function
  28.     '
  29.     Public ceroIntPtr As New IntPtr(0)
  30.     '
  31.     '
  32.  
  33.  
  34.  
  35.  

Y para mandar llamar el formulario usa la siguiente forma......
Código: Text
  1.  
  2.  Dim menuClickB As New CatalogoPlazasForm
  3.                 Mostrar(menuClickB)
  4.  
  5.