construccion del programa navegador

[xax]

hola que tal soy un novato en esto me gusta y estoy aprendiendo, estoy leyendo un libro sobre visual basic, tiene practicas, y estoy creando un programita navegador que es colocar drivelistbox, luego un drilistbox, luego un contro filelistbox, y un control image. la idea es que uno vaya abriendo y luego salga la imagen cierto? bueno todo lo tengo bien pero no me sale la imagen es lo unico q me falta, yo puse los formatos bien y todo, no se.. alguien me puede ayudar? espero haberme explicado bien.. saludos!

aki el codigo

Código:

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
selecdfile = File1.Path & "\" & File1.FileName
Image1.Picture = LoadPicture(selectedfile)
End Sub

[jackl007]

mira bien que lo que estas cargando no es correcto
te lo dejo arreglado:

Código:

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
selecdfile = File1.Path & "\" & File1.FileName
Image1.Picture = LoadPicture(selecdfile )
End Sub

[xax]

coye muchisismas gracias.. ya me sirvio.. disculpa (como estoy aprendiendo) cual fue mi error, pero me podrias explicar mas o menos?? muchas gracias y saludos!!

[700esoj]

Tu error estaba en el nombre de la variable.
Tu codigo

Código:

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
selecdfile = File1.Path & "\" & File1.FileName
Image1.Picture = LoadPicture(selectedfile ) ' Tu error esta en la variable '(selectedfile)
End Sub

Tu error esta en la variable. En la variable que si te fijas bien la declarastes como "selecdfile" y luego  no la escribistes bien en el LoadPicture() En el parentesis escribistes "selecedfile" y no "selecdfile". ese es un error por que "selectedfile" no tiene valor alguno y no se a declarado en primer lugar.

Para declarar la variable seria algo como:

Private sub command1_click()
Dim variable As TIPO      'Dim es igual a Private
variable = "Hola Mundo" 'variable es el nombre de la variable
                                       'Y el valor es "Hola Mundo" ya que es
                                       'de tipo cadena se debe de poner String
                                       'en donde dice TIPO

Ejemplo:

Private Sub command1_clic()
Dim pendejo As String    'Aqui la variable se llama pendejo y su tipo es String

pendejo = "Hola Pendejo"  'aqui se le da el valor a la variable pendejo

msgbox (pendejo)
End Sub

---------------------------------
Las Variables no tienen que ser declaradas por tipo pero es recomendable.

ejemplo

Código:

Private Sub Command1_click()

pendejo = "Hola Pendejo"

Msgbox (pendejo)
end Sub

como ves, eso fue lo que occurio con tu codigo. No declarastes la variable con DIM, Y esta bien pero se recomienda declararla por que hay muchos tipos diferentes de variables.

En tu codigo el error fue que Confundistes "selecdfile" Por "selectedfile"

selecdfile = File1.Path & "\" & File1.FileName
Image1.Picture = LoadPicture(selecdfile )

al selectedfile no ser una variable declarada, no podia hacer nada. solo debes de corregir selectedfile por [color = red]selecdfile[/b]  o viseversa.

Disculpa mis explicaciones, pero no ensenar no es mi fuerte jeje.

-700esoj

[xax]

jeje no vale para nada entendi muy bien... muchas gracias.. yo seguire leyendo este pequeñito libro.. muchas gracias por responder saludos!!