Re-update ACAK Core 0.9 and cores and screenshots

Re-update ACAK Core 0.9 and cores and screenshots

codes/09/EventForm.frm

@@ -0,0 +1,27 @@
+VERSION 5.00
+Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} EventForm 
+   Caption         =   "Event"
+   ClientHeight    =   5535
+   ClientLeft      =   45
+   ClientTop       =   390
+   ClientWidth     =   7455
+   OleObjectBlob   =   "EventForm.frx":0000
+   StartUpPosition =   2  'ÆÁÄ»ÖÐÐÄ
+End
+Attribute VB_Name = "EventForm"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+
+Private Sub ListBox1_Click()
+    itemnum = ListBox1.ListIndex
+    Label1.Caption = Sheets("core_actions").Range("C" & (itemnum + 2)).Value
+End Sub
+Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
+        itemnum = ListBox1.ListIndex
+        Cells(Val(Label4.Caption), Val(Label5.Caption)) = ListBox1.List(itemnum, 1)
+'        Sheets("core_screen").Cells(Val(Label4.Caption), Val(Label5.Caption)) = ListBox1.List(itemnum, 1)
+        Unload EventForm
+End Sub
+

codes/09/Sheet1.cls

@@ -0,0 +1,22 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet1"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
+    PageName02 = cs_FV("ScreenSheet")
+    ColS = cs_FV("M02 Col Start Number")
+    ColE = ColS + cs_FV("M02 Cols") - 1
+    RowSS = cs_FV("M02 Row Start Number")
+    RowE = RowSS + cs_FV("M02 Rows") - 1
+    If (Selection.Row() >= RowSS And Selection.Row() <= RowE) And (Selection.Column() >= ColS And Selection.Column() <= ColE) Then
+        EventForm.Label4.Caption = Selection.Row()
+        EventForm.Label5.Caption = Selection.Column()
+        EventForm.Show
+    End If
+End Sub
+

codes/09/Sheet10.cls

@@ -0,0 +1,9 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet10"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True

codes/09/Sheet11.cls

@@ -0,0 +1,9 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet11"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True

codes/09/Sheet12.cls

@@ -0,0 +1,9 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet12"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True

codes/09/Sheet2.cls

@@ -0,0 +1,9 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet2"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True

codes/09/Sheet3.cls

@@ -0,0 +1,16 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet3"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
+    If Selection.Row() >= 2 And (Selection.Column() = 4 Or Selection.Column() = 8) Then
+        EventForm.Label4.Caption = Selection.Row()
+        EventForm.Label5.Caption = Selection.Column()
+        EventForm.Show
+    End If
+End Sub

codes/09/Sheet4.cls

@@ -0,0 +1,16 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet4"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
+    If Selection.Row() >= 2 And (Selection.Column() = 4 Or Selection.Column() = 8) Then
+        EventForm.Label4.Caption = Selection.Row()
+        EventForm.Label5.Caption = Selection.Column()
+        EventForm.Show
+    End If
+End Sub

codes/09/Sheet5.cls

@@ -0,0 +1,9 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet5"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True

codes/09/Sheet6.cls

@@ -0,0 +1,9 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet6"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True

codes/09/Sheet7.cls

@@ -0,0 +1,9 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet7"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True

codes/09/Sheet8.cls

@@ -0,0 +1,9 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet8"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True

codes/09/Sheet9.cls

@@ -0,0 +1,9 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet9"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True

codes/09/ThisWorkbook.cls

@@ -0,0 +1,16 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "ThisWorkbook"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Private Sub Workbook_Open()
+    Call a_IniExcelName
+    Call cs_TakeAction("core_ACAK_setup", "D")
+End Sub
+Private Sub Workbook_BeforeClose(Cancel As Boolean)
+    Call cs_TakeAction("core_ACAK_setup", "H")
+End Sub

codes/09/diary_links_website.bas

@@ -0,0 +1,59 @@
+Attribute VB_Name = "diary_links_website"
+'记录所有从网络上所使用代码的网页网址
+'VB载入图片的7中方法
+'http://wenku.baidu.com/link?url=SvAC3iLd_zB4N_kSg3uz4Wk3iOCL56EX1AuTg9-R6WECN8he9uaR_9FkYi8rDlZaZWasUitNs3i8CRjmd5q-opntOmyf2upWlJtxoehCfVW
+
+'如何制定窗体控件如以下link所示
+'UserForm2.Controls(InUserForm2WhichTxBox).BackColor = vbRed
+'http://club.excelhome.net/thread-1041869-1-1.html
+'http://www.excelpx.com/thread-217821-1-1.html
+
+'VB 如何用GDI + 修改图片的分辨率并无损压缩保存
+'https://zhidao.baidu.com/question/1859878482790105707.html
+
+'很强大的 VB GDI+声明模块
+'http://www.newxing.com/SE1A0A622885/GDI.bas
+
+'[原创] 用VB给VBA开发外接程序(很难得见的资料，网找不到，自己写了一个，分享一下)
+'http://club.excelhome.net/thread-1090149-1-1.html
+
+'调节窗口位置
+'http://blog.csdn.net/ninetowns2008/article/details/8667048
+
+'错误调试
+'http://club.excelhome.net/thread-503926-1-1.html
+
+'如何通过句柄获取外部程序的窗口的内容
+'http://bbs.csdn.net/topics/390911948
+
+'tesseract
+'网页采集教程第四课-验证码图片处理欣赏及使用tessdata-OCR进行训练和识别
+'http://club.excelhome.net/thread-897117-1-1.html
+
+'VB6.0用GDI+保存图像为BMP\JPG\PNG\GIF格式终结版。
+'http://blog.csdn.net/pixeldemon/article/details/53745150
+
+'一个VB版的全屏幕区域找图找色源码转VBA
+'http://club.excelhome.net/thread-845101-1-1.html
+
+'得到文件夹下面的文件数量
+'http://club.excelhome.net/thread-959260-1-1.html
+'得到文件夹下面所有文件名
+'http://club.excelhome.net/thread-1033563-1-1.html
+'http://club.excelhome.net/thread-1165866-1-1.html
+
+'发送邮件模块
+'代码由轩辕轼轲编写，如对Excel发邮件这个偏门主题感兴趣，可加入QQ群141616426，入群请输入验证代码：Excel发邮件
+
+'vba调用cmd命令如何实现
+'http://club.excelhome.net/thread-1117656-1-1.html
+
+'VBA关闭工作簿和退出Excel
+'http://www.excelpx.com/thread-233045-1-1.html
+
+'vba 获取数组最大值的下标
+'http://www.excelpx.com/thread-302938-1-1.html
+
+'修改excel左上角的图标
+'http://club.excelhome.net/thread-240830-1-1.html
+

codes/09/diary_program_instructure.bas

@@ -0,0 +1,12 @@
+Attribute VB_Name = "diary_program_instructure"
+'使用前提
+'如果要使用python，需要安装anaconda，为了是其中的python 与 xlwings
+'每个小程序都有如下注释
+'''
+    '功能：
+    '   用数字来获取英语字母
+    '版本：
+    '   1.0
+    '每一版修订：
+    '   1.0 >>> 原始版本
+'''

codes/09/func_core_000_VVVVVVVVVVVVVVVVV.bas

@@ -0,0 +1 @@
+Attribute VB_Name = "func_core_000_VVVVVVVVVVVVVVVVV"