Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Prueba para agregar unión de mapas automático #1

Open
wants to merge 11 commits into
base: master
Choose a base branch
from
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6,768 changes: 3,384 additions & 3,384 deletions Codigo/LaVolpe Button/lvButtons.ctl

Large diffs are not rendered by default.

20 changes: 10 additions & 10 deletions Codigo/LaVolpe Button/lvButtons.log
Original file line number Diff line number Diff line change
@@ -1,10 +1,10 @@
L�nea 2: no se pudo establecer la propiedad ToolboxBitmap de lvButtons_H.
L�nea 2: no se pudo establecer la propiedad ToolboxBitmap de lvButtons_H.
L�nea 2: no se pudo establecer la propiedad ToolboxBitmap de lvButtons_H.
L�nea 2: no se pudo establecer la propiedad ToolboxBitmap de lvButtons_H.
L�nea 2: no se pudo establecer la propiedad ToolboxBitmap de lvButtons_H.
L�nea 2: no se pudo establecer la propiedad ToolboxBitmap de lvButtons_H.
L�nea 2: no se pudo establecer la propiedad ToolboxBitmap de lvButtons_H.
L�nea 2: no se pudo establecer la propiedad ToolboxBitmap de lvButtons_H.
L�nea 2: no se pudo establecer la propiedad ToolboxBitmap de lvButtons_H.
L�nea 2: no se pudo establecer la propiedad ToolboxBitmap de lvButtons_H.
L�nea 2: no se pudo establecer la propiedad ToolboxBitmap de lvButtons_H.
L�nea 2: no se pudo establecer la propiedad ToolboxBitmap de lvButtons_H.
L�nea 2: no se pudo establecer la propiedad ToolboxBitmap de lvButtons_H.
L�nea 2: no se pudo establecer la propiedad ToolboxBitmap de lvButtons_H.
L�nea 2: no se pudo establecer la propiedad ToolboxBitmap de lvButtons_H.
L�nea 2: no se pudo establecer la propiedad ToolboxBitmap de lvButtons_H.
L�nea 2: no se pudo establecer la propiedad ToolboxBitmap de lvButtons_H.
L�nea 2: no se pudo establecer la propiedad ToolboxBitmap de lvButtons_H.
L�nea 2: no se pudo establecer la propiedad ToolboxBitmap de lvButtons_H.
L�nea 2: no se pudo establecer la propiedad ToolboxBitmap de lvButtons_H.
38 changes: 19 additions & 19 deletions Codigo/LaVolpe Button/modLvTimer.bas
Original file line number Diff line number Diff line change
@@ -1,19 +1,19 @@
Attribute VB_Name = "modLvTimer"
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal ByteLen As Long)
Private Declare Function GetProp Lib "user32" Alias "GetPropA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Public Function lv_TimerCallBack(ByVal hwnd As Long, ByVal Message As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'*************************************************
'Author: LaVolpe
'Last modified: 20/05/06
'*************************************************

Dim tgtButton As lvButtons_H
' when timer was intialized, the button control's hWnd
' had property set to the handle of the control itself
' and the timer ID was also set as a window property
CopyMemory tgtButton, GetProp(hwnd, "lv_ClassID"), &H4
Call tgtButton.TimerUpdate(GetProp(hwnd, "lv_TimerID")) ' fire the button's event
CopyMemory tgtButton, 0&, &H4 ' erase this instance
End Function

Attribute VB_Name = "modLvTimer"
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal ByteLen As Long)
Private Declare Function GetProp Lib "user32" Alias "GetPropA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Public Function lv_TimerCallBack(ByVal hwnd As Long, ByVal Message As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'*************************************************
'Author: LaVolpe
'Last modified: 20/05/06
'*************************************************
Dim tgtButton As lvButtons_H
' when timer was intialized, the button control's hWnd
' had property set to the handle of the control itself
' and the timer ID was also set as a window property
CopyMemory tgtButton, GetProp(hwnd, "lv_ClassID"), &H4
Call tgtButton.TimerUpdate(GetProp(hwnd, "lv_TimerID")) ' fire the button's event
CopyMemory tgtButton, 0&, &H4 ' erase this instance
End Function
Loading