Skip to content

Commit 47649ee

Browse files
GCuser99GCuser99
committed
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
1 parent 52fed0f commit 47649ee

29 files changed

+4421
-1
lines changed

‎LICENSE.txt‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
MIT License
22

3-
Copyright (c) 2023 GCUser99
3+
Copyright (c) 2023-2024 GCUser99
44

55
Permission is hereby granted, free of charge, to any person obtaining a copy
66
of this software and associated documentation files (the "Software"), to deal

‎dist/tBUserFormConverter_win32.dll‎

18 KB
Binary file not shown.

‎dist/tBUserFormConverter_win64.dll‎

10 KB
Binary file not shown.

‎dist/tBUserformConverterSetup.exe‎

-4.22 KB
Binary file not shown.

‎images/nested_controls.png‎

1.79 KB
Loading

‎src/source/About.tbform‎

Lines changed: 254 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,254 @@
1+
[
2+
{
3+
"AlwaysShowKeyboardCues": false,
4+
"Appearance": "vbAppear3d",
5+
"AutoRedraw": false,
6+
"BackColor": -2147483633,
7+
"BorderStyle": "vbFixedSingle",
8+
"Caption": "About tBUserFormConverter",
9+
"ClipControls": true,
10+
"ControlBox": true,
11+
"DrawMode": "vbCopyPen",
12+
"DrawStyle": "vbSolid",
13+
"DrawWidth": 1,
14+
"Enabled": true,
15+
"FillColor": 0,
16+
"FillStyle": "vbFSTransparent",
17+
"FontBold": false,
18+
"FontItalic": false,
19+
"FontName": "Segoe UI",
20+
"FontSize": 8,
21+
"FontStrikethru": false,
22+
"FontTransparent": true,
23+
"FontUnderline": false,
24+
"ForeColor": -2147483630,
25+
"FormDesignerId": "{AD8254FE-96CD-45BA-9FFC-44D12AFE5BBB}",
26+
"HasDC": true,
27+
"Height": 152,
28+
"HelpContextID": 0,
29+
"Icon": "",
30+
"Index": -1,
31+
"KeyPreview": false,
32+
"Left": 0,
33+
"LinkMode": "vbLinkNone",
34+
"LinkTopic": null,
35+
"MDIChild": false,
36+
"MaxButton": false,
37+
"MaxHeight": 0,
38+
"MaxWidth": 0,
39+
"MinButton": false,
40+
"MinHeight": 0,
41+
"MinWidth": 0,
42+
"MouseIcon": "",
43+
"MousePointer": "vbDefault",
44+
"Moveable": true,
45+
"Name": "About",
46+
"NegotiateMenus": false,
47+
"OLEDropMode": "vbOLEDropNone",
48+
"Opacity": 100,
49+
"Palette": "",
50+
"PaletteMode": "vbPaletteModeHalftone",
51+
"Picture": "",
52+
"PictureDpiScaling": true,
53+
"RightToLeft": false,
54+
"ScaleHeight": 2280,
55+
"ScaleLeft": 0,
56+
"ScaleMode": "vbTwips",
57+
"ScaleTop": 0,
58+
"ScaleWidth": 4680,
59+
"ShowInTaskbar": true,
60+
"StartupPosition": "vbStartUpScreen",
61+
"TabFocusAutoSelect": false,
62+
"Tag": null,
63+
"Top": 0,
64+
"TopMost": false,
65+
"TransparencyKey": -1,
66+
"Visible": true,
67+
"WhatsThisButton": false,
68+
"WhatsThisHelp": false,
69+
"Width": 312,
70+
"WindowState": "vbNormal",
71+
"__IDEOptions": {
72+
"alignToGrid": false,
73+
"gridHeight": 10,
74+
"gridWidth": 10,
75+
"lockedControls": [],
76+
"multiColoredGrabbers": false,
77+
"showGrid": true,
78+
"showOutlines": false
79+
},
80+
"__lastUpdateMarker": 4200375661,
81+
"_children": [
82+
{
83+
"Alignment": "vbLeftJustify",
84+
"Anchors": {
85+
"Bottom": false,
86+
"Left": true,
87+
"Right": false,
88+
"Top": true,
89+
"_className": "Anchors",
90+
"_clsid": "{8524D4B5-72A9-40A9-A189-29E7905C40CA}"
91+
},
92+
"Appearance": "vbAppear3d",
93+
"AutoSize": false,
94+
"BackColor": -2147483633,
95+
"BackStyle": "vbBFOpaque",
96+
"BorderStyle": "vbNoBorder",
97+
"Caption": "Info Label",
98+
"DataField": null,
99+
"DataFormat": null,
100+
"DataMember": null,
101+
"DataSource": null,
102+
"Dock": "vbDockNone",
103+
"DragIcon": "",
104+
"DragMode": "vbManual",
105+
"Enabled": true,
106+
"FontBold": false,
107+
"FontItalic": false,
108+
"FontName": "Segoe UI",
109+
"FontSize": 8,
110+
"FontStrikethru": false,
111+
"FontUnderline": false,
112+
"ForeColor": -2147483630,
113+
"Height": 68,
114+
"Index": -1,
115+
"Left": 13,
116+
"LinkItem": null,
117+
"LinkMode": "vbLinkNone",
118+
"LinkTimeout": 50,
119+
"LinkTopic": null,
120+
"MouseIcon": "",
121+
"MousePointer": "vbDefault",
122+
"Name": "lblInfo",
123+
"OLEDropMode": "vbOLEDropNone",
124+
"RightToLeft": false,
125+
"TabIndex": 1,
126+
"Tag": null,
127+
"ToolTipText": null,
128+
"Top": 18,
129+
"UseMnemonic": true,
130+
"Visible": true,
131+
"WhatsThisHelpID": 0,
132+
"Width": 273,
133+
"WordWrap": true,
134+
"_className": "Label",
135+
"_clsid": "{33AD4ED8-6699-11CF-B70C-00AA0060D393}",
136+
"_paintedByParent": true
137+
},
138+
{
139+
"Anchors": {
140+
"Bottom": false,
141+
"Left": true,
142+
"Right": false,
143+
"Top": true,
144+
"_className": "Anchors",
145+
"_clsid": "{8524D4B5-72A9-40A9-A189-29E7905C40CA}"
146+
},
147+
"Appearance": "vbAppear3d",
148+
"BackColor": -2147483633,
149+
"Cancel": false,
150+
"Caption": "Dismiss",
151+
"CausesValidation": true,
152+
"Default": false,
153+
"DisabledPicture": "",
154+
"Dock": "vbDockNone",
155+
"DownPicture": "",
156+
"DragIcon": "",
157+
"DragMode": "vbManual",
158+
"Enabled": true,
159+
"FontBold": false,
160+
"FontItalic": false,
161+
"FontName": "Segoe UI",
162+
"FontSize": 8,
163+
"FontStrikethru": false,
164+
"FontUnderline": false,
165+
"ForeColor": -2147483630,
166+
"Height": 26,
167+
"HelpContextID": 0,
168+
"Index": -1,
169+
"Left": 210,
170+
"MaskColor": 12632256,
171+
"MouseIcon": "",
172+
"MousePointer": "vbDefault",
173+
"Name": "cmdOK",
174+
"OLEDropMode": "vbOLEDropNone",
175+
"Padding": 2,
176+
"Picture": "",
177+
"PictureAlignment": "vbAlignTop",
178+
"PictureDpiScaling": false,
179+
"RightToLeft": false,
180+
"Style": "vbButtonStandard",
181+
"TabIndex": 2,
182+
"TabStop": true,
183+
"Tag": null,
184+
"ToolTipText": null,
185+
"Top": 118,
186+
"UseMaskColor": false,
187+
"Visible": true,
188+
"VisualStyles": true,
189+
"WhatsThisHelpID": 0,
190+
"Width": 89,
191+
"_className": "CommandButton",
192+
"_clsid": "{33AD4EF0-6699-11CF-B70C-00AA0060D393}"
193+
},
194+
{
195+
"Alignment": "vbLeftJustify",
196+
"Anchors": {
197+
"Bottom": false,
198+
"Left": true,
199+
"Right": false,
200+
"Top": true,
201+
"_className": "Anchors",
202+
"_clsid": "{8524D4B5-72A9-40A9-A189-29E7905C40CA}"
203+
},
204+
"Appearance": "vbAppear3d",
205+
"AutoSize": false,
206+
"BackColor": -2147483633,
207+
"BackStyle": "vbBFOpaque",
208+
"BorderStyle": "vbNoBorder",
209+
"Caption": "Website Label",
210+
"DataField": null,
211+
"DataFormat": null,
212+
"DataMember": null,
213+
"DataSource": null,
214+
"Dock": "vbDockNone",
215+
"DragIcon": "",
216+
"DragMode": "vbManual",
217+
"Enabled": true,
218+
"FontBold": false,
219+
"FontItalic": false,
220+
"FontName": "Segoe UI",
221+
"FontSize": 8,
222+
"FontStrikethru": false,
223+
"FontUnderline": false,
224+
"ForeColor": -2147483630,
225+
"Height": 18,
226+
"Index": -1,
227+
"Left": 14,
228+
"LinkItem": null,
229+
"LinkMode": "vbLinkNone",
230+
"LinkTimeout": 50,
231+
"LinkTopic": null,
232+
"MouseIcon": "",
233+
"MousePointer": "vbDefault",
234+
"Name": "lblWebsite",
235+
"OLEDropMode": "vbOLEDropNone",
236+
"RightToLeft": false,
237+
"TabIndex": 3,
238+
"Tag": null,
239+
"ToolTipText": null,
240+
"Top": 92,
241+
"UseMnemonic": true,
242+
"Visible": true,
243+
"WhatsThisHelpID": 0,
244+
"Width": 287,
245+
"WordWrap": false,
246+
"_className": "Label",
247+
"_clsid": "{33AD4ED8-6699-11CF-B70C-00AA0060D393}",
248+
"_paintedByParent": true
249+
}
250+
],
251+
"_className": "Form",
252+
"_clsid": "{33AD4F38-6699-11CF-B70C-00AA0060D393}"
253+
}
254+
]

‎src/source/About.twin‎

Lines changed: 22 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,22 @@
1+
[Description("")]
2+
[FormDesignerId("AD8254FE-96CD-45BA-9FFC-44D12AFE5BBB")]
3+
[PredeclaredId]
4+
Class About
5+
6+
Sub New()
7+
lblInfo.Caption = "Author: GCUser99" & vbCrLf & _
8+
"Version: v2.1" & vbCrLf & _
9+
"Description: A VBIDE add-in (complied with twinBASIC) that converts VBA UserForms for use in twinBASIC."
10+
lblWebsite.Caption = "https://github.com/GCuser99/VBA-UserForm-to-twinBASIC"
11+
Set Me.Icon = GetImageFromResources("transparent.ico", "IMAGES")
12+
End Sub
13+
14+
Private Sub cmdOK_Click()
15+
Me.Close
16+
End Sub
17+
18+
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
19+
If UnloadMode = 0 Then Cancel = True: Me.Close
20+
End Sub
21+
22+
End Class

0 commit comments

Comments
 (0)