Mensajes

[Call TreeView_AfterSelect()]

'Hola como llamo a TreeView_AfterSelect desde un Button1
'En VB.60 bastaba con Call TreeView_AfterSelect()
'En VB.NET tiene dos parametros y ya he intentado con:

Código [Seleccionar] Expandir

Call TreeView1_AfterSelect(me, TreeViewEventArgs.Empty)
Call TreeView1_AfterSelect(TreeView1, TreeViewEventArgs.Empty)
Call TreeView1_AfterSelect(Nothing, Nothing)


y no funciona con ninguno de los tres.

Código [Seleccionar] Expandir

Private Sub TreeView_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
    'codigo que lista en un ListView1 de acuerdo al nodo seleccionado
    'ListView1.Items.Clear
    'Etc, etc
End Sub


'muchos botones uno de ellos es button1 que hace actualizar

Código [Seleccionar] Expandir


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Call TreeView1_AfterSelect(TreeView1, TreeViewEventArgs.Empty) '<<  E R R O R
End Sub


Lo que hace el Button1.Clik es llamar al Sub TreeView_AfterSelect así pueda cargar nuevamente listado es decir actualizar el listado.

Después de una semana googleando finalmente los he resuelto. Para lo que necesiten...

Código [Seleccionar] Expandir

            Dim IsFormLoaded As Boolean = False
            Dim myFrm As Form
            For Each myFrm In Me.MdiChildren
                If myFrm.Name = "frmBuscado" Then
                    If myFrm.WindowState = FormWindowState.Minimized Then
                        myFrm.WindowState = FormWindowState.Normal
                    Else
                        myFrm.BringToFront()
                    End If
                    IsFormLoaded = True
                    Exit For
                End If
            Next
            myFrm = Nothing

            If IsFormLoaded = False Then
                Dim myFrmBuscado As New frmBuscado
                With myFrmBuscado
                    .MdiParent = Me
                    .Show()
                End With
                myFrmBuscado = Nothing
            End If

Si desean buscar en todos los formularios reemplacen:

Código [Seleccionar] Expandir

Me.MdiChildren por

Código [Seleccionar] Expandir

Application.OpenForms

Saludos,

[[D4N93R]]

Hola, [D4N93R]

Me podrías explicar como me suscribo y desuscribo....

para detectar cuando el usuario realizo la acción o cuando se lanzo programaticamente.

por lo que dices, MANULOMM, si hay gente arreglandose para solucionar este tipo de casos microsoft debería preocuparse y solucionar con un simple:

Código [Seleccionar] Expandir

chkEnviado.Checked = False NoProducirEvento

En su próxima actualización, no creen?!!!

Hola, .mokk.

Ya había pensado en esa solución. Pero, me preguntaba que a lo mejor Vb.Net tiene alguna solución preparada para este tipo de casos. No sé. No creo que las grandes aplicaciones complejas que son desarrolladas por un grupo de programadores solucione ese caso con lo que me has propuesto, o si??

A lo mejor exista algo así:

Código [Seleccionar] Expandir

chkEnviado.Checked = False NoProducirEvento

Mi inquietud es mas por programar de la manera correcta. Es decir, usar los códigos preparados para la situación y no implementar algo sencillo como lo que me has propuesto, aunque funcione perfectamente.
Claro que si no hay otra manera se usa y ya... 

[btnCancelar]

Código [Seleccionar] Expandir

Private Sub chkEnviado_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkEnviado.CheckedChanged
  If chkEnviado.Checked = True Then
     If MsgBox("¿Estas seguro que esta factura esta enviada?", CType(MsgBoxStyle.Question + MsgBoxStyle.YesNo, MsgBoxStyle)) = MsgBoxResult.No Then
        chkEnviado.Checked = False
     End If       
  End If
End If


Código [Seleccionar] Expandir


Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
   chkEnviado.Checked = True
End Sub

Bueno, aquí esta mas claro. Cuando hago click en el btnCancelar me sale el mensaje como cuando doy click en el chkEnviado.

Pues quiero evitar que salga ese mensaje... no sé. que omita todo su codigo xq lo estoy activando por codigo desde otro lado...

Que es eso?

[ChkEnviado.Enabled=True]

Código (vbnet) [Seleccionar] Expandir


Private Sub chkEnviado_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkEnviado.CheckedChanged
 If chkEnviado.Checked = True Then
    If MsgBox("¿Estas seguro que esta factura esta enviada?", CType(MsgBoxStyle.Question + MsgBoxStyle.YesNo, MsgBoxStyle)) = MsgBoxResult.No Then
       chkEnviado.Checked = False
    End If        
 End If
End If


Hasta aquí ni un problema. Hasta que cuando edito la factura enviada, con el btnEditar. Activo: ChkEnviado.Enabled=True y la desseleciono manualmente: chkEnviado.Checked = False

Luego presiono en el btnCancelar para restablecer los datos y me sale el mensaje como si ubiera precionado en el chkEmitido.

Mi pregunta es pues como hago para que no aparezca ese mensaje cuando preciono el boton cancelar.

Hola, alguien sabe como puedo saber si un formulario esta cargado..

Tengo un ListView con un listado de Clientes.

Código (vbnet) [Seleccionar] Expandir

Dim myForm As New frmCliente
With myForm
    .Show()
End With

Lo que deseo saber es cargar un formulario por cliente. Es decir, si el cliente1 ya esta cargado en el FrmCliente. pues no dejar cargar otras ves.


En VB.60 se podía hacer con la coleccion Forms, pero en VB.Net no hay.
Alguna idea....


Nota: los formularios cliente no estan en un MDI
Saludos,

[me]

Gracias, [D4N93R]

Funcionó.. quería comentarte xq que hay que poner me y EventArgs.Empty y tambien si antes del me se debe poner ByVal o ByRef o simplemente me como me has dicho

Código [Seleccionar] Expandir

Button2_Click(Me, EventArgs.Empty)

Saludos,