Imprimir Página - Duda Sobre Filelistbox

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: MarXe en Miércoles 21 de Junio de 2006, 04:04

Título: Duda Sobre Filelistbox
Publicado por: MarXe en Miércoles 21 de Junio de 2006, 04:04

Holas :)
como estan ?
espero que muy bien jeje :P

Bueno...yo hace mucho habia empesado un previsualizador de imagenes...
y tube que insertarle un filelistbox...
pero al verse tan poco profesional con las extensiones decidi empesar a investigar la forma de sacarselas...

Una ves lo habia encontrado, pero como un ****** no guarde nada ni la referencia de la pagina ni nada (grave error)

Bueno...lo unico que me acuerdo es que usaban la funcion LEN y el numero -4 pero nada mas...

Bueno...si alguien sabe el como hacerlo se lo voy a agradecer...y bastante :)

Bueno....me despido...

Saludos...

MarXe

Título: Re: Duda Sobre Filelistbox
Publicado por: erick185 en Sábado 1 de Julio de 2006, 06:06

Hola

Ps si tienes ya cargada la imagen y no necesitas la extension solo haces esto

sArchivo = Left(sArchivo, Len(sArchivo) - 4)

y eso es todo, sArchivo es el string donde tienes guardado el nombre del archivo

Espero k te sirva

Salu2

Título: Re: Duda Sobre Filelistbox
Publicado por: leandrog en Sábado 1 de Julio de 2006, 07:59

Exacto, lo que hace el codigo que dice erick185 es simplemete quitar las 3 ultimas letras de el nombre del archivo, osea el punto y las 3 letras de la extension (.jpg)

Saludos.

Título: Re: Duda Sobre Filelistbox
Publicado por: MarXe en Sábado 1 de Julio de 2006, 17:36

Holas :P

muchisimas gracias por responder...

pero ahora me agarro una duda de imprevisto...

la cual es en que parte del codigo meto ese pedazo de codigo...osea para q funcione...

aca tengo una pagina de los codigos de este proyecto...

Option Explicit
Dim Path2 As String

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

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

Private Sub File1_Click()
'Prevusualizacion De La Imagen...
ImagePreVis.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
'Fin Prevusualizacion De La Imagen...

' ___________________
'Total Archivos
Label1TotArc = File1.ListCount
'Fin Total Archivos
' ___________________
'Nombre Del Archivo
LabelNombre2 = File1.FileName
File1.n
'Fin Nombre Archivo
' ___________________
'Numero Concurrente
If File1.ListIndex = -1 Then
Label2.Caption = ""
Else
Label2.Caption = File1.ListIndex + 1
End If
'Fin De Numero Concurrente
' ___________________
'Tamaño Individual Archivo
Dim a As String
a = 0
Dim b As String
If Len(File1.Path) = 3 Then
Path2 = File1.Path & File1.FileName
Else
Path2 = File1.Path & "\" & File1.FileName
End If
If File1.ListIndex = -1 Then
LabelTamArc.Caption = ""
Else
a = Format$(FileLen(Path2), "###,###,###")
If a < 1004 Then
b = a
LabelTamArc.Caption = b & " Bytes"
ElseIf a >= 1004 And a < 1027604 Then
b = a / 1024
If Format(b, "###.##") = Format(b, "###.") Then
LabelTamArc.Caption = Format(b, "###") & " KB "
Else
LabelTamArc.Caption = Format(b, "###.##") & " KB "
End If
ElseIf a >= 1027604 Then
b = a / 1048576
If Format(b, "###.##") = Format(b, "###.") Then
LabelTamArc.Caption = Format(b, "###") & " KB "
Else
LabelTamArc.Caption = Format(b, "###.##") & " KB "
End If
LabelTamArc.Caption = Format(b, "###.##") & " MB "
End If
End If
'Fin Tamaño Individual Archivo
' ________________
'Tamaño Del Directorio
' * conseguir el codigo... :'(+

End Sub

Private Sub LabelVolver_Click()
Unload Me
Form2PixelEngineMainMenu.Show
'Descarga y muestra el menu Form2PixelEngineMainMenu
End Sub

Private Sub Timer1_Timer()
If Timer Then
LabelTime.Caption = Time
End If
End Sub

en resumen mi pregunta puntual seria...
en que objeto y evento tengo q poner ese codigo para que lo que quiero hacer yo funcione...

Desde aca...
muchisimas gracias por responder...

MarXe

Título: Re: Duda Sobre Filelistbox
Publicado por: ArKaNtOs en Lunes 3 de Julio de 2006, 19:08

Disculpa Marxe, no es por ser grosero pero en este foro tratamos de atender problemas no relacionados con la escuela :angry:

Título: Re: Duda Sobre Filelistbox
Publicado por: MarXe en Lunes 3 de Julio de 2006, 22:17

Holas...

ArKaNtOs...mas que nada gracias por responder...
pero este proyecto no tiene nada que ver con la escuela...solamente es un proyecto personal que comense a mitad del año pasado y que se estanco por el no saber tener los recursos para poder solucionarlo

Solamente puse el codigo porque estube probando eventos en los cuales poner la solucion que erick185 y leandrog me propusieron... y me tiraba errores...

solo pido eso...

desde aca perdon por tu desagrado...y si queres cuando termine el proyecto te lo mando para decirme que opinas... :D

saludos!

MarXe

Título: Re: Duda Sobre Filelistbox
Publicado por: ArKaNtOs en Lunes 3 de Julio de 2006, 23:10

Hola Marxe bueno si no es el caso como tu mencionas entonces disculpame y para q veas q no hay enojo jejejeje hice un pequeño code :P

Código: Text

 
Private Sub Dir1_Change()
File1 = Dir1
End Sub
 
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
 
Private Sub File1_PathChange()
List1.Clear
For i = 0 To File1.ListCount - 1
    List1.AddItem Left(File1.List(i), Len(File1.List(i)) - 4)
Next
End Sub
 
Private Sub Form_Activate()
Drive1.Drive = &#34;C:&#092;&#34;
File1.Pattern = &#34;*.jpg;*.bmp;*.JPG;*.gif&#34;
End Sub
 
Private Sub List1_Click()
Image1.Picture = LoadPicture(File1.Path & &#34;&#092;&#34; & File1.List(List1.ListIndex))
End Sub
 
 

lo unico que debes de hacer es insertar un dirlistbox, drivelistbox, filelistbox, image y un listbox y al filelistbox ponerle la propiedad visible=false

SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: MarXe en Miércoles 21 de Junio de 2006, 04:04