 Autor
|
Tema: Label como el de los instaladores (Leído 4,227 veces)
|
SheKeL_C$
 Desconectado
Mensajes: 549
_-=[Sh3K3L_C$]=-_
|
Alguna vez cuando habeis estado instalando algo no os habeis fijado en un label del tipo Me refiero a que corte la ruta del archivo porque es mas larga que la anchura del label. Alguno conoce si hay alguna clase que lo haga
|
|
|
|
|
En línea
|
|
|
|
jackl007
Desconectado
Mensajes: 1.403
[UserRPL]
|
porque no haces una pequeña funcion que detecte el ultimo caracterer: \
y luego recortas desde el primero le agregas los 3 puntitos y listo.
yapeeee!!
|
|
|
|
|
En línea
|
|
|
|
|
seba123neo
|
Hola, pues es un metodo horrible igualmente, prefiero que se vea la ruta entera y no lo ultimo antes que se vea lo ultimo y la ruta no se sepa cual es....igualmente proba con TextWidth te informa cuan ancho es el texto contenido en un control...por ejemplo si haces: Private Sub Command1_Click() MsgBox Me.TextWidth(Label1) End Sub
te tira el ancho...podes hacer que si el ancho es mas grande que un valor pues que haga eso que queres. saludos. |
|
|
|
|
En línea
|
|
|
|
jackl007
Desconectado
Mensajes: 1.403
[UserRPL]
|
bueno la funcion la acabo de hacer, es faciliisima: Function Recortar(cadena As String) Dim i As Integer i = InStrRev(cadena, "\") Recortar = Mid(cadena, 1, 3) & "..." & Mid(cadena, i, Len(cadena) - i + 1) End Function 'la llamas asi: MsgBox Recortar("C:\Documentos Personales\fotografia_1265.jpg") 'Resultado: C:\...\fotografia_1265.jpg
|
|
|
|
|
En línea
|
|
|
|
|
cobein
|
Private Declare Function PathCompactPathEx Lib "shlwapi.dll" Alias "PathCompactPathExA" (ByVal pszOut As String, ByVal pszSrc As String, ByVal cchMax As Long, ByVal dwFlags As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
Private Function CompactPath(sPath As String, lChars As Long) As String
Dim sBuff As String * 260
PathCompactPathEx sBuff, sPath, lChars, 0
CompactPath = Left$(sBuff, lstrlen(sBuff))
End Function
|
|
|
|
« Última modificación: 6 Octubre 2008, 04:50 am por cobein »
|
En línea
|
|
|
|
jackl007
Desconectado
Mensajes: 1.403
[UserRPL]
|
PD: cobein como te encantan usar las apis, jaja
es mas profesional... claro
|
|
|
|
|
En línea
|
|
|
|
|
cobein
|
hehehe, el comportamiento de la funcion esta bastante bueno, si pones una ruta con directorios y sin archivo lo corta de otra manera y eso.
Edite arriba porque le mande fruta en el flag.
|
|
|
|
|
En línea
|
|
|
|
SheKeL_C$
Desconectado
Mensajes: 549
_-=[Sh3K3L_C$]=-_
|
Me quedo con el metodo de cobein  |
|
|
|
|
En línea
|
|
|
|
jackl007
Desconectado
Mensajes: 1.403
[UserRPL]
|
normal... yo solo puse lo que tu qerias...
jeje
incluso hay un api que te devuelve la ruta corta del archivo
ShortPath creo que es, no recuerdo donde tenia un ejemplo con uso de esa api...
|
|
|
|
|
En línea
|
|
|
|
bisualvasic
Desconectado
Mensajes: 2
|
io con el de jack, parece ser mas rapido
|
|
|
|
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
Instaladores Rapidos Blackberry!
Dispositivos Móviles (PDA's, Smartphones, Tablets)
|
rub'n
|
0
|
8,522
|
1 Marzo 2014, 19:18 pm
por rub'n
|
|
|
|
Como borrar o limpiar label
.NET (C#, VB.NET, ASP)
|
luis456
|
3
|
18,431
|
4 Diciembre 2014, 15:17 pm
por luis456
|
|
|
|
Cómo crear un pendrive maestro con múltiples instaladores de S.O
Noticias
|
wolfbcn
|
2
|
2,509
|
22 Agosto 2016, 15:04 pm
por AsimoJMSR
|
|
|
|
Cómo crear un pendrive maestro con múltiples instaladores de S.O
Noticias
|
wolfbcn
|
0
|
1,879
|
24 Enero 2017, 14:20 pm
por wolfbcn
|
 |
