v1.8

1. Generate oop code only.
2. Add an interpretation of property (MultiSelect -> selectmode) of ListBox.

Author: cdhigh

MainForm.frm

@@ -211,6 +211,9 @@ Readme of english version refers to [Readme_EN.md](https://github.com/cdhigh/tki
 
 
 # 版本历史
+*  v1.8
+    1. 删除结构化代码生成逻辑，仅生成面向对象代码
+    2. ListBox添加 (MultiSelect -> selectmode) 属性对应转换
 *  v1.7.2
     1. bugfix: 面向过程代码无法预览
 *  v1.7.1  

Readme.md

@@ -183,6 +183,9 @@ The standard built-in ttk themes extension provides native style on different op
 
 
 # Changelog    
+*  v1.8
+    1. Generate oop code only.
+    2. Add an interpretation of property (MultiSelect -> selectmode) of ListBox.
 *  v1.7.2
     1. bugfix: Cannot preview structured code.
 *  v1.7.1

Readme_EN.md

@@ -11,7 +11,6 @@ mnuGenCode=
 mnuAddProperty=����һ���Զ�������(&P)
 mnuQuit=�˳�(&Q)
 mnuOptions=ѡ��(&O)
-mnuOopCode=��������������(&P)
 mnuV2andV3Code=����Python 2.x/3.x���ݴ���(&C)
 mnuUseTtk=����TTK�����(&T)
 mnuRelPos=ʹ���������(&R)
@@ -25,11 +24,9 @@ mnuAbout=
 mnuLanguage=Language(&L)
 mnuSaveToFile=������뵽�ļ�(&F)
 mnuSaveAll=����ȫ������(&A)
-mnuSaveMainOnly=������main()����(&M)
 mnuSaveUiOnly=���������������(&G)
 mnuCopyToClipboard=�������뵽������(&C)
 mnuCopyToClipAll=����ȫ������(&A)
-mnuCopyToClipMainOnly=������main()����(&M)
 mnuCopyToClipUiOnly=����������������(&G)
 frmOption=����
 lblPythonExe=Python���ļ�
@@ -67,7 +64,6 @@ l_msgCtlNotSupport=
 l_msgGetAttrOfFrmFailed=��ȡ��������ʧ�ܣ���ӦVB�����Ѿ��رգ�\n������ˢ�´����б������´򿪹������ԡ�\n��������ˢ�´����б���
 l_msgFrameNotSupportInAbs=�������겼�ֲ�֧��Frame�ؼ����������������ȥ��Frame�ؼ���
 l_msgCtlsSupported=֧�ֿؼ��б���
-l_msgNoMain=�������Ҳ���main()������
 l_msgNoClsUi=�������Ҳ���Application_ui�࣡
 l_msgFetchVerInfoFail=���������ذ汾��Ϣ����
 l_msgParseVerInfoFail=�����汾��Ϣ����
@@ -223,7 +219,6 @@ mnuGenCode=Generate Code(&G)
 mnuAddProperty=Add One Property(&P)
 mnuQuit=Quit(&Q)
 mnuOptions=Options(&O)
-mnuOopCode=Generate OOP Code(&P)
 mnuV2andV3Code=Compatible Code for Python 2.x/3.x(&C)
 mnuUseTtk=Use TTK Themed Library(&T)
 mnuRelPos=Use Relative Position(&R)
@@ -237,11 +232,9 @@ mnuAbout=About(&A)
 mnuLanguage=Languages(&L)
 mnuSaveToFile=Save Code to File(&F)
 mnuSaveAll=Save All Code(&A)
-mnuSaveMainOnly=Save main() Only(&M)
 mnuSaveUiOnly=Save Class UI Only(&G)
 mnuCopyToClipboard=Copy Code To Clipboard(&C)
 mnuCopyToClipAll=Copy All Code(&A)
-mnuCopyToClipMainOnly=Copy main() Only(&M)
 mnuCopyToClipUiOnly=Copy Class UI Only(&G)
 frmOption=Config
 lblPythonExe=Python EXE
@@ -279,7 +272,6 @@ l_msgCtlNotSupport=The addin not support '{0}' control (Name:{1}).\n\nIt will no
 l_msgGetAttrOfFrmFailed=Failed in getting property of the form, please reopen the vb project and retry.\nRefresh list of forms now?
 l_msgFrameNotSupportInAbs=The control 'Frame' is not support when menu 'Use Relative Position' unchecked.
 l_msgCtlsSupported=Controls supported:
-l_msgNoMain=Function 'main()' no founded in code!
 l_msgNoClsUi=Class 'Application_ui' no founded in code!
 l_msgFetchVerInfoFail=Error fetching version update information.
 l_msgParseVerInfoFail=Unable to parse the version information.

Vb6Tkinter.lng

@@ -47,8 +47,8 @@ Module=http; http.bas
 Module=modJson; modJson.bas
 Form=frmNewVer.frm
 Form=frmAbout.frm
-ResFile32="XP.RES"
 Module=utf8file; utf8file.bas
+ResFile32="XP.RES"
 IconForm="FrmMain"
 Startup="(None)"
 HelpFile=""
@@ -63,8 +63,8 @@ CompatibleMode="2"
 CompatibleEXE32="Release\Vb6Tkinter.dll"
 VersionCompatible32="1"
 MajorVer=1
-MinorVer=7
-RevisionVer=2
+MinorVer=8
+RevisionVer=0
 AutoIncrementVer=0
 ServerSupportFiles=0
 DllBaseAddress=&H1f390000

Vb6Tkinter.vbp

@@ -1,39 +1,39 @@
 GridOcx = 125, 125, 851, 574, C, 175, 175, 1048, 606, C
 Common = 125, 125, 998, 556, 
 FileDlg = 150, 150, 981, 581, C
-clsBaseControl = 100, 100, 931, 531, C
-clsButton = 75, 75, 906, 506, C
-clsCanvas = 0, 0, 0, 0, C
-clsCheckbutton = 0, 0, 0, 0, C
-clsEntry = 75, 75, 954, 481, C
-clsLabel = 0, 0, 0, 0, C
-clsLabelFrame = 0, 0, 0, 0, C
-clsListbox = 0, 0, 0, 0, C
-clsOptionMenu = 25, 25, 904, 431, C
-clsRadiobutton = 0, 0, 0, 0, C
-clsScale = 0, 0, 0, 0, C
-clsScrollbar = 0, 0, 0, 0, C
-clsSerialization = 0, 0, 0, 0, C
-clsText = 0, 0, 879, 406, C
+clsBaseControl = 100, 100, 931, 531, 
+clsButton = 75, 75, 906, 506, 
+clsCanvas = 25, 25, 869, 474, 
+clsCheckbutton = 50, 50, 894, 499, 
+clsEntry = 75, 75, 954, 481, 
+clsLabel = 175, 175, 1019, 624, 
+clsLabelFrame = 200, 200, 1044, 649, 
+clsListbox = 150, 150, 994, 599, 
+clsOptionMenu = 25, 25, 904, 431, 
+clsRadiobutton = 150, 150, 994, 599, 
+clsScale = 175, 175, 1019, 624, 
+clsScrollbar = 200, 200, 1044, 649, 
+clsSerialization = 25, 25, 869, 474, 
+clsText = 0, 0, 879, 406, 
 cStrBuilder = 0, 0, 0, 0, C
 Dictionary = 0, 0, 0, 0, C
-FrmMain = 25, 25, 898, 456, Z, 50, 50, 923, 481, C
-clsMenu = 0, 0, 0, 0, C
-clsMenuItem = 0, 0, 0, 0, C
-clsProgressBar = 0, 0, 0, 0, C
-clsCombobox = 175, 175, 1054, 581, C
-clsComboboxAdapter = 25, 25, 799, 474, C
-clsTreeview = 200, 200, 1079, 606, C
-clsNotebook = 50, 50, 929, 456, C
+FrmMain = 25, 25, 898, 456, , 50, 50, 923, 481, C
+clsMenu = 0, 0, 844, 449, Z
+clsMenuItem = 25, 25, 869, 474, 
+clsProgressBar = 125, 125, 969, 574, 
+clsCombobox = 175, 175, 1054, 581, 
+clsComboboxAdapter = 25, 25, 799, 474, 
+clsTreeview = 200, 200, 1079, 606, 
+clsNotebook = 50, 50, 929, 456, 
 MultiLanguage = 175, 175, 1054, 608, C
 Base64 = 100, 100, 874, 549, C
-clsForm = 125, 125, 956, 556, C
-clsStatusbar = 75, 75, 801, 497, C
+clsForm = 125, 125, 956, 556, 
+clsStatusbar = 75, 75, 801, 497, 
 Resizer = 100, 100, 826, 549, C
 frmOption = 0, 0, 0, 0, C, 200, 200, 1073, 631, C
 xpcmdbutton = 0, 0, 0, 0, C, 0, 0, 873, 431, C
-clsNotebookTab = 0, 0, 0, 0, C
-clsSeparator = 0, 0, 0, 0, C
+clsNotebookTab = 75, 75, 919, 524, 
+clsSeparator = 0, 0, 844, 449, 
 Connect = 25, 25, 904, 458, C
 frmEncodeAFile = 100, 100, 973, 531, C, 25, 25, 898, 456, C
 http = 125, 125, 1004, 558, C