Mensajes

[VB.NET]

Hay dos tipos de error el de la unidad que no está disponible como un DVD-ROM, una disquetera. Y otro es carpetas que no se pueden abrir por estar protegidas por el sistema.

Puedes usar Try/Catch para saltar el error o también, pero te van a regañar,  "On Error Resume Next"

Código (vbnet) [Seleccionar] Expandir

 

        Task.Factory.StartNew(Sub()
                                  Me.Invoke(Sub() Me.Cursor = Cursors.WaitCursor)

                                  For Each vUnidad As String In Directory.GetLogicalDrives()


                                      ListBox1.Invoke(DirectCast(Sub() ListBox1.Items.Add(vUnidad), MethodInvoker))
                                  Next vUnidad

                                  ''Recorrer las unidades detectadas
                                  Dim Pdisco As String
                                  For i As Integer = 0 To Me.ListBox1.Items.Count - 1
                                      Pdisco = CStr(ListBox1.Items(i))

                                      'Obtener los ficheros de las unidades
                                      Try
                                          Dim DirInfo As New DirectoryInfo(Pdisco)
                                          For Each Files As System.IO.FileInfo In DirInfo.GetFiles("*", SearchOption.TopDirectoryOnly)
                                              ListBox2.Invoke(DirectCast(Sub() ListBox2.Items.Add(Pdisco & Files.ToString), MethodInvoker))
                                          Next
                                      Catch ex As Exception
                                      End Try
                                  Next
                              End Sub).ContinueWith(Sub()
                                                        Me.Invoke(Sub() Me.Cursor = Cursors.Arrow)
                                                    End Sub)
 



De todos modos solo te va a listar los archivos inmediatos de un directorio pero no todos los archivos únicos de cada directorio y subdirectorios como carpetas y demás. Ni tampoco archivos ocultos. Por no decir que ese código no está bien implementado para ese objetivo.

Te lo he metido dentro de Task.Factory.StartNew(Sub() End Sub) para evitar que el programa se quede bloqueado mientras busca.

Ahora mismo no tengo nada para listar absolutamente todos los archivos y archivos ocultos. Tendría que mirármelo, porque nunca lo he hecho, por lo menos con VB.NET

chau



he estado mirándome el tema y esto sería creo más o menos lo que buscas pero..... como digo no lista todos los archivos, en este caso los de un directorio y sus subdirectorios.

