Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - XxDarkxX

Páginas: [1]
1
Visual Basic 6 / Re:Como ordenar un labels!
« en: Enero 23, 2012, 06:53:36 pm »
Leandro si has escuchado esta expresion "Me quito el sombrero ante ti" sino "Mis repetos"

Gracias llevava buen rato con la cabeza dandome vueltas

2
Visual Basic 6 / Como ordenar un labels!
« en: Enero 21, 2012, 01:49:37 am »
Hola desde hace días eh tratado de ordenar los controles labels por fila y columna ejemp:

Cuando el control sea mayor al formulario el control se recorra y se ordene pero no eh logrado muchos avances y solo tengo esto

Código: (vb) [Seleccionar]
Private Sub Form_Resize()
    Dim Fila As Long
    Dim Columna As Long
    Dim Index As Integer
    For Index = 0 To Lbl.Count - 1
        If Lbl(Index).Left + Lbl(Index).Width >= Me.Width Then
            Fila = Fila + 1
            Lbl(Index).Left = Columna * (Lbl(Index).Width + 240)
            Lbl(Index).Top = Fila * (Lbl(Index).Height + 240)
            Columna = Columna + 10
        Else
       
        End If
    Next
End Sub
me gustaria que me pudieran ayudar

3
Visual Basic 6 / Re:Evento OLE Drag & Drop OCX!!
« en: Enero 02, 2012, 12:27:12 am »
Ya no es necesaria la ayuda ya logre resolverlo

4
Visual Basic 6 / Evento OLE Drag & Drop OCX!!
« en: Enero 01, 2012, 11:52:07 pm »
Hola a todos pues tengo una duda sobre como arrastrar archivos a un OCX trate de hacerlo mediante
Código: (vb) [Seleccionar]
Public Event OLECompleteDrag(Effect As Long)
Public Event OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Public Event OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
Public Event OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean)
Public Event OLESetData(Data As DataObject, DataFormat As Integer)
Public Event OLEStartDrag(Data As DataObject, AllowedEffects As Long)

Private Sub UserControl_OLECompleteDrag(Effect As Long)
    RaiseEvent OLECompleteDrag(Effect)
End Sub

Private Sub UserControl_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    RaiseEvent OLEDragDrop(Data, Effect, Button, Shift, X, Y)
End Sub

Private Sub UserControl_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
    RaiseEvent OLEDragOver(Data, Effect, Button, Shift, X, Y, State)
End Sub

Private Sub UserControl_OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean)
    RaiseEvent OLEGiveFeedback(Effect, DefaultCursors)
End Sub

Private Sub UserControl_OLESetData(Data As DataObject, DataFormat As Integer)
    RaiseEvent OLESetData(Data, DataFormat)
End Sub

Private Sub UserControl_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
    RaiseEvent OLEStartDrag(Data, AllowedEffects)
End Sub
pero al enviar los archivos al ocx no sucede nada

PD: Para agregar los archivos uso una funcion que carga los iconos

Páginas: [1]