Mensajes

Directamente te paso el codigo por un MP y listo. 

No tengo actualizado ese codigo, ahora lo que intento leer es la variable haciendo una pequeña prueba:

Código (vbnet) [Seleccionar] Expandir

MsgBox("La ruta del Folder deberia salir aquí: " & My.Settings.Folder)

Pero no me sale nada de nada y eso que le tengo un value puesto. 

[Project > windowsapplication properties > settings]

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. 

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.

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

[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]

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*

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


?

pues dále otro nombre a la segunda variable...

esto ya te lo puse antes:

Código [Seleccionar] Expandir

form1
public folder as string = "C:\"


form2
public folder2 as string = form1.folder


No uses el mismo nombre de variable para todo...

Pero es que si lo cambio sea lo que sea que cambie igualmente, no voy a poderr hacer una variable para las dos, porque el nombre va a estar cambiando, es decir que si la variable que toma es Folder, yo no le puedo meter la variable Folder2, poque no la va a enternder, me explico?

A ver si me pouedes hacer un codigo o algo 

[Ctrl + F]

Cláramente se vé que declaras dos "Folder" privadas en el form que has posteado.

Tú mismo te respondes... usa el buscador de la IDE, Ctrl + F, y buscas "Folder" en la solución entera.

Si pero como declaro un Form si necesito las 2, a no ser que hiciese una matriz xD Pero igualmente necesito declarar la primera pa que no me suelte un error, como lo haria? Y luego otra que seria de le My.Setting, como lo hariax2? xD

Antes de tu nueva edición era una pregunta inentendible.

y digo yo... ¿Y porqué no lo haces de la misma manera que lo haces con el antiguo valor del folderbrowserdialog?  (c&p oculto)

PD: si no es eso da más datos del problema... pon tu código.

saludos

Lo que intento hacer es editar el Folder desde:

Código (vbnet) [Seleccionar] Expandir


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


Pero hay conflicto porque hay ya un Folder definido, que por cierto lo quite de Form1,

Código (vbnet) [Seleccionar] Expandir


Option Explicit On

Public Class Form2

    Dim Listita As New ListBox
    Dim FBD As New FolderBrowserDialog


    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) ' Dejo un margen de espacio de 100 px porque solo quieres ocupar "la mayor parte"
        AddHandler Listita.SelectedIndexChanged, AddressOf Listita_SelectedIndexChanged
        Me.Controls.Add(Listita)

        Dim Folder As String = "C:\Users\Alvaro\Documents"
        Dim Files As Array = IO.Directory.GetFiles(Folder, "*", IO.SearchOption.TopDirectoryOnly)

        For Each File In Files
            Dim File_Info As New IO.FileInfo(File)
            Listita.Items.Add(File_Info.Name)
        Next

        Dim Files1 As Array = IO.Directory.GetFiles(Environment.GetFolderPath(Environment.SpecialFolder.System), "*", IO.SearchOption.TopDirectoryOnly)
        Dim TotalRoms As Int32 = Files1.Length
        Label1.Text = "Roms encontrados (" & TotalRoms & ")"
    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
        MsgBox(Folder + Item)
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        FBD.Description = " Seleccionar una carpeta "
        FBD.SelectedPath = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        FBD.ShowNewFolderButton = True
        Dim Folder As String = FBD.SelectedPath
        Dim Resultado As DialogResult = FBD.ShowDialog
        If Resultado = Windows.Forms.DialogResult.OK Then

        End If

        FBD.Dispose()
    End Sub
End Class

Un saludo.