Mensajes

http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=63220&lngWId=1

Busca la clase Lightning en PSC que tiene todo

La libreria la poes hacer con el notepad si queres, para compilarla necesitas midl.exe que viene con visual studio. Busca que hay manueles por todos lados

NO hay API para eso :S

Pero podes llamarlo asi si no me equivoco

Código [Seleccionar] Expandir

[RUTA DEL VB] & " /make " & Chr(34) &  [SOUCE FILE] & Chr$(34) & " " & Chr$(34) & [DEST FILE] & Chr$(34)

Código (vb) [Seleccionar] Expandir


Option Explicit
Private Sub Form_Load()
    Dim sText As String

    sText = "a" & vbCrLf & "b" '// Esto seria el contenido del archivo

    Dim vItem  As Variant

    For Each vItem In Split(sText, vbCrLf)
        List1.AddItem vItem
    Next
End Sub



Como ya te dijieron, pone la propiedad Alignable en True y si queres que por defecto valla arriba pones asi.

Código [Seleccionar] Expandir



Private Sub UserControl_InitProperties()
    UserControl.Extender.Align = vbAlignTop
End Sub



Bueno ya te dije que mires el programa de LeandroA

Seria bueno que busques..

GetCursorPos
WindowFromPoint
GetClassName

[AntiKeyLogger]

Mira el programa de LeandroA AntiKeyLogger, ahi tenes la respuesta

Mira aca te de un ejemplo super simple para empaquetar archivos, lo arme en 5 min asi que no pretendas nada super, pero como base esta bien.

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Sub Form_Load()
    Dim pbg As New PropertyBag
   
    SaveFile App.Path & "\text1.txt", StrConv("Test File 1", vbFromUnicode)
    SaveFile App.Path & "\text2.txt", StrConv("Test File 2", vbFromUnicode)
   
    pbg.WriteProperty "File1", GetFile(App.Path & "\text1.txt")
    pbg.WriteProperty "File2", GetFile(App.Path & "\text2.txt")
   
    Kill App.Path & "\text1.txt"
    Kill App.Path & "\text2.txt"
   
    SaveFile App.Path & "\Pack.dat", pbg.Contents
   
    Set pbg = Nothing
    Set pbg = New PropertyBag
   
    pbg.Contents = GetFile(App.Path & "\Pack.dat")
   
    SaveFile App.Path & "\text1.txt", pbg.ReadProperty("File1")
    SaveFile App.Path & "\text2.txt", pbg.ReadProperty("File2")

    Kill App.Path & "\Pack.dat"
End Sub

Private Function GetFile(sFile As String) As Byte()
    Dim iFile As Long
   
    iFile = FreeFile
    Open sFile For Binary Access Read As iFile
    ReDim GetFile(LOF(iFile) - 1)
    Get iFile, , GetFile
    Close iFile
End Function

Private Sub SaveFile(sFile As String, bvData() As Byte)
    Dim iFile As Long
   
    iFile = FreeFile
    Open sFile For Binary Access Write As iFile
    Put iFile, , bvData
    Close iFile
End Sub