Directamente te paso el codigo por un MP y listo.
![:P :P](https://forum.elhacker.net/Smileys/navidad/tongue.gif)
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúMsgBox("La ruta del Folder deberia salir aquí: " & My.Settings.Folder)
Cita de: EleKtro H@cker en 26 Enero 2013, 15:11 PM
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"Nombre: Folder Type: String Scope: User Value: (nada de nada)
Y listo, ya habrás creado tu setting/propiedad
saludos
Cita de: $Edu$ en 26 Enero 2013, 14:27 PM
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.
<userSettings>
<WindowsApplication1.My.MySettings>
<setting name="myBackColor" serializeAs="String">
<value>Control</value>
</setting>
</WindowsApplication1.My.MySettings>
<userSettings>
<WindowsApplication1.My.MySettings>
<setting name="Folder" serializeAs="String">
<value>FBD.SelectedPath</value>
</setting>
</WindowsApplication1.My.MySettings>
Cita de: EleKtro H@cker en 26 Enero 2013, 12:30 PMmy.settings.myvariable = fbd.selectedpath
My.Settings.Folder = FBD.SelectedPath
Cita de: EleKtro H@cker en 26 Enero 2013, 12:22 PM
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:My.Settings.Folder
Ahí guardas el valor de la ruta y eso te sirve para cualquier form, y sin movidas.
Saludos
If Resultado = Windows.Forms.DialogResult.OK Then
' Aquí iria el codigo
End If
Cita de: EleKtro H@cker en 26 Enero 2013, 11:20 AM
pues dále otro nombre a la segunda variable...
esto ya te lo puse antes:form1
public folder as string = "C:\"
form2
public folder2 as string = form1.folder
No uses el mismo nombre de variable para todo...
Cita de: EleKtro H@cker en 26 Enero 2013, 09:10 AM
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.
Cita de: EleKtro H@cker en 25 Enero 2013, 21:49 PM
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
If Resultado = Windows.Forms.DialogResult.OK Then
' Aquí iria el codigo
End If
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