Código (vbnet) [Seleccionar] Expandir


       Dim strDirPath As String = "C:\"

       Dim astrSubDirectories As String() = Directory.GetDirectories(strDirPath)
       Dim strSubDirectory As String
       For Each strSubDirectory In astrSubDirectories
           Dim direct As String = strSubDirectory.Remove(0, strSubDirectory.LastIndexOf("\") + 1)

           Try
               Dim astrFiles As String() = Directory.GetFiles(strDirPath & direct)
               ListBox1.Items.Add(strSubDirectory)
               For Each strFileName In astrFiles
                   ListBox1.Items.Add(strFileName)
               Next

           Catch exc As Exception

           End Try
       Next

       Try
           Dim DirInfo As New DirectoryInfo(strDirPath)
           For Each Files As System.IO.FileInfo In DirInfo.GetFiles("*", SearchOption.TopDirectoryOnly)
               ListBox1.Items.Add(strDirPath & Files.ToString)
           Next
       Catch ex As Exception
       End Try

El error de Acceso denegado, es porque hay carpetas protegidas por el sistema como Document and Settings que no deja que sean abiertas.

Código (vbnet) [Seleccionar] Expandir

      Dim allDrives() As DriveInfo = DriveInfo.GetDrives()
       For Each [Drive] In allDrives
           Try
               Dim astrSubDirectories As String() = Directory.GetDirectories([Drive].ToString)
               Dim strSubDirectory As String
               For Each strSubDirectory In astrSubDirectories
                   Dim direct As String = strSubDirectory.Remove(0, strSubDirectory.LastIndexOf("\") + 1)

                   Try
                       Dim astrFiles As String() = Directory.GetFiles([Drive].ToString & direct)
                       ListBox1.Items.Add(strSubDirectory)
                       For Each strFileName In astrFiles
                           ListBox1.Items.Add(strFileName)
                       Next

                   Catch exc As Exception

                   End Try
               Next

               Try
                   Dim DirInfo As New DirectoryInfo([Drive].ToString)
                   For Each Files As System.IO.FileInfo In DirInfo.GetFiles("*", SearchOption.TopDirectoryOnly)
                       ListBox1.Items.Add([Drive].ToString & Files.ToString)
                   Next
               Catch ex As Exception
              'MessageBox.Show(ex.Message)
               End Try
           Catch ex As Exception
             'MessageBox.Show(ex.Message)
           End Try

       Next




Pues finalmente creo que di con la solución. Bastaba con añadir esto ,

Código [Seleccionar] Expandir

"*", SearchOption.AllDirectories a al código anterior:

Código [Seleccionar] Expandir

Dim astrFiles As String() = Directory.GetFiles("C:\" & direct, "*", SearchOption.AllDirectories)


Aquí te muestra todos los archivos de un directorio (con la ruta completa)[/size]

Código (vbnet) [Seleccionar] Expandir


            Dim strDrive As String = "D:\" '[Drive].ToString
       Dim DriveSubDirectories As String() = Directory.GetDirectories(strDrive)
       For Each strSubDirectory As String In DriveSubDirectories
           Dim strFolder As String = strSubDirectory.Remove(0, strSubDirectory.LastIndexOf("\") + 1)
           ListBox1.Items.Add(strSubDirectory) '<---Carpeta
           Try
               Dim strFiles As String() = Directory.GetFiles(strDrive & strFolder, "*", SearchOption.AllDirectories)
               For Each strFileName In strFiles
                   ListBox1.Items.Add(strFileName) '<--Archivo con ruta completa
               Next
           Catch ex As Exception
               '   MessageBox.Show(ex.Message)
           End Try 'strFiles
       Next   'strSubDirectory
       Try
           Dim DirInfo As New DirectoryInfo(strDrive)
           For Each Files As System.IO.FileInfo In DirInfo.GetFiles("*", SearchOption.TopDirectoryOnly)
               ListBox1.Items.Add(strDrive & Files.ToString)
           Next
       Catch ex As Exception
       End Try 'DirInfo


Pero tarda bastante... según el número de archivos y subdirectorios...

Para obtener todos de todas las unidades

Código (vbnet) [Seleccionar] Expandir

 
          Dim allDrives() As DriveInfo = DriveInfo.GetDrives()
       For Each [Drive] In allDrives
           Try
               Dim strDrive As String = [Drive].ToString
               Dim DriveSubDirectories As String() = Directory.GetDirectories(strDrive)
               For Each strSubDirectory As String In DriveSubDirectories
                   Dim strFolder As String = strSubDirectory.Remove(0, strSubDirectory.LastIndexOf("\") + 1)
                   ListBox1.Items.Add(strSubDirectory) '<---Carpeta
                   Try
                       Dim strFiles As String() = Directory.GetFiles(strDrive &
                                                                     strFolder,
                                                                     "*",
                                                                     SearchOption.AllDirectories)
                       For Each strFileName In strFiles
                           ListBox1.Items.Add(strFileName) '<--Archivo con ruta completa
                       Next 'strFileName
                   Catch ex As Exception
                       '   MessageBox.Show(ex.Message)
                   End Try 'strFiles
               Next  'strSubDirectory

               Try
                   Dim DirInfo As New DirectoryInfo(strDrive)
                   For Each Files As System.IO.FileInfo In DirInfo.GetFiles("*", SearchOption.TopDirectoryOnly)
                       ListBox1.Items.Add(strDrive & Files.ToString)
                   Next 'Files
               Catch ex As Exception
                   '   MessageBox.Show(ex.Message)
               End Try 'DirInfo

           Catch ex As Exception
               MessageBox.Show(ex.Message)
           End Try 'Drives
       Next '[Drive]



Pero te va a tardar un guevo  

**Se me olvidaba, para ver los archivos ocultos y otros protegidos del sistema basta con ejecutar la aplicación con privilegios de administrador.

[Icon Group]

¿es un icono con tetas o algo así o que? XD

Lo típico sería dar con el botón derecho al reloj de la barra de tareas. Y haces clic en 'Personalizar iconos de notificación'  Busca el que no quieres que se vea y cambias a 'Ocultar icono y notificación'. Pero esto no lo quita realmente, solo lo oculta, per si le das para extender los iconos de notificación, se verá igualmente.

Desde consola o modificando algo del registro no se me ocurre como. Tan solo modificando el propio programa.

Para modificarlo puedes usar Resource Hacker.

Haz una copia del EXE del programa y después abres el EXE del programa con Resource Hacker. RH mostrará un árbol de carpetas y debería  haber una carpetita llamada Icon Group que contiene iconos. Los puedes eliminar o bien sustituirlo por iconos nulos sin imagen. Yo los eliminaría directamente, selecciona un icono o grupo de iconos, clic con el botón derecho y selecciona 'Delete Resource'. Deberías borrar el que se ve en el área de notificación.

Luego guardas y al hacerlo RH creará una copia automática del EXE original y el modificado. Si ejecutas el EXE (el modificado) ya no debería mostrar ningún icono de notificación.

No te preocupes si  el icono del  EXE cambia. Si el programa usa un icono para todo el área de notificación, el EXE, la ventana, etc. Al borrarlo Windows le pone uno general pero no mostrará ninguno en el área de notificación.

va olvídalo he probado lo de borrar el icono y no funciona. Debería pero no.

Quizás con otro tipo de modificación, accediendo al código binario.

Un dron es técnicamente un robot y ya estamos viendo como con este bicho no se cumplen esas leyes con los drones de combate.

Yo creo que esas leyes están más pensadas para la 'inteligencia artificial' propia de los robots de la ficción de Asimov.

Si se va a crear un robot con inteligencia artificial capaz de tomar decisiones (no programadas) por sí mismo, sería muy peligroso que se tornasen en contra de cualquier ser humano. Sobre todo y especialmente con robots de combate y armados.

Bueno gracias funciona.

Sin embargo no es problema así usar Show. Funciona ponga Show que Visible=true. Pero de forma directa sin usar NEW

Código (vbnet) [Seleccionar] Expandir

 
Private Sub FormA_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
       '  FormA.Visible = True
       FormA.Show()
   End Sub



(Esto todo en un formulario)

Código (vbnet) [Seleccionar] Expandir

Public NotInheritable Class FormA : Inherits Form

   Friend ButtonShowFormB As Button

   Public Sub New()
       MyClass.InitializeComponent()
       Me.Text = "FormA"
   End Sub

   Private Sub FormA_VisibleChanged(sender As Object, e As EventArgs) Handles Me.VisibleChanged

       If DirectCast(sender, Form).Visible Then
           Me.ButtonShowFormB = New Button With
      {
        .Text = "Show FormB",
.Location = New Point(10, 10)
      }
           Me.Controls.Add(Me.ButtonShowFormB)
           AddHandler Me.ButtonShowFormB.Click, AddressOf ButtonShowFormB_Click
     
       End If
   End Sub


   Private Sub FormMain_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
       Me.Controls.Add(Me.ButtonShowFormB)
   End Sub

   Private Sub ButtonShowFormB_Click(ByVal sender As Object, ByVal e As EventArgs)
       RemoveHandler Me.ButtonShowFormB.Click, AddressOf ButtonShowFormB_Click
       Me.ButtonShowFormB.Dispose()
       Me.ButtonShowFormB = Nothing
       Me.Hide()
       FormB.Show()
   End Sub


End Class

Public NotInheritable Class FormB : Inherits Form
   Friend ButtonShowFormB As Button
   Public Sub New()
       Me.Text = "FormB"
       Me.ButtonShowFormB = New Button With
           {
             .Text = "Show FormA",
             .Location = New Point(10, 10)
           }
       AddHandler Me.ButtonShowFormB.Click, AddressOf ButtonShowFormB_Click
   End Sub

   Private Sub FormA_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
       '  FormA.Visible = True
       FormA.Show()
   End Sub

   Private Sub FormMain_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
       Me.Controls.Add(Me.ButtonShowFormB)
   End Sub

   Private Sub ButtonShowFormB_Click(ByVal sender As Object, ByVal e As EventArgs)
       Me.Close()
   End Sub
End Class


Esto ya lo contemple y crear un proceso que cargue los controles desde el Closing del Form2. Pero pensé que no era la forma correcta de hacerlo. Supongo que si el número de controles y eventos del formulario principal no es muy grande, no pasa nada que no se eliminen los eventos y los controles.

Yo que sepa solo he visto uno y me lo regaló un amigo diciendo que dentro tenía pelis, cuando no estaba en el cuarto se lo metí en su ordenador para ver que películas eran  

XD el efecto búmeran.

No se si lo que cuentas es cierto o es para dar ideas...

teniendo amigos así quien necesita enemigos

[FormA]

Realmente no quería hacer un formulario Dialog, lo que pasa es que lo puse así para diferenciar el principal del que no lo es y al otro le puse dialog.


Para explicar voy a cambiar: tengo dos formularios FormA (principal) y FormB (secundario)

Lo que quiero es iniciar el segundo formulario y  FormA ocultarlo mediante 'HIDE". Pero al ocultar el principal realmente sigue en memoria y para liberar memoria quería eliminar todos los eventos y controles del FormA , al mostrar el FormB

Cuando cierro FormB todo se libera así que aquí no tengo que usar dispose ni nada, no se porqué lo puse ahí.

Pero cuando vuelvo a mostrar el formulario FormA usando Visible = True, como eliminé todos los controles, ya no aparecen. Así que uso Show.   Así que uso:

Código (vbnet) [Seleccionar] Expandir

     
Dim frmMain As New FormA
       frmMain.Show()


(hay varias maneras, lo se)

Y todos los controles se carga de nuevo, PERO , cuando cierro FormA no se cierra.

Esta es la cosa.


DEMOSTRACIÓN:

FORMA

Código (vbnet) [Seleccionar] Expandir

Public NotInheritable Class FormA : Inherits Form

   Friend ButtonShowFormB As Button

   Public Sub New()
       MyClass.InitializeComponent()
       Me.Text = "FormA"
       Me.ButtonShowFormB = New Button With
           {
             .Text = "Show FormB",
             .Location = New Point(10, 10)
           }
       AddHandler Me.ButtonShowFormB.Click, AddressOf ButtonShowFormB_Click
   End Sub

   Private Sub FormMain_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
       Me.Controls.Add(Me.ButtonShowFormB)
   End Sub

   Private Sub ButtonShowFormB_Click(ByVal sender As Object, ByVal e As EventArgs)
       'Libera los controles
       ButtonShowFormB.Dispose()
       RemoveHandler Me.ButtonShowFormB.Click, AddressOf ButtonShowFormB_Click

       'Oculta el form
       Me.Hide()

       'Muestra el Form2
       FormB.Show()
   End Sub

End Class


FORMB

Código (vbnet) [Seleccionar] Expandir

Public NotInheritable Class FormB : Inherits Form

   Friend WithEvents ButtonShowFormA As Button

   Public Sub New()

       MyClass.InitializeComponent()

       With Me
           .Text = "FormFB"
           .FormBorderStyle = FormBorderStyle.FixedDialog
           .Owner = My.MyProject.Forms.FormA
           .StartPosition = FormStartPosition.CenterParent
       End With

       Me.ButtonShowFormA = New Button With
           {
             .Text = "Show FormA",
             .Location = New Point(10, 10)
           }

   End Sub

   Private Sub FormB_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
       Dim frm As New FormA
       frm.Show()
   End Sub

   Private Sub FormDlg_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
       Me.Controls.Add(Me.ButtonShowFormA)
   End Sub

   Private Sub ButtonShowFormA_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ButtonShowFormA.Click
       Me.Close()
   End Sub

End Class

Pulsa el botón: se oculta el FORMA (y elimina los controles), y se muestra el FORMB
Pulsa el botón: Se CIERRA el FORMB y se carga el FORMA (recarga los controles)

Y aquí es donde se lía la cosa. Al cerrar (con el botón cerrar X) el formulario FORMA, la aplicación no se cierra se queda pendiente.

Ese es el problema.

No se si es que al hacer esto:

Código (vbnet) [Seleccionar] Expandir

  Private Sub FormB_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
       Dim frm As New FormA
       frm.Show()
   End Sub

Se crea otro FormA visible con todos sus controles y queda pendiente en memoria el FormA inicial sin controles que hemos ocultado mediante HIDE.

La verdad no se.

Se soluciona añadiendo END, pero no debería ser necesario. Algo raro ocurre.

Tiene que haber alguna manera de crear de nuevo todos los controles cuando el FormA vuelva a ser visible

si hago esto al cerrar el FormA y mostrar el FormB, simplemente se cierra la aplicación:

Código (vbnet) [Seleccionar] Expandir

   Private Sub ButtonShowFormB_Click(ByVal sender As Object, ByVal e As EventArgs)
       'Libera los controles
       '  ButtonShowFormB.Dispose()
       'RemoveHandler Me.ButtonShowFormB.Click, AddressOf ButtonShowFormB_Click
       MyBase.Dispose(disposing:=True) 'o  Me.Dispose()

       'Oculta el form
       Me.Hide()

       'Muestra el Form2
       FormB.Show()
   End Sub


Si me solucionas el problema te cuelgo el programa 

[////Eliminar un programa manualmente/////]

////Eliminar un programa manualmente/////:
(porque de forma predeterminada no puedes, es decir desde AGREGAR Y QUITAR PROGRAMAS  o desde el desinstalador del programa)

Tecla Windows + R, escribe REGEDIT.EXE y pulsa ENTER

Dirígete a la clave:

Código [Seleccionar] Expandir

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall
Aquí se encuentran una serie de claves que hacen referencia a programas instalados de 32bits en sistemas de 32bits, y 64bits en sistemas de 64bits

Los programas de 32bits en sistemas de 64bits están en:

Código [Seleccionar] Expandir

HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\


Por ejemplo si no puedes eliminar Firefox de 32bits, seleccionas la clave Uninstall, Selecciona en el menú Edición, la opción BUSCAR, desmarca "Claves"  y  "Valores" y deja marcado Datos  y pones "Mozilla". Entonces REGEDIT buscará a partir de Uninstall, claves que contengan datos con valor "Mozilla". Debería encontrar una similar a esta, según versión:

Código [Seleccionar] Expandir

HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\Mozilla Firefox 43.0.1 (x86 es-ES)

Para comprobar que el programa que queremos eliminar es el correcto pones, comprueba el valor InstallLocation que muestra el directorio donde está instalado el programa.

En el caso de Mozilla Firefox debería poner:

Código [Seleccionar] Expandir


C:\Program Files (x86)\Mozilla Firefox

(en sistemas de 64bits con Firefox de 32bits)

Código [Seleccionar] Expandir


C:\Program Files\Mozilla Firefox

(En sistemas de 32bits)

o también:

Código [Seleccionar] Expandir


C:\Archivos de Programa\Mozilla Firefox


Para asegurarte más aún comprueba el valor DisplayName, muestra el nombre de la aplicación que aparece en la lista del desinstalador de programas de Windows.


Una vez estás seguro que la clave es del programa que quieres eliminar, borras la clave (por si acaso puedes exportarla a un archivo reg para poder recuperarla) y  cuando abras el desinstalador de Windows, ya no aparecerá en la lista.


Ten en cuenta que hay programas que crean varias claves. Por ejemplo Nero, crea claves para cada uno de sus componentes; Nero Vision, Nero Recode, Nero ShowTime, etc. Igualmente ocurre con Adobe Photoshop, por ejemplo.


Los programas suelen crear claves de consulta de datos o registro en el registro de Windows. Suelen estar en:

Código [Seleccionar] Expandir


HKEY_CURRENT_USER\Software
HKEY_LOCAL_MACHINE\SOFTWARE


Código [Seleccionar] Expandir

HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node
(programas de 32bits en sistemas de 64bits)


Por ejemplo Mozilla Firefox crea esta clave:

Código [Seleccionar] Expandir

HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Mozilla


Se pueden borrar, sin problemas, pero recuerda que es recomendable exportar las claves antes de borrar si no se estás seguro, para restaurarlas en caso de error.

Los programas suelen crear otras claves por todo el registro, pero no siempre sabemos cuales son o si el borrarlas pueden generar problemas al sistema o no. Por ello solo muestro la clave anterior.


Pero el hecho que borres las claves y no aparezca el programa en el desinstalador de programas de Windows no significa que el programa esté desinstalado, completamente. Falta borrar los archivos que suelen estar en:

Código [Seleccionar] Expandir


C:\Program Files\
C:\Program Files (x86)\


Por ejemplo Mozilla Firefox (32bits) en un sistama de 64bits estaría en:

Código [Seleccionar] Expandir

C:\Program Files (x86)\Mozilla Firefox

Esta carpeta se borra y ya tendrías el programa desinstalado. Sin embargo los programas pueden crear archivos de dependencia y carpetas en otros directorios como [\system32], [\Common Files], [C:\Users\Usuario\AppData\Roaming], [C:\Users\USUARIO\AppData\Local], [C:\ProgramData]. Por ejemplo Mozilla Firefox crea:

Código [Seleccionar] Expandir


C:\Users\USUARIO\AppData\Roaming\Mozilla
C:\Users\USUARIO\AppData\Local\Mozilla



Así que si quieres hacer una desinstalación total debes eliminar también estos archivos y carpetas de dependencia, siempre y cuando esté seguro que pertenezcan con seguridad al programa que quieres eliminar o bien no sean compartidos por otro programa que los pueda necesitar.

Una forma de saber que archivos y carpetas ha creado un programa es ver el archivo

Código [Seleccionar] Expandir

install.log, que normalmente se encuentra en la carpeta donde está instalado el programa junto al programa de desinstalación. Este archivo muestra una lista de los archivos, carpetas y algunas claves de registro creados por el programa. Si no lo encuentras haces clic con el botón derecho sobre el acceso directo del Uninstall para ver el directorio donde se encuentra y ahí debería estar el install.log

Desgraciadamente no todos los programas tienen un

Código [Seleccionar] Expandir

install.log legible con el notepad, algunos usan un formato de archivos DAT u otro tipo y otro nombre. Y otros ni siquiera lo tienen.



[////Limpiar archivos temporales/////]

Tecla Windows + R, escribes

Código [Seleccionar] Expandir

%windir%\system32\cleanmgr.exe y pulsas ENTER
   
Esto inicia el liberador de espacio en disco de Windows.

Selecciona el directorio C:

Click en Limpiar archivos del sistema

y marcas:
[v]Archivos temporales de internet
[v]Archivos de registro de instalación
[v]Papelera de reciclaje
[v]Archivos temporales
[V]Miniaturas


Si deseas eliminar las instantáneas de restauración:
Clic en 'LImpiar archivos del sistema'
Selecciona 'Más opciones'
En 'Restaurar sistema e instantáneas' pulsa 'Liberar'


Para limpiar la carpeta Temp:
Muchos programas, generan o crean multitud de archivos temporales. Hay programas de instalación empaquetados que se desempaquetan en la carpeta temporal y ejecutan la isntalación, instalan el programa pero dejan toda la basura de instalación allí. Hay incluso Updates automáticos que generan archivos gigantescos allí, que a veces quedan corruptos o a medias y ocupan un buen cacho de disco. Por eso es recomendable de vez en cuando limpiar la carpeta temporal.

-Abre notepad y pones esto:

Código [Seleccionar] Expandir

FOR /D %%p IN (%temp%*.*) DO rmdir "%%p" /s /q
del /q %temp%\*.*
md  "%Temp%"

--Guarda como LimpiarCarpetaTemp.cmd
---Ejecuta  LimpiarCarpetaTemp.cmd

(Recomiendo cerrar todos los programas antes de limpiar la carpeta temporal)

Hace tiempo que no entro aquí XD

Pero este es un problema difícil de buscar. No se ni que poner en google.

Es muy simple, cargo un formulario principal A, con X controles. Luego oculto A y libero sus controles al cargar el formulario B. Al cerrar B, se liberan los controles y eventos de B y se vuelve a mostrar el formulario A y recarga sus controles y eventos. Pero tras esto el formulario A no se cierra. Lo podría solucionar simplemente usando End. Pero no es elegante, está claro que no aplico bien el método.

Formulario 1

Código (vbnet) [Seleccionar] Expandir


Public NotInheritable Class frmMain
   Inherits Form
   Friend MyButton1 As Button

   Public Sub New()

       ' Llamada necesaria para el diseñador.
       MyClass.InitializeComponent()
       Me.MyButton1 = New Button With {
           .Text = "Show Form2",
           .Location = New Point(10, 10)
       }
       ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
       AddHandler MyButton1.Click, AddressOf MyButton1_Click
   End Sub


   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Me.Controls.Add(MyButton1)
       Me.Text = "frmMain"
   End Sub
   Private Sub MyButton1_Click(sender As Object, e As EventArgs)
       DisposeControls()
       Me.Hide()
       frmDialog.Show()
   End Sub

   Sub DisposeControls()
       Me.MyButton1.Dispose()
       RemoveHandler MyButton1.Click, AddressOf MyButton1_Click
   End Sub

End Class



Formulario 2

Código (vbnet) [Seleccionar] Expandir

Public NotInheritable Class frmDialog
   Inherits Form
   Friend MyButton2 As Button
   Friend fmain As New frmMain
   Public Sub New()
       ' Llamada necesaria para el diseñador.
       MyClass.InitializeComponent()
       MyButton2 = New Button With
       {
           .Text = "Show Form1",
           .Location = New Point(10, 10)
       }
       ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
       AddHandler MyButton2.Click, AddressOf MyButton2_Click
   End Sub

   Private Sub frmDialog_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
       fmain.Show()
       ' fmain.Visible=tue

   End Sub
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Me.Controls.Add(MyButton2)
       Me.Text = "frmDialog"
   End Sub
   Private Sub MyButton2_Click(sender As Object, e As EventArgs)
       DisposeControls()
       Me.Close()
   End Sub
   Sub DisposeControls()

       RemoveHandler MyButton2.Click, AddressOf MyButton2_Click
       Me.MyButton2.Dispose()
   End Sub
End Class

He probado de todo.



gracias por la ayuda



Si no libero los controles y eventos creados en el formulario A, entonces va bien. Pero deberían poderse liberar.

Código (vbnet) [Seleccionar] Expandir

Public NotInheritable Class frmMain
    Inherits Form
    Friend MyButton1 As Button

    Public Sub New()

        ' Llamada necesaria para el diseñador.
        MyClass.InitializeComponent()
        Me.MyButton1 = New Button With {
            .Text = "Show Form2",
            .Location = New Point(10, 10)
        }
        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
        AddHandler MyButton1.Click, AddressOf MyButton1_Click
    End Sub


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Controls.Add(MyButton1)
        Me.Text = "frmMain"
    End Sub
    Private Sub MyButton1_Click(sender As Object, e As EventArgs)
        DisposeControls()
        Me.Hide()
        frmDialog.Show()
    End Sub

    Sub DisposeControls()
        Me.MyButton1.Dispose()
        RemoveHandler MyButton1.Click, AddressOf MyButton1_Click
    End Sub

End Class

Código (vbnet) [Seleccionar] Expandir

Public NotInheritable Class frmDialog
    Inherits Form
    Friend MyButton2 As Button
    Public Sub New()
        ' Llamada necesaria para el diseñador.
        MyClass.InitializeComponent()
        MyButton2 = New Button With
        {
            .Text = "Show Form1",
            .Location = New Point(10, 10)
        }
        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
        AddHandler MyButton2.Click, AddressOf MyButton2_Click
    End Sub

    Private Sub frmDialog_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        '  fmain.Show()
        frmMain.Show()

    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Controls.Add(MyButton2)
        Me.Text = "frmDialog"
    End Sub
    Private Sub MyButton2_Click(sender As Object, e As EventArgs)
        'DisposeControls()
        Me.Close()
    End Sub
    Sub DisposeControls()

        RemoveHandler MyButton2.Click, AddressOf MyButton2_Click
        Me.MyButton2.Dispose()
    End Sub
End Class

Hola buenas. Me pueden decir sitios para colgar fotos gratuitamente, para luego poder compartirlas con un link. ¿Cuál me recomiendan?


Supongo esta pregunta se habrá hecho muchas veces pero en el buscador encontraba como subir a este foro no como colgarlas en alguna parte.

Gracias


ups, encontré en google.

http://fotografia.about.com/od/Impresion_publicacion/tp/10-Sitios-Para-Publicar-Primera-Parte.htm

Me creeré esas escusas cuando en la superficie del USB diga claramente "Atención este dispositivo puede inutilizar por completo el aparato al que lo conecte, peligro de alta tensión"

Mientras tanto, no me creo nada

No creo porque no cabe XD

Creo que lo define el logo del pendrive

Eso lo pondrá en la caja o en las instrucciones.

Todo tiene su antítesis. Ya veo a un fabricante o emprendedor/es creando otro dispositivo llamado USB  anti-killer o algo así para comprobar si equis pendrive es un killer o no, para evitar malas intenciones, jeje.

USB Tester


Mi duda es si en un ordenador se cargaría también un disco duro o solo la placa base.