Programación General > Visual Basic 6.0 e inferiores

 Duda Sobre Filelistbox

(1/2) > >>

MarXe:
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

erick185:
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

leandrog:
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.

MarXe:
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

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

Navegación

[0] Índice de Mensajes

[#] Página Siguiente