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




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.

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

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

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

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

se le agracece.

Saludos