Mensajes

Buenas intento ordenar una matriz alfabeticamente a medida se se van agregando datos a esta, pero no me esta resultando, la idea seria....
(por ejemplo) si el dato ingresado es menor al tercer elemento
copie desde el tercer al final en la posicion 4 de la matriz y en la posicion numero 3 ponga los nuevos datos. pero sin tener que recorrer un bucle, sino mas bien utilzando CopyMemory para hacelerar la funcion.

se que podria poner dos bucles y ordenarlo de la forma tradicional pero esto se haria muy lento si ablamos de 10000 elementos

pongo un ejemplo de lo que intento hacer, pero bien no estoy haciendo buen uso de CopyMemory

Código [Seleccionar] Expandir

Option Explicit
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)

Private Type Datos
    Nombre As String
    Apellido As String
End Type

Dim dPersona() As Datos
Dim lCount As Long

Private Sub Command1_Click()
    AddList "bbb", "bbb"
    ImprimirListado
End Sub

Private Sub Form_Load()
    Me.Show
    ReDim dPersona(0)
   
    AddList "aaa", "aaa"
    AddList "bbb", "bbb"
    AddList "ccc", "ccc"
    AddList "ddd", "ddd"
    AddList "fff", "fff"
   
    ImprimirListado
End Sub

Private Sub ImprimirListado()
    Dim i As Long
    Cls
    For i = 0 To lCount
        Print dPersona(i).Nombre, dPersona(i).Apellido
    Next
End Sub

Private Sub AddList(Nombre As String, Apellido As String)
Dim i As Integer
Dim Ubicado As Boolean

lCount = UBound(dPersona)

If lCount = 0 Then
    dPersona(lCount).Nombre = Nombre
    dPersona(lCount).Apellido = Apellido
Else
    For i = 0 To lCount
        If Nombre < dPersona(i).Nombre Then
            'deberia copiar toda la matriz desde dPersona(i) a al siguiente dPersona(i + 1) todo el resto
            'de la extructura, pero no funciona :(
            CopyMemory ByVal dPersona(i + 1), ByVal dPersona(i), 8 * (lCount - i)
            'luego depositaria los nuevos datos en dPersona(i)
            dPersona(i).Nombre = Nombre
            dPersona(i).Apellido = Apellido
           
            Ubicado = True
            Exit For
        End If
    Next
   
    If Ubicado = False Then
        dPersona(lCount).Nombre = Nombre
        dPersona(lCount).Apellido = Apellido
    End If
End If

ReDim Preserve dPersona(lCount + 1)
End Sub


si alguien sabe como solucionar esto o conoce alguna otra forma se los agradezco
Saludos

Hola si encontre la solucion,pero bueno me colgue y no lo postie, pero aca va. hay otras formas mas, pero esta es la que mejor se adaptaba a mi nesesidad.

Código (vb) [Seleccionar] Expandir

Option Explicit
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function GetMenuItemInfo Lib "user32.dll" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal b As Boolean, ByRef lpMenuItemInfo As MENUITEMINFO) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function GetMenu Lib "user32" (ByVal hWnd As Long) As Long

Private Type MENUITEMINFO
    cbSize As Long
    fMask As Long
    fType As Long
    fState As Long
    wID As Long
    hSubMenu As Long
    hbmpChecked As Long
    hbmpUnchecked As Long
    dwItemData As Long
    dwTypeData As String
    cch As Long
End Type

Private Const WM_MENUSELECT     As Long = &H11F
Private Const GWL_WNDPROC = (-4)

Private Const MF_ENABLED As Long = &H0&
Private Const MF_HILITE As Long = &H80&
Private Const MF_DISABLED As Long = &H3&
Private Const MIIM_STATE As Long = &H1

Dim hMenu As Long
Dim PrevProc As Long

Public Sub HookForm(hWnd As Long)
    hMenu = GetMenu(hWnd)
    PrevProc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub
Public Sub UnHookForm(hWnd As Long)
    SetWindowLong hWnd, GWL_WNDPROC, PrevProc
End Sub

Public Function WindowProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    WindowProc = CallWindowProc(PrevProc, hWnd, uMsg, wParam, lParam)
    If uMsg = WM_MENUSELECT Then
        Debug.Print GetIdMenuSelected()
    End If
End Function

Private Function GetIdMenuSelected() As Long

Dim MnuCount As Long
Dim i As Long
Dim ItemState As Long
MnuCount = GetMenuItemCount(hMenu)

For i = 0 To MnuCount - 1
    ItemState = GetMenuState(i)
    If ItemState = (MF_HILITE Or MF_ENABLED) Or ItemState = (MF_HILITE Or MF_DISABLED) Then
        GetIdMenuSelected = i
        Exit Function
    End If
Next

GetIdMenuSelected = -1

End Function


Private Function GetMenuState(ID As Long) As Long
    Dim MII As MENUITEMINFO
    MII.cbSize = Len(MII)
    MII.fMask = MIIM_STATE
    Call GetMenuItemInfo(hMenu, ID, True, MII)
    GetMenuState = MII.fState
End Function

Form

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
    HookForm Me.hWnd
End Sub
Private Sub Form_Unload(Cancel As Integer)
    UnHookForm Me.hWnd
End Sub


Saludos

Buenas, este es un Modulo Clase,  que hicimos con el_c0c0, Sirve para aplicar skin a nuestros formularios, el modulo SubClasifica el o los formularios y repinta sus bordes y barra de menus.



Descargar

Saludos

que haces Dessa tanto tiempo, mm pero debe haber alguna manera con apis


Saludos

mm no me sirve, gracias

buenas estoy intentado averiguar si es que hay un menú desplegado cual es osea...

tengo un form sublcasificado y tengo 3 menú
_________________________
Archivo | Edición | Ayuda
     _________________
     |----------------------|
     |----------------------|
     |----------------------|
     |----------------------|
     |----------------------|
     |________________|


y el menú Edición esta desplegado como puedo saber si el menú que esta desplegado es el de edición.

Saludos

[El modulo3]

hola jajaj esta bueno por lo menos me rei un rato.

esto produce toda una evolucion.

El modulo3 (el codigo es una cagada pero no viene al caso)

http://www.recursosvisualbasic.com.ar/htm/listado-api/207-formulario-de-informacion-en-systray.htm

Que a su vez skl me lo robo a mi

http://www.canalvisualbasic.net/forum/forum_posts.asp?TID=20499

que a su vez, yo seguramente  lo robe de aca

http://www.forosdelweb.com/f69/como-hago-popup-estilo-msn-350953/

Pregunta: ¿quien ***** puso el huevo?, Quien no le robo algo a alguien.

Acaso tu windows xp es original. 

Hola,faltan las dependencia, un consejo es que las incluyas porque creo que nadie se va  a tomar la molestia de buscarlas.

Saludos

hola, mirte esto que es una buena ayuda.

http://www.recursosvisualbasic.com.ar/htm/tutoriales/tips-ocx.htm

[Shell]

hola esta muy bueno el ejemplo utilizando Shell , quize hacer una clase con algunas opciones, pero la cagada es que Shell trabaja en un hilo diferente y no hay forma de saber cuando termina una operacion, por lo que vi utilizan Sleep pero bueno esto es una currada porque eso depende del tamaño del archivo. asi que bueno no se le puede sacar mucho provecho.

bueno fuera el caso que alguien sabe como averiguar cuando  shell termina una operacion como

Código [Seleccionar] Expandir

oFolder.CopyHere FileName

se le agracece.

Saludos