Foro de elhacker.net

Programación => Programación General => Mensaje iniciado por: Eleкtro en 9 Noviembre 2012, 19:38 pm



Título: [VS2012] El control FolderBrowserDialog está deshabilitado!
Publicado por: Eleкtro en 9 Noviembre 2012, 19:38 pm
Estoy intentando usar este control en un botón, el form es un WPF, pero por algún motivo que desconozco lo tengo deshabilitado y no puedo usarlo...

(http://img248.imageshack.us/img248/1985/prtscrcapturei.jpg)

¿Alguna idea de porqué no puedo acceder al control?

¿Como podría usar FolderBrowserDialog en ese botón si no puedo acceder a él?, Pues he visto infinitos ejemplos y no he conseguido hacerlo por mi mismo.

Necesito usar el folderbrowser nativo de windows, no me sirve otro (Son muy malos visual e interactivamente hablando), o en su defecto poder hacer este openfiledialog para mostrar/abrir/seleccionar solamente carpetas si fuera posible?:

Código
  1.    Private Sub Button_Click_1(sender As Object, e As RoutedEventArgs)
  2.  
  3.        Dim dlg As New Microsoft.Win32.OpenFileDialog()
  4.        Dim result As Nullable(Of Boolean) = dlg.ShowDialog()
  5.  
  6.        If result = True Then
  7.            Dim path As TextBox = DirectCast(TryCast(DirectCast(sender, FrameworkElement).Parent, FrameworkElement).FindName("textPath"), TextBox)
  8.            TextBox1.Text = dlg.FileName
  9.            DirectCast(sender, Button).Focus()
  10.        End If
  11.  
  12.    End Sub

Gracias por leer.


Título: Re: [VS2012] El control FolderBrowserDialog está deshabilitado!
Publicado por: Eleкtro en 10 Noviembre 2012, 01:59 am
Ya lo solucioné:

Código
  1.    Public Sub Button_Click_1(sender As Object, e As RoutedEventArgs)
  2.  
  3.        Dim dialog As New System.Windows.Forms.FolderBrowserDialog
  4.        Dim Resultado As DialogResult
  5.        Dim Texto As String
  6.  
  7.        dialog.RootFolder = Environment.SpecialFolder.ApplicationData
  8.        Resultado = dialog.ShowDialog
  9.        If Resultado.ToString() = "OK" Then
  10.            TextBox1.Text = dialog.SelectedPath
  11.        Else
  12.            TextBox1.Text = "empty"
  13.        End If
  14.    End Sub

saludos