Como usar FolderBrowserDialog

[z3nth10n]

No entiendo tu problema Seazoux, y no creo que séa tán dificil declarar una variable en el form principal y usarla en las otras classes, pues te he dado mil ejemplos ya.

De todas formas, si te es tán complicado entonces deberías olvidarte de variables y crear una setting por ejemplo:

Código [Seleccionar] Expandir

My.Settings.Folder

Ahí guardas el valor de la ruta y eso te sirve para cualquier form, y sin movidas.

Saludos

Me va a ser mucho mas facil, y si quiero editar las settings de ese My.Setting desde el

Código [Seleccionar] Expandir


If Resultado = Windows.Forms.DialogResult.OK Then
               ' Aquí iria el codigo
        End If


?

[Eleкtro]

Código [Seleccionar] Expandir

my.settings.myvariable = fbd.selectedpath

[z3nth10n]

Código [Seleccionar] Expandir

my.settings.myvariable = fbd.selectedpath

Pues si pongo:

Código (vbnet) [Seleccionar] Expandir

My.Settings.Folder = FBD.SelectedPath

Me dice:

Error   1   'Folder' is not a member of 'WindowsApplication1.My.MySettings'.   C:\Users\Alvaro\Documents\VisualBasic NET\Projectos\WebKitEmulator\WindowsApplication1\WindowsApplication1\Form2.vb   46   13   WindowsApplication1




Bueno, ahora necesitamos hardcodear esto, como vistes hay un boton que sale: "Descargar roms"

Deberia hacer algo asi:

*Espera que voy a subir la foto*

[Eleкtro]

Pues si pongo:

Código (vbnet) [Seleccionar] Expandir

My.Settings.Folder = FBD.SelectedPath

Me dice:
Error   1   'Folder' is not a member of 'WindowsApplication1.My.MySettings'.   C:\Users\Alvaro\Documents\VisualBasic NET\Projectos\WebKitEmulator\WindowsApplication1\WindowsApplication1\Form2.vb   46   13   WindowsApplication1

Es que no has creado ninguna setting.

Google + vbnet how create my.settings

saludos.

[Eleкtro]

En serio, no sé como se te puede dar tán dificil una variable.

Te vuelvo a repetir lo de antes:

1. Estás declarando la variable en el form, fuera de los subs.
2. No le das ningun valor a la variable.
3. En el form load intentas usar la variable, que no contiene ningún valor, y eso son dos errores, porque no sé que pinta ahí lo que haces en el form load, cuando debería estar todo en el sub del botón.

Repito las cosas y no haces caso.

Código (vbnet) [Seleccionar] Expandir

Public Class Form2

   Dim Listita As New ListBox

   Private Sub Form2_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
       Listita.BackColor = Color.White
       Listita.ForeColor = Color.Black
       Listita.Size = New Point(340, 251)
       Listita.Location = New Point(12, 25)
       AddHandler Listita.SelectedIndexChanged, AddressOf Listita_SelectedIndexChanged
       Me.Controls.Add(Listita)
   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       Me.Close()
   End Sub

   Private Sub Listita_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
       Dim Item As String = Listita.SelectedItem
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim FBD As New FolderBrowserDialog
       FBD.Description = " Seleccionar una carpeta "
       FBD.SelectedPath = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
       FBD.ShowNewFolderButton = True
       Dim Resultado As DialogResult = FBD.ShowDialog
       If Resultado = Windows.Forms.DialogResult.OK Then
        Try
               Dim Folder As String = FBD.SelectedPath
               Dim Files As Array = IO.Directory.GetFiles(Folder, "*", IO.SearchOption.TopDirectoryOnly)
               Dim TotalRoms As Int32 = Files.Length
                Listita.Items.Clear()
               For Each File In Files
                   Dim File_Info As New IO.FileInfo(File)
                   Listita.Items.Add(File_Info.Name)
               Next
               Label1.Text = "Roms encontrados (" & TotalRoms & ")"
           Catch ex As Exception
               MsgBox(ex.Message)
           End Try
       End If
       FBD.Dispose()
   End Sub

End Class

Saludos

[z3nth10n]

Si pero ahora, no se carga nada al principio, sale en blanco xD
Tendre que usar el my.settings xD

[$Edu$]

Cual es el problema principal? ya no se entiende nada, si te explicas desde un principio lo que necesitas claramente tal vez te puedamos ayudar mejor.

[z3nth10n]

Cual es el problema principal? ya no se entiende nada, si te explicas desde un principio lo que necesitas claramente tal vez te puedamos ayudar mejor.

Simplemente como se maneja el App.config, porque estoy mirando, pero lo unico que encuentro es para VB.net 2005 y no el VS 2012, y aqui lo dice muy claro:

Código (xml) [Seleccionar] Expandir


<userSettings>
    <WindowsApplication1.My.MySettings>
       <setting name="myBackColor" serializeAs="String">
          <value>Control</value>
       </setting>
    </WindowsApplication1.My.MySettings>


pero me dice que userSettings no esta declarado.

Que alguien me traduzca esto al VS 2012:

Código (xml) [Seleccionar] Expandir


<userSettings>
    <WindowsApplication1.My.MySettings>
       <setting name="Folder" serializeAs="String">
          <value>FBD.SelectedPath</value>
       </setting>
    </WindowsApplication1.My.MySettings>


Un saludo.

[Eleкtro]

No todo es necesario codearlo, dispones de un menú en la IDE para crear las APP/USER settings:

Project > windowsapplication properties > settings

o dale doble click en "my project" en el "solution explorer"

Código [Seleccionar] Expandir

Nombre: Folder Type: String Scope: User Value: (nada de nada)
Y listo, ya habrás creado tu setting/propiedad

saludos

[z3nth10n]

No todo es necesario codearlo, dispones de un menú en la IDE para crear las APP/USER settings:

Project > windowsapplication properties > settings

o dale doble click en "my project" en el "solution explorer"

Código [Seleccionar] Expandir

Nombre: Folder Type: String Scope: User Value: (nada de nada)
Y listo, ya habrás creado tu setting/propiedad

saludos

Pero aunque le ponga un value ni si quiera se carga.  



Le puse My.Settings.Folder = FBD.SelectedPath

Pero npi de como hacer cargar el value de esa propiedad.