Hola, ¿ al listview le enlazaste el ImageList desde las propiedades ? igualmente para cargar las imagenes lo podes hacer en tiempo de diseño, no cargar las imagenes en tiempo de ejecución.
saludos.
saludos.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: Tengu en 26 Agosto 2009, 01:48 AM
exacto solo te fijas el ultimo item y lo seleccionas asi quedara como quieres
aunk coincido con lo antes dicho. no entiendo la diferencia de estar arriba o abajo jajaj
Private Declare Function MessageBoxEx Lib "user32" Alias "MessageBoxExA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As Long, ByVal wLanguageId As Long) As Long
Const MB_ICONASTERISK = &H40&
Private Sub Form_Load()
MessageBoxEx Me.hwnd, "Hola", "Aviso", MB_ICONASTERISK, 0
End Sub
Cita de: Skeletron en 14 Agosto 2009, 02:27 AM
Capturar video??
No no... al archivo lo tengo en mi PC.. por ejemplo: C:/VIDEOS
Y al programa le doy el link de donde está en mi PC y que lo analice..
Option Explicit
Private Sub Command1_Click()
MsgBox descifrar("P A R I S V A U T B I E N U N E M E S S E ", "L O U P L O U P L O U P L O U P L O U P L ")
End Sub
Private Function descifrar(ByVal pCadena As String, ByVal pPassword As String) As String
Dim vContador As Integer, vIndice As Integer, vFila As Integer, vNumero As Integer
pCadena = LCase(pCadena)
pPassword = LCase(pPassword)
For vContador = 1 To Len(pCadena)
vIndice = vIndice + 1
If vIndice > Len(pPassword) Then vIndice = vIndice - Len(pPassword)
vFila = Asc(Mid(pPassword, vIndice, 1)) - 97
If vFila = 0 Then vFila = 26
vNumero = Asc(Mid(pCadena, vContador, 1))
If vNumero >= 97 And vNumero <= 122 Then vNumero = vNumero + vFila
If vNumero > 122 Then vNumero = vNumero - 26
descifrar = descifrar & Chr(vNumero)
Next vContador
End Function