Comento mi aplicación rápidamente y después el problema:
Tengo dos Forms, cada uno de ellos tiene un botón que abre el otro y cierra ese mismo (cambia de Form, vaya). El Form1
tiene un NotifyIcon
para, en caso de cerrar ambas ventanas, poder volver a abrirlo. Todo esto funciona bien. El problema viene cuando vuelvo de Form2
al Form1
, que me crea otro icono igual en la barra de notificaciones, habiendo dos. Si vuelvo al Form2
desde el Form1
no pasa nada, pero al volver al Form1
me crea otro icono y así infinitamente, solo al ir del Form2
al Form1
.
Os dejo el código que creo que afecta a esto a ver si me podéis echar una mano porque no soy capaz de ver el problema.
Boton del Form2
que vuelve al Form1
:
Private Sub FTTA_Click(sender As Object, e As EventArgs) Handles FTTA.Click
Dim goAlmacen As New FormAlmacen
goAlmacen.Show()
Me.Hide()
End Sub
El Load
y el Notify
del Form1
Private Sub FormAlmacen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
vIn.Select()
Dim r As Rectangle = My.Computer.Screen.WorkingArea
Location = New Point(r.Width - Width, r.Height - Height)
vIn.Text = String.Empty
vOUT.Text = String.Empty
txt1.Text = String.Empty
txt2.Text = String.Empty
vNombre.Text = String.Empty
End Sub
Private Sub Vnotificación_MouseClick(sender As Object, e As MouseEventArgs) Handles Vnotificación.MouseClick
vIn.Select()
Me.Show()
vIn.Text = String.Empty
vOUT.Text = String.Empty
txt1.Text = String.Empty
txt2.Text = String.Empty
vNombre.Text = String.Empty
End Sub
Por último en el diseño está puesto de la siguiente forma, no se si tendrá que ver pero por si acaso (elimino las partes de código que no interesan.)
Private Sub InitializeComponent()
Me.Vnotificación = New System.Windows.Forms.NotifyIcon(Me.components)
resources.ApplyResources(Me.Vnotificación, "Vnotificación")
End Sub
Friend WithEvents Vnotificación As NotifyIcon
quiza hay alguna forma de "matar" un icono y sustituirlo por otro si existe o algo por el estilo, pero no soy capaz de hacerlo. ¿Alguna idea?
Edito:
Código del botón que lleva del Form1
al Form2
:
Private Sub ButtonVolver_Click(sender As Object, e As EventArgs) Handles FATT.Click
Dim goTrabajos As New FormFases
goTrabajos.Show()
Me.Hide()
End Sub