version update

Added error handling Fixed faulty detection of active project folder path Fixed case where dialogs show twice in list box if user canceled early out of conversion and then restarts Minor refactoring Added source modules and resources
GCuser99 · Mar 22, 2024 · 47649ee · 47649ee
1 parent 52fed0f
commit 47649ee
Show file tree

Hide file tree

Showing 29 changed files with 4,421 additions and 1 deletion.
diff --git a/LICENSE.txt b/LICENSE.txt
@@ -1,6 +1,6 @@
 MIT License
 
-Copyright (c) 2023 GCUser99
+Copyright (c) 2023-2024 GCUser99
 
 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal

diff --git a/dist/tBUserFormConverter_win32.dll b/dist/tBUserFormConverter_win32.dll
diff --git a/dist/tBUserFormConverter_win64.dll b/dist/tBUserFormConverter_win64.dll
diff --git a/dist/tBUserformConverterSetup.exe b/dist/tBUserformConverterSetup.exe
diff --git a/images/nested_controls.png b/images/nested_controls.png
diff --git a/src/source/About.tbform b/src/source/About.tbform
@@ -0,0 +1,254 @@
+[
+	{
+		"AlwaysShowKeyboardCues": false,
+		"Appearance": "vbAppear3d",
+		"AutoRedraw": false,
+		"BackColor": -2147483633,
+		"BorderStyle": "vbFixedSingle",
+		"Caption": "About tBUserFormConverter",
+		"ClipControls": true,
+		"ControlBox": true,
+		"DrawMode": "vbCopyPen",
+		"DrawStyle": "vbSolid",
+		"DrawWidth": 1,
+		"Enabled": true,
+		"FillColor": 0,
+		"FillStyle": "vbFSTransparent",
+		"FontBold": false,
+		"FontItalic": false,
+		"FontName": "Segoe UI",
+		"FontSize": 8,
+		"FontStrikethru": false,
+		"FontTransparent": true,
+		"FontUnderline": false,
+		"ForeColor": -2147483630,
+		"FormDesignerId": "{AD8254FE-96CD-45BA-9FFC-44D12AFE5BBB}",
+		"HasDC": true,
+		"Height": 152,
+		"HelpContextID": 0,
+		"Icon": "",
+		"Index": -1,
+		"KeyPreview": false,
+		"Left": 0,
+		"LinkMode": "vbLinkNone",
+		"LinkTopic": null,
+		"MDIChild": false,
+		"MaxButton": false,
+		"MaxHeight": 0,
+		"MaxWidth": 0,
+		"MinButton": false,
+		"MinHeight": 0,
+		"MinWidth": 0,
+		"MouseIcon": "",
+		"MousePointer": "vbDefault",
+		"Moveable": true,
+		"Name": "About",
+		"NegotiateMenus": false,
+		"OLEDropMode": "vbOLEDropNone",
+		"Opacity": 100,
+		"Palette": "",
+		"PaletteMode": "vbPaletteModeHalftone",
+		"Picture": "",
+		"PictureDpiScaling": true,
+		"RightToLeft": false,
+		"ScaleHeight": 2280,
+		"ScaleLeft": 0,
+		"ScaleMode": "vbTwips",
+		"ScaleTop": 0,
+		"ScaleWidth": 4680,
+		"ShowInTaskbar": true,
+		"StartupPosition": "vbStartUpScreen",
+		"TabFocusAutoSelect": false,
+		"Tag": null,
+		"Top": 0,
+		"TopMost": false,
+		"TransparencyKey": -1,
+		"Visible": true,
+		"WhatsThisButton": false,
+		"WhatsThisHelp": false,
+		"Width": 312,
+		"WindowState": "vbNormal",
+		"__IDEOptions": {
+			"alignToGrid": false,
+			"gridHeight": 10,
+			"gridWidth": 10,
+			"lockedControls": [],
+			"multiColoredGrabbers": false,
+			"showGrid": true,
+			"showOutlines": false
+		},
+		"__lastUpdateMarker": 4200375661,
+		"_children": [
+			{
+				"Alignment": "vbLeftJustify",
+				"Anchors": {
+					"Bottom": false,
+					"Left": true,
+					"Right": false,
+					"Top": true,
+					"_className": "Anchors",
+					"_clsid": "{8524D4B5-72A9-40A9-A189-29E7905C40CA}"
+				},
+				"Appearance": "vbAppear3d",
+				"AutoSize": false,
+				"BackColor": -2147483633,
+				"BackStyle": "vbBFOpaque",
+				"BorderStyle": "vbNoBorder",
+				"Caption": "Info Label",
+				"DataField": null,
+				"DataFormat": null,
+				"DataMember": null,
+				"DataSource": null,
+				"Dock": "vbDockNone",
+				"DragIcon": "",
+				"DragMode": "vbManual",
+				"Enabled": true,
+				"FontBold": false,
+				"FontItalic": false,
+				"FontName": "Segoe UI",
+				"FontSize": 8,
+				"FontStrikethru": false,
+				"FontUnderline": false,
+				"ForeColor": -2147483630,
+				"Height": 68,
+				"Index": -1,
+				"Left": 13,
+				"LinkItem": null,
+				"LinkMode": "vbLinkNone",
+				"LinkTimeout": 50,
+				"LinkTopic": null,
+				"MouseIcon": "",
+				"MousePointer": "vbDefault",
+				"Name": "lblInfo",
+				"OLEDropMode": "vbOLEDropNone",
+				"RightToLeft": false,
+				"TabIndex": 1,
+				"Tag": null,
+				"ToolTipText": null,
+				"Top": 18,
+				"UseMnemonic": true,
+				"Visible": true,
+				"WhatsThisHelpID": 0,
+				"Width": 273,
+				"WordWrap": true,
+				"_className": "Label",
+				"_clsid": "{33AD4ED8-6699-11CF-B70C-00AA0060D393}",
+				"_paintedByParent": true
+			},
+			{
+				"Anchors": {
+					"Bottom": false,
+					"Left": true,
+					"Right": false,
+					"Top": true,
+					"_className": "Anchors",
+					"_clsid": "{8524D4B5-72A9-40A9-A189-29E7905C40CA}"
+				},
+				"Appearance": "vbAppear3d",
+				"BackColor": -2147483633,
+				"Cancel": false,
+				"Caption": "Dismiss",
+				"CausesValidation": true,
+				"Default": false,
+				"DisabledPicture": "",
+				"Dock": "vbDockNone",
+				"DownPicture": "",
+				"DragIcon": "",
+				"DragMode": "vbManual",
+				"Enabled": true,
+				"FontBold": false,
+				"FontItalic": false,
+				"FontName": "Segoe UI",
+				"FontSize": 8,
+				"FontStrikethru": false,
+				"FontUnderline": false,
+				"ForeColor": -2147483630,
+				"Height": 26,
+				"HelpContextID": 0,
+				"Index": -1,
+				"Left": 210,
+				"MaskColor": 12632256,
+				"MouseIcon": "",
+				"MousePointer": "vbDefault",
+				"Name": "cmdOK",
+				"OLEDropMode": "vbOLEDropNone",
+				"Padding": 2,
+				"Picture": "",
+				"PictureAlignment": "vbAlignTop",
+				"PictureDpiScaling": false,
+				"RightToLeft": false,
+				"Style": "vbButtonStandard",
+				"TabIndex": 2,
+				"TabStop": true,
+				"Tag": null,
+				"ToolTipText": null,
+				"Top": 118,
+				"UseMaskColor": false,
+				"Visible": true,
+				"VisualStyles": true,
+				"WhatsThisHelpID": 0,
+				"Width": 89,
+				"_className": "CommandButton",
+				"_clsid": "{33AD4EF0-6699-11CF-B70C-00AA0060D393}"
+			},
+			{
+				"Alignment": "vbLeftJustify",
+				"Anchors": {
+					"Bottom": false,
+					"Left": true,
+					"Right": false,
+					"Top": true,
+					"_className": "Anchors",
+					"_clsid": "{8524D4B5-72A9-40A9-A189-29E7905C40CA}"
+				},
+				"Appearance": "vbAppear3d",
+				"AutoSize": false,
+				"BackColor": -2147483633,
+				"BackStyle": "vbBFOpaque",
+				"BorderStyle": "vbNoBorder",
+				"Caption": "Website Label",
+				"DataField": null,
+				"DataFormat": null,
+				"DataMember": null,
+				"DataSource": null,
+				"Dock": "vbDockNone",
+				"DragIcon": "",
+				"DragMode": "vbManual",
+				"Enabled": true,
+				"FontBold": false,
+				"FontItalic": false,
+				"FontName": "Segoe UI",
+				"FontSize": 8,
+				"FontStrikethru": false,
+				"FontUnderline": false,
+				"ForeColor": -2147483630,
+				"Height": 18,
+				"Index": -1,
+				"Left": 14,
+				"LinkItem": null,
+				"LinkMode": "vbLinkNone",
+				"LinkTimeout": 50,
+				"LinkTopic": null,
+				"MouseIcon": "",
+				"MousePointer": "vbDefault",
+				"Name": "lblWebsite",
+				"OLEDropMode": "vbOLEDropNone",
+				"RightToLeft": false,
+				"TabIndex": 3,
+				"Tag": null,
+				"ToolTipText": null,
+				"Top": 92,
+				"UseMnemonic": true,
+				"Visible": true,
+				"WhatsThisHelpID": 0,
+				"Width": 287,
+				"WordWrap": false,
+				"_className": "Label",
+				"_clsid": "{33AD4ED8-6699-11CF-B70C-00AA0060D393}",
+				"_paintedByParent": true
+			}
+		],
+		"_className": "Form",
+		"_clsid": "{33AD4F38-6699-11CF-B70C-00AA0060D393}"
+	}
+]
diff --git a/src/source/About.twin b/src/source/About.twin
@@ -0,0 +1,22 @@
+[Description("")]
+[FormDesignerId("AD8254FE-96CD-45BA-9FFC-44D12AFE5BBB")]
+[PredeclaredId]
+Class About
+
+	Sub New()
+    	lblInfo.Caption = "Author: GCUser99" & vbCrLf & _  
+        "Version: v2.1" & vbCrLf & _  
+        "Description: A VBIDE add-in (complied with twinBASIC) that converts VBA UserForms for use in twinBASIC."
+        lblWebsite.Caption = "https://github.com/GCuser99/VBA-UserForm-to-twinBASIC"
+        Set Me.Icon = GetImageFromResources("transparent.ico", "IMAGES")
+    End Sub
+
+    Private Sub cmdOK_Click()
+        Me.Close
+    End Sub
+
+    Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
+        If UnloadMode = 0 Then Cancel = True: Me.Close
+    End Sub
+
+End Class