You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
188 lines
5.7 KiB
188 lines
5.7 KiB
VERSION 1.0 CLASS
|
|
BEGIN
|
|
MultiUse = -1 'True
|
|
Persistable = 0 'NotPersistable
|
|
DataBindingBehavior = 0 'vbNone
|
|
DataSourceBehavior = 0 'vbNone
|
|
MTSTransactionMode = 0 'NotAnMTSObject
|
|
END
|
|
Attribute VB_Name = "CCalendarVBPeriod"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = True
|
|
Attribute VB_PredeclaredId = False
|
|
Attribute VB_Exposed = True
|
|
|
|
|
|
Public Property Get Name(Index As Integer) '706220
|
|
loc_00706220: push ebp
|
|
loc_00706221: mov ebp, esp
|
|
loc_00706223: sub esp, 0000000Ch
|
|
loc_00706226: push 00412856h ; __vbaExceptHandler
|
|
loc_0070622B: mov eax, fs:[00000000h]
|
|
loc_00706231: push eax
|
|
loc_00706232: mov fs:[00000000h], esp
|
|
loc_00706239: sub esp, 0000000Ch
|
|
loc_0070623C: push ebx
|
|
loc_0070623D: push esi
|
|
loc_0070623E: push edi
|
|
loc_0070623F: mov var_C, esp
|
|
loc_00706242: mov var_8, 00410510h
|
|
loc_00706249: xor edi, edi
|
|
loc_0070624B: mov var_4, edi
|
|
loc_0070624E: mov esi, Me
|
|
loc_00706251: push esi
|
|
loc_00706252: mov eax, [esi]
|
|
loc_00706254: call [eax+00000004h]
|
|
loc_00706257: mov ecx, Index
|
|
loc_0070625A: mov var_18, edi
|
|
loc_0070625D: mov [ecx], edi
|
|
loc_0070625F: mov edx, [esi+00000038h]
|
|
loc_00706262: lea ecx, var_18
|
|
loc_00706265: call [00401310h] ; __vbaStrCopy
|
|
loc_0070626B: push 0070627Dh
|
|
loc_00706270: jmp 0070627Ch
|
|
loc_00706272: lea ecx, var_18
|
|
loc_00706275: call [00401430h] ; __vbaFreeStr
|
|
loc_0070627B: ret
|
|
loc_0070627C: ret
|
|
loc_0070627D: mov eax, Me
|
|
loc_00706280: push eax
|
|
loc_00706281: mov edx, [eax]
|
|
loc_00706283: call [edx+00000008h]
|
|
loc_00706286: mov eax, Index
|
|
loc_00706289: mov ecx, var_18
|
|
loc_0070628C: mov [eax], ecx
|
|
loc_0070628E: mov eax, var_4
|
|
loc_00706291: mov ecx, var_14
|
|
loc_00706294: pop edi
|
|
loc_00706295: pop esi
|
|
loc_00706296: mov fs:[00000000h], ecx
|
|
loc_0070629D: pop ebx
|
|
loc_0070629E: mov esp, ebp
|
|
loc_007062A0: pop ebp
|
|
loc_007062A1: retn 0008h
|
|
End Sub
|
|
|
|
Public Property Let Name(sName) '7062B0
|
|
loc_007062B0: push ebp
|
|
loc_007062B1: mov ebp, esp
|
|
loc_007062B3: sub esp, 0000000Ch
|
|
loc_007062B6: push 00412856h ; __vbaExceptHandler
|
|
loc_007062BB: mov eax, fs:[00000000h]
|
|
loc_007062C1: push eax
|
|
loc_007062C2: mov fs:[00000000h], esp
|
|
loc_007062C9: sub esp, 0000000Ch
|
|
loc_007062CC: push ebx
|
|
loc_007062CD: push esi
|
|
loc_007062CE: push edi
|
|
loc_007062CF: mov var_C, esp
|
|
loc_007062D2: mov var_8, 00410520h
|
|
loc_007062D9: xor edi, edi
|
|
loc_007062DB: mov var_4, edi
|
|
loc_007062DE: mov esi, Me
|
|
loc_007062E1: push esi
|
|
loc_007062E2: mov eax, [esi]
|
|
loc_007062E4: call [eax+00000004h]
|
|
loc_007062E7: mov edx, sName
|
|
loc_007062EA: mov var_18, edi
|
|
loc_007062ED: mov edi, [00401310h] ; __vbaStrCopy
|
|
loc_007062F3: lea ecx, var_18
|
|
loc_007062F6: call edi
|
|
loc_007062F8: mov edx, var_18
|
|
loc_007062FB: lea ecx, [esi+00000038h]
|
|
loc_007062FE: call edi
|
|
loc_00706300: push 0070630Fh
|
|
loc_00706305: lea ecx, var_18
|
|
loc_00706308: call [00401430h] ; __vbaFreeStr
|
|
loc_0070630E: ret
|
|
loc_0070630F: mov eax, Me
|
|
loc_00706312: push eax
|
|
loc_00706313: mov ecx, [eax]
|
|
loc_00706315: call [ecx+00000008h]
|
|
loc_00706318: mov eax, var_4
|
|
loc_0070631B: mov ecx, var_14
|
|
loc_0070631E: pop edi
|
|
loc_0070631F: pop esi
|
|
loc_00706320: mov fs:[00000000h], ecx
|
|
loc_00706327: pop ebx
|
|
loc_00706328: mov esp, ebp
|
|
loc_0070632A: pop ebp
|
|
loc_0070632B: retn 0008h
|
|
End Sub
|
|
|
|
Public Property Get NumberOfWeeks(arg_C) '706330
|
|
loc_00706330: push ebp
|
|
loc_00706331: mov ebp, esp
|
|
loc_00706333: sub esp, 0000000Ch
|
|
loc_00706336: push 00412856h ; __vbaExceptHandler
|
|
loc_0070633B: mov eax, fs:[00000000h]
|
|
loc_00706341: push eax
|
|
loc_00706342: mov fs:[00000000h], esp
|
|
loc_00706349: sub esp, 0000000Ch
|
|
loc_0070634C: push ebx
|
|
loc_0070634D: push esi
|
|
loc_0070634E: push edi
|
|
loc_0070634F: mov var_C, esp
|
|
loc_00706352: mov var_8, 00410530h
|
|
loc_00706359: xor edi, edi
|
|
loc_0070635B: mov var_4, edi
|
|
loc_0070635E: mov esi, Me
|
|
loc_00706361: push esi
|
|
loc_00706362: mov eax, [esi]
|
|
loc_00706364: call [eax+00000004h]
|
|
loc_00706367: mov cx, [esi+00000034h]
|
|
loc_0070636B: mov var_18, edi
|
|
loc_0070636E: mov var_18, ecx
|
|
loc_00706371: mov eax, Me
|
|
loc_00706374: push eax
|
|
loc_00706375: mov edx, [eax]
|
|
loc_00706377: call [edx+00000008h]
|
|
loc_0070637A: mov eax, arg_C
|
|
loc_0070637D: mov cx, var_18
|
|
loc_00706381: mov [eax], cx
|
|
loc_00706384: mov eax, var_4
|
|
loc_00706387: mov ecx, var_14
|
|
loc_0070638A: pop edi
|
|
loc_0070638B: pop esi
|
|
loc_0070638C: mov fs:[00000000h], ecx
|
|
loc_00706393: pop ebx
|
|
loc_00706394: mov esp, ebp
|
|
loc_00706396: pop ebp
|
|
loc_00706397: retn 0008h
|
|
End Sub
|
|
|
|
Public Property Let NumberOfWeeks(nNumberOfWeeks) '7063A0
|
|
loc_007063A0: push ebp
|
|
loc_007063A1: mov ebp, esp
|
|
loc_007063A3: sub esp, 0000000Ch
|
|
loc_007063A6: push 00412856h ; __vbaExceptHandler
|
|
loc_007063AB: mov eax, fs:[00000000h]
|
|
loc_007063B1: push eax
|
|
loc_007063B2: mov fs:[00000000h], esp
|
|
loc_007063B9: sub esp, 00000008h
|
|
loc_007063BC: push ebx
|
|
loc_007063BD: push esi
|
|
loc_007063BE: push edi
|
|
loc_007063BF: mov var_C, esp
|
|
loc_007063C2: mov var_8, 00410538h
|
|
loc_007063C9: mov var_4, 00000000h
|
|
loc_007063D0: mov esi, Me
|
|
loc_007063D3: push esi
|
|
loc_007063D4: mov eax, [esi]
|
|
loc_007063D6: call [eax+00000004h]
|
|
loc_007063D9: mov cx, nNumberOfWeeks
|
|
loc_007063DD: mov [esi+00000034h], cx
|
|
loc_007063E1: mov eax, Me
|
|
loc_007063E4: push eax
|
|
loc_007063E5: mov edx, [eax]
|
|
loc_007063E7: call [edx+00000008h]
|
|
loc_007063EA: mov eax, var_4
|
|
loc_007063ED: mov ecx, var_14
|
|
loc_007063F0: pop edi
|
|
loc_007063F1: pop esi
|
|
loc_007063F2: mov fs:[00000000h], ecx
|
|
loc_007063F9: pop ebx
|
|
loc_007063FA: mov esp, ebp
|
|
loc_007063FC: pop ebp
|
|
loc_007063FD: retn 0008h
|
|
End Sub
|