Mensajes

Gracias por el feedback. El programa en un PE Explorer viejito 1.9

Parchar EOF con o sin alineamiento de bloque.

http://www.advancevb.com.ar/storage/mPE_Realign.rar

Jiji lindo efecto el que causa, una mariconeada mas del VB que raro!!

Por que no bajas el codigo que te dije y  lo usas, no te custa nada y te ahorrarias varios problemas.

No por favor =)

Que raro vos por aca???

Código [Seleccionar] Expandir


Private Sub Form_Load()
    Dim lNum As Long
    Dim lZeros As Long
    lNum = 20
    lZeros = 10
    Debug.Print Right$(String(lZeros, "0") & lNum, lZeros)
End Sub


Aca tenes una clase, usa APIs y tiene todo lo que necesitas para hacer eso.

http://www.advancevb.com.ar/page/index.php?option=com_content&view=article&id=49:ftp-class&catid=39:code&Itemid=56

podes usar GetLastInputInfo

Podrias hacer algo asi de simple.

Código [Seleccionar] Expandir

Option Explicit

Dim cCombo As New Collection

Private Sub Form_Load()

    Dim i As Long
    For i = 0 To 10
        Combo1.AddItem "item " & i: cCombo.Add "Real Val " & i
    Next
   
End Sub

Private Sub Combo1_Click()
    MsgBox cCombo.Item(Combo1.ListIndex + 1)
End Sub