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.
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As ComctlLib.ColumnHeader)
With ListView1
.SortKey = (ColumnHeader.Index - 1) ' numero de la columna con la que ordenaremos!¡.
.SortOrder = Abs(Not CBool(.SortOrder)) ' tipo de ordenacion
'.Sorted = true ' para que ordene
End With
End Sub
Private Sub Form_Load()
Dim NodX As Node
Dim i As Integer
With ListView1
.View = lvwReport
.ColumnHeaders.Add , , "ID"
.ColumnHeaders.Add , , "Fechas"
For i = 0 To 5
.ListItems.Add(, , i).SubItems(1) = Rnd(1) * 30 & "/" & Rnd(1) * 12 & "/" & Rnd(1) * 99
Next
.Sorted = True
End With
End Sub
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As ComctlLib.ColumnHeader)
With ListView1
.SortKey = (ColumnHeader.Index - 1)
.SortOrder = Abs(Not CBool(.SortOrder))
'.Sorted = true ' para que ordene
End With
End Sub
Private Priv_stdPic As StdPicture ' // Instancia o huevo vacio xP.
Private Sub Form_Load()
Me.Picture = LoadPicture("c:\AmazingNurseNanako03.jpg") ' // cargamos imagen en el formulario como fondo xP.
' // se hace una copia en MEMORIA!¡.
Set Priv_stdPic = Me.Picture
End Sub
Private Sub Form_Click()
With Priv_stdPic ' // Obtenemos los datos
Call MsgBox(.Height) ' // Ya sabes que es xP
Call MsgBox(.Width) ' // Ya sabes que es xP
Set Picture = Nothing
Call MsgBox("Se a limpiado el FORM!¡.")
End With
Set Me.Picture = Priv_stdPic
End Sub
Option Explicit
Option Base 0 'Da igual si se declara en 0 (evita escribir 0 to X)
Private Sub Form_Load()
Dim aaa(10) As Long ' 0 to 10
MsgBox LBound(aaa) ' 0
End Sub
Option Explicit
Option Base 1 'Solo si se quiere indicar de forma predeterminada el inicio de una matrix en 1 (Evita escrito 1 to X)
Private Sub Form_Load()
Dim aaa(10) As Long ' 1 to 10
MsgBox LBound(aaa) ' 1
End Sub